| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=10), | private, | save | :: | class | = | 'fdist2d:' | |
| character(len=128), | private, | save | :: | erstr |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist2d), | intent(inout) | :: | this | |||
| type(input_json), | intent(inout), | pointer | :: | input | ||
| integer, | intent(in) | :: | i |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(spect2d), | public, | pointer | :: | sp | => | null() | |
| class(perrors), | public, | pointer | :: | err | => | null() | |
| class(parallel_pipe), | public, | pointer | :: | p | => | null() | |
| integer, | private | :: | npf | ||||
| integer, | private | :: | npmax |
| generic, public :: new => init_fdist2d | |
| generic, public :: del => end_fdist2d | |
| generic, public :: dist => dist2d | |
| procedure(ab_init_fdist2d), private :: init_fdist2d | |
| procedure, private :: end_fdist2d | |
| procedure(ab_dist2d), private :: dist2d | |
| procedure, public :: getnpmax | |
| procedure, public :: getnpf |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(spect2d), | public, | pointer | :: | sp | => | null() | |
| class(perrors), | public, | pointer | :: | err | => | null() | |
| class(parallel_pipe), | public, | pointer | :: | p | => | null() | |
| integer, | private | :: | xppc | ||||
| integer, | private | :: | yppc | ||||
| real, | private | :: | qm | ||||
| real, | private | :: | den | ||||
| character(len=:), | private, | allocatable | :: | long_prof | |||
| real, | private, | dimension(:), allocatable | :: | s | |||
| real, | private, | dimension(:), allocatable | :: | fs |
| generic, public :: new => init_fdist2d | |
| generic, public :: del => end_fdist2d | |
| generic, public :: dist => dist2d | |
| procedure, public :: getnpmax | |
| procedure, public :: getnpf | |
| procedure, private :: init_fdist2d => init_fdist2d_000 | |
| procedure, private :: dist2d => dist2d_000 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist2d), | intent(inout) | :: | this |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist2d_000), | intent(inout) | :: | this | |||
| type(input_json), | intent(inout), | pointer | :: | input | ||
| integer, | intent(in) | :: | i |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist2d_000), | intent(inout) | :: | this | |||
| real, | intent(inout), | dimension(:,:), pointer | :: | part2d | ||
| integer, | intent(inout) | :: | npp | |||
| class(ufield2d), | intent(in), | pointer | :: | fd | ||
| real, | intent(in) | :: | s |