Type-Bound Procedures
-
private subroutine init_ufield2d(this, pp, perr, psp, dim, layout, nvpx, nvpy)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(parallel_pipe), |
intent(in), |
|
pointer | :: |
pp | |
class(perrors), |
intent(in), |
|
pointer | :: |
perr | |
class(spect2d), |
intent(in), |
|
pointer | :: |
psp | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
layout | |
integer, |
intent(in) |
|
| :: |
nvpx | |
integer, |
intent(in) |
|
| :: |
nvpy | |
-
private subroutine init_ufield2d_k(this, pp, perr, psp, dim, layout, nd1, nd2, nvpx, nvpy)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(parallel_pipe), |
intent(in), |
|
pointer | :: |
pp | |
class(perrors), |
intent(in), |
|
pointer | :: |
perr | |
class(spect2d), |
intent(in), |
|
pointer | :: |
psp | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
layout | |
integer, |
intent(in) |
|
| :: |
nd1 | |
integer, |
intent(in) |
|
| :: |
nd2 | |
integer, |
intent(in) |
|
| :: |
nvpx | |
integer, |
intent(in) |
|
| :: |
nvpy | |
-
private subroutine end_ufield2d(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
-
private subroutine copyguard(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
-
private subroutine acopyguard(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
-
private subroutine writehdf5(this, file, dim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(hdf5file), |
intent(in) |
|
| :: |
file | |
integer, |
intent(in) |
|
| :: |
dim | |
-
private subroutine pipesend_ufield2d(this, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
-
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
rtag | |
generic, public :: as => asc, asa
-
private subroutine asc(this, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
real, |
intent(in) |
|
| :: |
value | |
-
private subroutine asa(this, that)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
that | |
-
private subroutine sum1(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
-
private subroutine sum2(this, a1, a2, dim, dim1, dim2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim1 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim2 | |
-
private subroutine minus1(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
-
private subroutine minus2(this, a1, a2, dim, dim1, dim2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim1 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim2 | |
-
private subroutine multiply1(this, a1, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
real, |
intent(in) |
|
| :: |
value | |
-
private subroutine multiply2(this, a1, dim, dim1, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim1 | |
real, |
intent(in), |
|
dimension(:) | :: |
value | |
procedure, private :: init_ufield2d
-
private subroutine init_ufield2d(this, pp, perr, psp, dim, layout, nvpx, nvpy)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(parallel_pipe), |
intent(in), |
|
pointer | :: |
pp | |
class(perrors), |
intent(in), |
|
pointer | :: |
perr | |
class(spect2d), |
intent(in), |
|
pointer | :: |
psp | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
layout | |
integer, |
intent(in) |
|
| :: |
nvpx | |
integer, |
intent(in) |
|
| :: |
nvpy | |
procedure, private :: init_ufield2d_k
-
private subroutine init_ufield2d_k(this, pp, perr, psp, dim, layout, nd1, nd2, nvpx, nvpy)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(parallel_pipe), |
intent(in), |
|
pointer | :: |
pp | |
class(perrors), |
intent(in), |
|
pointer | :: |
perr | |
class(spect2d), |
intent(in), |
|
pointer | :: |
psp | |
integer, |
intent(in) |
|
| :: |
dim | |
integer, |
intent(in) |
|
| :: |
layout | |
integer, |
intent(in) |
|
| :: |
nd1 | |
integer, |
intent(in) |
|
| :: |
nd2 | |
integer, |
intent(in) |
|
| :: |
nvpx | |
integer, |
intent(in) |
|
| :: |
nvpy | |
procedure, private :: end_ufield2d
-
private subroutine end_ufield2d(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
procedure, public :: getdim
-
private function getdim(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getlayout
-
private function getlayout(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd1p
-
private function getnd1p(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnvpx
-
private function getnvpx(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd1
-
private function getnd1(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd2p
-
private function getnd2p(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnvpy
-
private function getnvpy(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnd2
-
private function getnd2(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getnoff
-
private function getnoff(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value integer
procedure, public :: getrf
-
private function getrf(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(in) |
|
| :: |
this | |
Return Value real,
dimension(:,:,:), pointer
procedure, private :: writehdf5
-
private subroutine writehdf5(this, file, dim)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(hdf5file), |
intent(in) |
|
| :: |
file | |
integer, |
intent(in) |
|
| :: |
dim | |
procedure, private :: acopyguard
-
private subroutine acopyguard(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
procedure, private :: copyguard
-
private subroutine copyguard(this)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
procedure, private :: piperecv_ufield2d
-
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
rtag | |
procedure, private :: pipesend_ufield2d
-
private subroutine pipesend_ufield2d(this, stag, id)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
integer, |
intent(in) |
|
| :: |
stag | |
integer, |
intent(inout) |
|
| :: |
id | |
procedure, private :: minus1
-
private subroutine minus1(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
procedure, private :: multiply2
-
private subroutine multiply2(this, a1, dim, dim1, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim1 | |
real, |
intent(in), |
|
dimension(:) | :: |
value | |
procedure, private :: multiply1
-
private subroutine multiply1(this, a1, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
real, |
intent(in) |
|
| :: |
value | |
procedure, private :: sum1
-
private subroutine sum1(this, a1, a2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
procedure, private :: asa
-
private subroutine asa(this, that)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
that | |
procedure, private :: asc
-
private subroutine asc(this, value)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
real, |
intent(in) |
|
| :: |
value | |
procedure, private :: minus2
-
private subroutine minus2(this, a1, a2, dim, dim1, dim2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim1 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim2 | |
procedure, private :: sum2
-
private subroutine sum2(this, a1, a2, dim, dim1, dim2)
Arguments
Type |
Intent | Optional |
Attributes | | Name | |
class(ufield2d), |
intent(inout) |
|
| :: |
this | |
class(ufield2d), |
intent(in), |
|
target | :: |
a1 | |
class(ufield2d), |
intent(in), |
|
target | :: |
a2 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim1 | |
integer, |
intent(in), |
|
dimension(:) | :: |
dim2 | |