10
1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-06-21 20:52:06 +02:00
qmcchem/src/types.F

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 ', &
' '/)