Ticket #7208: GlobalTypes.hs

File GlobalTypes.hs, 837 bytes (added by felipe zapata, 20 months ago)

file which caused panic because of lower case statement in deriving "show"

Line 
1
2module GlobalTypes (
3                 AtomData(..)
4                 ,Basis
5                 ,CGF
6                 ,Coeff
7                 ,MO
8                 ,NucCoord
9                 ,ZNumber                 
10                   ) where
11
12-- nuclear Coordinates
13type NucCoord = [Double]
14
15-- Contracted Gaussian function (coefficient,exponent)
16type CGF = [(Double,Double)]
17
18-- Molecular Orbitals
19type MO = Double
20
21-- Molecular Orbitals Coefficients
22type Coeff = [Double]
23
24--  Basis set
25type Basis = [Double]
26
27-- Atomic Number
28type ZNumber = Double
29
30data AtomData = AtomData {
31                 getCoord :: !NucCoord
32                ,getCGF   :: !CGF
33                ,getZ     :: !ZNumber
34                         } deriving (Show)
35
36data Funtype = S CGF | P CGF | D CGF
37               deriving (show,Eq)
38                         
39
40