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