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

      integer, parameter :: t_Brownian = 3 
      integer, parameter :: t_Langevin = 4 

      integer, parameter :: t_VMC      = 5 
      integer, parameter :: t_DMC      = 6 
      integer, parameter :: t_CI       = 7 

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