Allows the output of array of condition to lua out
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_condition_type), | intent(in) | :: | me(:) |
condition to write into the lua file |
||
type(aot_out_type), | intent(inout) | :: | conf |
aotus type handling the output to the file in lua format |
subroutine tem_condition_out_vector(me, conf)
! -------------------------------------------------------------------- !
!> condition to write into the lua file
type(tem_condition_type), intent(in) :: me(:)
!> aotus type handling the output to the file in lua format
type(aot_out_type), intent(inout) :: conf
! -------------------------------------------------------------------- !
integer :: iCond
! -------------------------------------------------------------------- !
call aot_out_open_table( put_conf = conf, tname='condition' )
do iCond = 1,size(me)
call tem_condition_out_single( me(iCond), conf, level=1 )
end do
call aot_out_close_table( put_conf = conf )
end subroutine tem_condition_out_vector