tem_convergence_out_vector Subroutine

private subroutine tem_convergence_out_vector(me, conf)

Allows the output of array of convergence to lua out

Arguments

Type IntentOptional 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

Source Code

  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