tem_stlHead_out_scal Subroutine

private subroutine tem_stlHead_out_scal(me, conf)

Write out a stlHead shape in lua format

Arguments

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

stlHead types to write out
type(aot_out_type), intent(inout) :: conf

Aotus type handling the output to the file in lua format

Source Code

  subroutine tem_stlHead_out_scal( me, conf )
    ! --------------------------------------------------------------------------
    !> stlHead types to write out
    type( tem_stlHead_type ), intent(in) :: me
    !> Aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    ! --------------------------------------------------------------------------
    ! ---------------------------------------------------------------------------

    ! create a table with name stlHead if not exist
    if( conf%level == 0 ) then
      call aot_out_open_table( put_conf = conf, tname = 'object' )
    else
      call aot_out_open_table( put_conf = conf )
    end if

    call aot_out_val( put_conf = conf, vname = 'filename', val = me%filename )

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_stlHead_out_scal