mirror of
https://gitlab.com/scemama/eplf
synced 2024-09-26 19:50:44 +02:00
8 lines
224 B
Forth
8 lines
224 B
Forth
integer, parameter :: t_Gaussian = 1
|
|
integer, parameter :: t_Slater = 2
|
|
|
|
character*(32) :: types(t_Slater) = &
|
|
(/ "Gaussian", "Slater", "Brownian", "Langevin", &
|
|
"VMC", "DMC", "CI" /)
|
|
|