mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-09 07:33:53 +01:00
11 lines
503 B
FortranFixed
11 lines
503 B
FortranFixed
|
integer, parameter :: max_dim = 255
|
||
|
|
integer, parameter :: SIMD_vector = 32
|
||
|
|
|
||
|
|
double precision, parameter :: pi = dacos(-1.d0)
|
||
|
|
double precision, parameter :: sqpi = dsqrt(dacos(-1.d0))
|
||
|
|
double precision, parameter :: pi_5_2 = 34.9868366552d0
|
||
|
|
double precision, parameter :: dfour_pi = 4.d0*dacos(-1.d0)
|
||
|
|
double precision, parameter :: dtwo_pi = 2.d0*dacos(-1.d0)
|
||
|
|
double precision, parameter :: inv_sq_pi = 1.d0/dsqrt(dacos(-1.d0))
|
||
|
|
double precision, parameter :: inv_sq_pi_2 = 0.5d0/dsqrt(dacos(-1.d0))
|