mirror of https://gitlab.com/scemama/eplf
15 lines
442 B
Forth
15 lines
442 B
Forth
integer, parameter :: t_Gaussian = 1
|
|
integer, parameter :: t_Slater = 2
|
|
|
|
integer, parameter :: t_Brownian = 3
|
|
integer, parameter :: t_Langevin = 4
|
|
|
|
integer, parameter :: t_VMC = 5
|
|
integer, parameter :: t_DMC = 6
|
|
integer, parameter :: t_CI = 7
|
|
|
|
character*(32) :: types(t_CI) = &
|
|
(/ "Gaussian", "Slater", "Brownian", "Langevin", &
|
|
"VMC", "DMC", "CI" /)
|
|
|