2019-03-13 11:34:51 +01:00
|
|
|
integer,parameter :: ncart = 3
|
2019-02-07 22:49:12 +01:00
|
|
|
integer,parameter :: nspin = 2
|
2019-03-13 11:34:51 +01:00
|
|
|
integer,parameter :: nsp = 3
|
|
|
|
|
integer,parameter :: maxEns = 10
|
2019-02-07 22:49:12 +01:00
|
|
|
integer,parameter :: maxShell = 50
|
|
|
|
|
integer,parameter :: n1eInt = 3
|
|
|
|
|
integer,parameter :: n2eInt = 4
|
|
|
|
|
integer,parameter :: n3eInt = 3
|
|
|
|
|
integer,parameter :: n4eInt = 3
|
|
|
|
|
integer,parameter :: maxK = 20
|
|
|
|
|
|
2019-03-13 11:34:51 +01:00
|
|
|
double precision,parameter :: threshold = 1d-15
|
2019-02-07 22:49:12 +01:00
|
|
|
double precision,parameter :: pi = acos(-1d0)
|
|
|
|
|
double precision,parameter :: HaToeV = 27.21138602d0
|
|
|
|
|
double precision,parameter :: pmtoau = 0.0188973d0
|
|
|
|
|
|
