tem_shape_propLabel_out Subroutine

private subroutine tem_shape_propLabel_out(propBits, conf)

Write out a shape property label in lua format

Arguments

Type IntentOptional Attributes Name
integer(kind=long_k), intent(in) :: propBits

property bits
type(aot_out_type), intent(inout) :: conf

Aotus type handling the output to the file in lua format

Calls

proc~~tem_shape_proplabel_out~~CallsGraph proc~tem_shape_proplabel_out tem_shape_propLabel_out aot_out_close_table aot_out_close_table proc~tem_shape_proplabel_out->aot_out_close_table aot_out_open_table aot_out_open_table proc~tem_shape_proplabel_out->aot_out_open_table aot_out_val aot_out_val proc~tem_shape_proplabel_out->aot_out_val

Called by

proc~~tem_shape_proplabel_out~~CalledByGraph proc~tem_shape_proplabel_out tem_shape_propLabel_out proc~tem_shape_out_scal tem_shape_out_scal proc~tem_shape_out_scal->proc~tem_shape_proplabel_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_propLabel_out( propBits, conf )
    ! --------------------------------------------------------------------------
    !> property bits
    integer(kind=long_k), intent(in) :: propBits
    !> Aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    ! --------------------------------------------------------------------------

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

    if (btest(propBits, prp_hasBnd)) &
      call aot_out_val( put_conf = conf, val = 'boundary' )

    if (btest(propBits, prp_fluidify)) &
      call aot_out_val( put_conf = conf, val = 'solidified' )

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_shape_propLabel_out