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