Type-Bound Procedures
-
private subroutine init_ufield3d(this, pp, perr, psp, dim, nvpx, nvpy, nvpz)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(parallel_pipe), |
intent(in), |
|
pointer | :: |
pp | |
class(perrors), |
intent(in), |
|
pointer | :: |
perr | |
class(spect3d), |
intent(in), |
|
pointer | :: |
psp | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
nvpx | |
integer, |
intent(in) |
|
| :: |
nvpy | |
integer, |
intent(in) |
|
| :: |
nvpz | |
-
private subroutine end_ufield3d(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
-
private subroutine copyguard_pipe(this, rtag, stag, rid, sid)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
rid | |
integer, |
intent(inout) |
|
| :: |
sid | |
-
private subroutine acopyguard(this, rtag, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
generic, public :: cp => copyin
-
private subroutine copyin(this, fd2d, lpos, sdim, ddim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
fd2d | |
integer, |
intent(in) |
|
| :: |
lpos | |
integer, |
intent(in), |
|
dimension(:) | :: |
sdim | |
integer, |
intent(in), |
|
dimension(:) | :: |
ddim | |
-
private subroutine copyout(this, fd2d, lpos, sdim, ddim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
fd2d | |
integer, |
intent(in) |
|
| :: |
lpos | |
integer, |
intent(in), |
|
dimension(:) | :: |
sdim | |
integer, |
intent(in), |
|
dimension(:) | :: |
ddim | |
-
private subroutine copyadd(this, fd2d, lpos, sdim, ddim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
fd2d | |
integer, |
intent(in) |
|
| :: |
lpos | |
integer, |
intent(in), |
|
dimension(:) | :: |
sdim | |
integer, |
intent(in), |
|
dimension(:) | :: |
ddim | |
-
private subroutine writehdf5_3d(this, file, dim, rtag, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(hdf5file), |
intent(in) |
|
| :: |
file | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
-
private subroutine writehdf5_2dslice(this, file, dim, slice, spos, rtag, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(hdf5file), |
intent(in) |
|
| :: |
file | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
slice | |
integer, |
intent(in) |
|
| :: |
spos | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
generic, public :: as => asc, asa
-
private subroutine asc(this, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
real, |
intent(in) |
|
| :: |
value | |
-
private subroutine asa(this, that)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
that | |
generic, public :: add => sum
-
private subroutine sum(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield3d), |
intent(in), |
|
target | :: |
a2 | |
generic, public :: sub => minus
-
private subroutine minus(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield3d), |
intent(in), |
|
target | :: |
a2 | |
-
private subroutine multiply(this, a1, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
a1 | |
real, |
intent(in) |
|
| :: |
value | |
procedure, private :: init_ufield3d
-
private subroutine init_ufield3d(this, pp, perr, psp, dim, nvpx, nvpy, nvpz)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(parallel_pipe), |
intent(in), |
|
pointer | :: |
pp | |
class(perrors), |
intent(in), |
|
pointer | :: |
perr | |
class(spect3d), |
intent(in), |
|
pointer | :: |
psp | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
nvpx | |
integer, |
intent(in) |
|
| :: |
nvpy | |
integer, |
intent(in) |
|
| :: |
nvpz | |
procedure, private :: end_ufield3d
-
private subroutine end_ufield3d(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
procedure, public :: getdim
-
private function getdim(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd1p
-
private function getnd1p(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnvpx
-
private function getnvpx(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd1
-
private function getnd1(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd2p
-
private function getnd2p(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnvpy
-
private function getnvpy(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd2
-
private function getnd2(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd3p
-
private function getnd3p(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnvpz
-
private function getnvpz(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd3
-
private function getnd3(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnoff
-
private function getnoff(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value integer,
dimension(2)
procedure, public :: getrf
-
private function getrf(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(in) |
|
| :: |
this | |
Return Value real,
dimension(:,:,:,:), pointer
procedure, private :: acopyguard
-
private subroutine acopyguard(this, rtag, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
procedure, private :: copyguard_pipe
-
private subroutine copyguard_pipe(this, rtag, stag, rid, sid)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
rid | |
integer, |
intent(inout) |
|
| :: |
sid | |
procedure, private :: copyadd
-
private subroutine copyadd(this, fd2d, lpos, sdim, ddim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
fd2d | |
integer, |
intent(in) |
|
| :: |
lpos | |
integer, |
intent(in), |
|
dimension(:) | :: |
sdim | |
integer, |
intent(in), |
|
dimension(:) | :: |
ddim | |
procedure, private :: copyout
-
private subroutine copyout(this, fd2d, lpos, sdim, ddim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
fd2d | |
integer, |
intent(in) |
|
| :: |
lpos | |
integer, |
intent(in), |
|
dimension(:) | :: |
sdim | |
integer, |
intent(in), |
|
dimension(:) | :: |
ddim | |
procedure, private :: copyin
-
private subroutine copyin(this, fd2d, lpos, sdim, ddim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
fd2d | |
integer, |
intent(in) |
|
| :: |
lpos | |
integer, |
intent(in), |
|
dimension(:) | :: |
sdim | |
integer, |
intent(in), |
|
dimension(:) | :: |
ddim | |
procedure, private :: writehdf5_2dslice
-
private subroutine writehdf5_2dslice(this, file, dim, slice, spos, rtag, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(hdf5file), |
intent(in) |
|
| :: |
file | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
slice | |
integer, |
intent(in) |
|
| :: |
spos | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
procedure, private :: writehdf5_3d
-
private subroutine writehdf5_3d(this, file, dim, rtag, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(hdf5file), |
intent(in) |
|
| :: |
file | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
rtag | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
procedure, private :: multiply
-
private subroutine multiply(this, a1, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
a1 | |
real, |
intent(in) |
|
| :: |
value | |
procedure, private :: minus
-
private subroutine minus(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield3d), |
intent(in), |
|
target | :: |
a2 | |
procedure, private :: sum
-
private subroutine sum(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield3d), |
intent(in), |
|
target | :: |
a2 | |
procedure, private :: asa
-
private subroutine asa(this, that)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
class(ufield3d), |
intent(in), |
|
target | :: |
that | |
procedure, private :: asc
-
private subroutine asc(this, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield3d), |
intent(inout) |
|
| :: |
this | |
real, |
intent(in) |
|
| :: |
value | |