15 #include "./base/base_uses.f90"
24 TYPE semi_empirical_expns3_type
25 REAL(KIND=
dp) :: core_core
26 REAL(KIND=
dp),
DIMENSION(9) :: e1b, e2a
27 REAL(KIND=
dp),
DIMENSION(81) :: w
28 END TYPE semi_empirical_expns3_type
34 TYPE semi_empirical_expns3_p_type
35 TYPE(semi_empirical_expns3_type),
POINTER :: expns3
36 END TYPE semi_empirical_expns3_p_type
39 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'semi_empirical_expns3_types'
41 PUBLIC :: semi_empirical_expns3_p_type, &
53 TYPE(semi_empirical_expns3_type),
POINTER :: expns3
55 cpassert(.NOT.
ASSOCIATED(expns3))
57 expns3%core_core = 0.0_dp
69 TYPE(semi_empirical_expns3_type),
POINTER :: expns3
71 IF (
ASSOCIATED(expns3))
THEN
Defines the basic variable types.
integer, parameter, public dp
Definition of the type to handle the 1/R^3 residual integral part.
subroutine, public semi_empirical_expns3_release(expns3)
Deallocate the semi-empirical type.
subroutine, public semi_empirical_expns3_create(expns3)
Allocate semi-empirical 1/R^3 expansion type.