dump_tem_prophead Subroutine

public subroutine dump_tem_prophead(me, conf)

Subroutine to dump property header informations into a Lua file.

Arguments

Type IntentOptional Attributes Name
type(tem_prophead_type), intent(in) :: me(:)

Property to write
type(aot_out_type) :: conf

aotus lua state to write output

Calls

proc~~dump_tem_prophead~~CallsGraph proc~dump_tem_prophead dump_tem_prophead proc~aot_out_open_table aot_out_open_table proc~dump_tem_prophead->proc~aot_out_open_table proc~aot_out_val aot_out_val proc~dump_tem_prophead->proc~aot_out_val proc~aot_out_close_table aot_out_close_table proc~dump_tem_prophead->proc~aot_out_close_table

Called by

proc~~dump_tem_prophead~~CalledByGraph proc~dump_tem_prophead dump_tem_prophead proc~dump_tem_global dump_tem_global proc~dump_tem_global->proc~dump_tem_prophead proc~dump_treelmesh dump_treelmesh proc~dump_treelmesh->proc~dump_tem_global proc~tem_adapt_dump_newmesh tem_adapt_dump_newMesh proc~tem_adapt_dump_newmesh->proc~dump_treelmesh proc~tem_restart_openwrite tem_restart_openWrite proc~tem_restart_openwrite->proc~dump_treelmesh proc~tem_dump_subtree tem_dump_subTree proc~tem_restart_openwrite->proc~tem_dump_subtree proc~tem_dump_subtree->proc~dump_treelmesh proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~tem_restart_openwrite proc~tem_write_debugmesh tem_write_debugMesh proc~tem_write_debugmesh->proc~tem_dump_subtree proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~tem_dump_subtree

Contents

Source Code

dump_tem_prophead

Source Code

  subroutine dump_tem_prophead(me, conf)
    ! -------------------------------------------------------------------- !
    !> Property to write
    type(tem_prophead_type), intent(in) :: me(:)
    !> aotus lua state to write output
    type(aot_out_type) :: conf
    ! -------------------------------------------------------------------- !
    integer :: iprop
    ! -------------------------------------------------------------------- !

    ! open property table
    call aot_out_open_table( conf, 'property' )
    do iprop=1, size(me)
      call aot_out_open_table( conf )
      call aot_out_val( put_conf = conf,                 &
        &               vname    = 'label',              &
        &               val      = trim(me(iprop)%label) )
      call aot_out_val( put_conf = conf,            &
        &               vname    = 'bitpos',        &
        &               val      = me(iprop)%bitpos )
      call aot_out_val( put_conf = conf,            &
        &               vname    = 'nElems',        &
        &               val      = me(iprop)%nElems )
      call aot_out_close_table(conf)
    end do
    call aot_out_close_table(conf)

  end subroutine dump_tem_prophead