15 #include "../base/base_uses.f90"
21 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'ps_wavelet_types'
28 PUBLIC :: ps_wavelet_type, &
37 CHARACTER(LEN=1) :: geocode =
" "
38 CHARACTER(LEN=1) :: datacode =
" "
39 INTEGER :: itype_scf = 0
40 INTEGER :: method =
wavelet3d, special_dimension = 0
41 REAL(kind=
dp),
POINTER,
DIMENSION(:) :: karray => null()
42 REAL(kind=
dp),
DIMENSION(:, :, :),
POINTER :: rho_z_sliced => null()
43 INTEGER,
DIMENSION(3) :: ps_grid = 0
44 END TYPE ps_wavelet_type
54 TYPE(ps_wavelet_type),
POINTER :: wavelet
56 IF (
ASSOCIATED(wavelet))
THEN
57 IF (
ASSOCIATED(wavelet%karray)) &
58 DEALLOCATE (wavelet%karray)
59 IF (
ASSOCIATED(wavelet%rho_z_sliced)) &
60 DEALLOCATE (wavelet%rho_z_sliced)
Defines the basic variable types.
integer, parameter, public dp
Definition and initialisation of the ps_wavelet data type.
integer, parameter, public wavelet3d
integer, parameter, public wavelet0d
integer, parameter, public wavelet1d
subroutine, public ps_wavelet_release(wavelet)
...
integer, parameter, public wavelet2d