eplf/src/types.F

mirror of https://gitlab.com/scemama/eplf
      integer, parameter :: t_Gaussian = 1
      integer, parameter :: t_Slater   = 2

      character*(32)     :: types(t_Slater) = &
      (/ "Gaussian", "Slater", "Brownian", "Langevin", &
         "VMC", "DMC", "CI" /)
Added types.h 2009-06-10 00:41:32 +02:00			`integer, parameter :: t_Gaussian = 1`
			`integer, parameter :: t_Slater = 2`

Improved Makefile and configure 2009-12-04 10:42:19 +01:00			`character*(32) :: types(t_Slater) = &`
Added types.h 2009-06-10 00:41:32 +02:00			`(/ "Gaussian", "Slater", "Brownian", "Langevin", &`
			`"VMC", "DMC", "CI" /)`