Allows the output of array of convergence to lua out
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_convergence_type), | intent(in) | :: | me(:) |
convergence 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_convergence_out_vector(me, conf) ! -------------------------------------------------------------------- ! !> convergence to write into the lua file type(tem_convergence_type), intent(in) :: me(:) !> aotus type handling the output to the file in lua format type(aot_out_type), intent(inout) :: conf ! -------------------------------------------------------------------- ! integer :: iConv ! -------------------------------------------------------------------- ! call aot_out_open_table( put_conf = conf, tname='convergence' ) do iConv = 1,size(me) call tem_convergence_out_single( me(iConv), conf, level=1 ) end do call aot_out_close_table( put_conf = conf ) end subroutine tem_convergence_out_vector