tem_shape_out_vec Subroutine

private subroutine tem_shape_out_vec(me, conf)

Write a array of shapes to lua file

Arguments

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

shape 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_shape_out_vec( me, conf )
    !---------------------------------------------------------------------------
    !> shape types to write out
    type( tem_shape_type ), intent(in) :: me(:)
    !> Aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    !---------------------------------------------------------------------------
    integer :: iVal
    !---------------------------------------------------------------------------

    ! create a table with name shape if not exist
    if( conf%level .eq. 0 ) then
      call aot_out_open_table( put_conf = conf, tname = 'shape' )
    else
      call aot_out_open_table( put_conf = conf )
    endif

    do iVal = 1, size(me)
      call tem_shape_out_scal( me(iVal), conf )
    end do

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_shape_out_vec