17 #include "./base/base_uses.f90"
27 TYPE qmmm_gaussian_type
28 INTEGER :: number_of_gaussians
29 REAL(KIND=
dp) :: elp_radius, elp_radius_corr
30 INTEGER,
DIMENSION(:),
POINTER :: grid_level
31 REAL(KIND=
dp),
DIMENSION(:),
POINTER :: ak, gk
32 END TYPE qmmm_gaussian_type
42 TYPE qmmm_gaussian_p_type
43 TYPE(qmmm_gaussian_type),
POINTER :: pgf
44 END TYPE qmmm_gaussian_p_type
46 PUBLIC :: qmmm_gaussian_type, &
Defines the basic variable types.
integer, parameter, public dp
Sets the typo for the gaussian treatment of the qm/mm interaction.