mirror of https://gitlab.com/scemama/qmcchem.git
49 lines
1.6 KiB
Forth
49 lines
1.6 KiB
Forth
integer, parameter :: t_Brownian = 3
|
|
integer, parameter :: t_Langevin = 4
|
|
integer, parameter :: t_MTM = 5
|
|
integer, parameter :: t_Read = 6
|
|
|
|
integer, parameter :: t_VMC = 7
|
|
integer, parameter :: t_DMC = 8
|
|
integer, parameter :: t_SRMC = 9
|
|
integer, parameter :: t_FKMC = 10
|
|
integer, parameter :: t_PDMC = 11
|
|
|
|
integer, parameter :: t_Simple = 21
|
|
integer, parameter :: t_None = 22
|
|
integer, parameter :: t_Mu = 23
|
|
integer, parameter :: t_Core = 24
|
|
|
|
integer, parameter :: t_Stopped = 0
|
|
integer, parameter :: t_Queued = 1
|
|
integer, parameter :: t_Running = 2
|
|
integer, parameter :: t_Stopping = 3
|
|
|
|
character*(32) :: types(25) = &
|
|
(/ ' ', &
|
|
' ', &
|
|
'Brownian ', &
|
|
'Langevin ', &
|
|
' ', &
|
|
' ', &
|
|
'VMC ', &
|
|
'DMC ', &
|
|
'SRMC ', &
|
|
'FKMC ', &
|
|
'PDMC ', &
|
|
' ', &
|
|
' ', &
|
|
' ', &
|
|
' ', &
|
|
' ', &
|
|
' ', &
|
|
' ', &
|
|
' ', &
|
|
' ', &
|
|
'Simple ', &
|
|
'None ', &
|
|
'Mu ', &
|
|
'Core ', &
|
|
' '/)
|
|
|