tem_shape_bcLabel_out Subroutine

private subroutine tem_shape_bcLabel_out(bcLabels, conf)

Write out a shape boundary label in lua format

Arguments

Type IntentOptional Attributes Name
character(len=labelLen), intent(in) :: bcLabels(:)

Boundary labels
type(aot_out_type), intent(inout) :: conf

Aotus type handling the output to the file in lua format

Calls

proc~~tem_shape_bclabel_out~~CallsGraph proc~tem_shape_bclabel_out tem_shape_bcLabel_out aot_out_close_table aot_out_close_table proc~tem_shape_bclabel_out->aot_out_close_table aot_out_open_table aot_out_open_table proc~tem_shape_bclabel_out->aot_out_open_table aot_out_val aot_out_val proc~tem_shape_bclabel_out->aot_out_val

Called by

proc~~tem_shape_bclabel_out~~CalledByGraph proc~tem_shape_bclabel_out tem_shape_bcLabel_out proc~tem_shape_out_scal tem_shape_out_scal proc~tem_shape_out_scal->proc~tem_shape_bclabel_out interface~tem_shape_out tem_shape_out interface~tem_shape_out->proc~tem_shape_out_scal proc~tem_shape_out_vec tem_shape_out_vec interface~tem_shape_out->proc~tem_shape_out_vec proc~tem_shape_out_vec->proc~tem_shape_out_scal proc~hvs_ascii_write_header hvs_ascii_write_header proc~hvs_ascii_write_header->interface~tem_shape_out proc~tem_convergence_out_single tem_convergence_out_single proc~tem_convergence_out_single->interface~tem_shape_out interface~tem_convergence_out tem_convergence_out interface~tem_convergence_out->proc~tem_convergence_out_single proc~hvs_ascii_init hvs_ascii_init proc~hvs_ascii_init->proc~hvs_ascii_write_header proc~hvs_asciispatial_init hvs_asciiSpatial_init proc~hvs_asciispatial_init->proc~hvs_ascii_write_header proc~tem_convergence_dump_single tem_convergence_dump_single proc~tem_convergence_dump_single->proc~tem_convergence_out_single proc~tem_convergence_out_vector tem_convergence_out_vector proc~tem_convergence_out_vector->proc~tem_convergence_out_single

Source Code

  subroutine tem_shape_bcLabel_out( bcLabels, conf )
    ! --------------------------------------------------------------------------
    !> Boundary labels
    character(len=labelLen), intent(in) :: bcLabels(:)
    !> Aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    ! --------------------------------------------------------------------------
    integer :: iLabel
    ! --------------------------------------------------------------------------

    call aot_out_open_table( put_conf = conf, tname = 'boundary' )

    do iLabel = 1, size(bcLabels)
      call aot_out_val( put_conf = conf, val = bcLabels(iLabel) )
    end do

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_shape_bcLabel_out