| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=10), | private, | save | :: | class | = | 'fdist3d:' | |
| character(len=128), | private, | save | :: | erstr |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist3d), | intent(inout) | :: | this | |||
| type(input_json), | intent(inout), | pointer | :: | input | ||
| integer, | intent(in) | :: | i |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(spect3d), | 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_fdist3d | |
| generic, public :: del => end_fdist3d | |
| generic, public :: dist => dist3d | |
| procedure(ab_init_fdist3d), private :: init_fdist3d | |
| procedure, private :: end_fdist3d | |
| procedure(ab_dist3d), private :: dist3d | |
| procedure, public :: getnpmax | |
| procedure, public :: getnpf |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(spect3d), | public, | pointer | :: | sp | => | null() | |
| class(perrors), | public, | pointer | :: | err | => | null() | |
| class(parallel_pipe), | public, | pointer | :: | p | => | null() | |
| integer, | private | :: | npx | ||||
| integer, | private | :: | npy | ||||
| integer, | private | :: | npz | ||||
| real, | private | :: | qm | ||||
| real, | private | :: | sigx | ||||
| real, | private | :: | sigy | ||||
| real, | private | :: | sigz | ||||
| real, | private | :: | bcx | ||||
| real, | private | :: | bcy | ||||
| real, | private | :: | bcz | ||||
| real, | private | :: | sigvx | ||||
| real, | private | :: | sigvy | ||||
| real, | private | :: | sigvz | ||||
| real, | private | :: | cx1 | ||||
| real, | private | :: | cx2 | ||||
| real, | private | :: | cx3 | ||||
| real, | private | :: | cy1 | ||||
| real, | private | :: | cy2 | ||||
| real, | private | :: | cy3 | ||||
| real, | private | :: | gamma | ||||
| real, | private | :: | np | ||||
| logical, | private | :: | quiet |
| generic, public :: new => init_fdist3d | |
| generic, public :: del => end_fdist3d | |
| generic, public :: dist => dist3d | |
| procedure, public :: getnpmax | |
| procedure, public :: getnpf | |
| procedure, private :: init_fdist3d => init_fdist3d_000 | |
| procedure, private :: dist3d => dist3d_000 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist3d), | intent(inout) | :: | this |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist3d_000), | intent(inout) | :: | this | |||
| type(input_json), | intent(inout), | pointer | :: | input | ||
| integer, | intent(in) | :: | i |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(fdist3d_000), | intent(inout) | :: | this | |||
| real, | intent(inout), | dimension(:,:), pointer | :: | part3d | ||
| integer, | intent(inout) | :: | npp | |||
| class(ufield3d), | intent(in), | pointer | :: | fd |