integer, parameter :: t_Gaussian = 1
      integer, parameter :: t_Slater   = 2

      character*(32)     :: types(t_Slater) = &
      (/ "Gaussian", "Slater", "Brownian", "Langevin", &
         "VMC", "DMC", "CI" /)