Type for storing results for later output
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=pfdp), | public, | allocatable | :: | errors(:,:,:) | |||
real(kind=pfdp), | public, | allocatable | :: | residuals(:,:,:) | |||
integer, | public | :: | nsteps | ||||
integer, | public | :: | niters | ||||
integer, | public | :: | nprocs | ||||
integer, | public | :: | nlevels | ||||
integer, | public | :: | p_index | ||||
integer, | public | :: | nblocks | ||||
character(len=20), | public | :: | fname_r | output file name for residuals |
|||
character(len=18), | public | :: | fname_e | output file name errors |
|||
procedure(pf_results_p), | public, | pointer, nopass | :: | dump | |||
procedure(pf_results_p), | public, | pointer, nopass | :: | destroy |
type :: pf_results_t
real(pfdp), allocatable :: errors(:,:,:)
real(pfdp), allocatable :: residuals(:,:,:)
integer :: nsteps
integer :: niters
integer :: nprocs
integer :: nlevels
integer :: p_index
integer :: nblocks
character(len = 20 ) :: fname_r !! output file name for residuals
character(len = 18) :: fname_e !! output file name errors
! procedure(pf_init_results_p), pointer, nopass :: initialize_results
procedure(pf_results_p), pointer, nopass :: dump
procedure(pf_results_p), pointer, nopass :: destroy
end type pf_results_t