7
double precision q8_ei(18,3)
9
+ /1,-1, 0, 0, 1,-1, 1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
10
+ 0, 0, 1,-1, 1,-1,-1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
11
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/
13
double precision rdim,b,c2
29
ffd(i) = -1.0d00/c2-4.0d00*rdim/(2.0d00*b*c2)
31
ffb(i) = 4.0d00*rdim/(b*c2)
32
ffc(i) = 4.0d00*rdim*(rdim+2.0d00)/(2.0d00*b*c2**2)
33
ffd(i) = -4.0d00*rdim/(2.0d00*b*c2)
36
ffc(i) = rdim*(rdim+2.0d00)/(2.0d00*b*c2**2)
37
ffd(i) = -rdim/(2.0d00*b*c2)
42
c Initialize hash table
54
c Initialise inverse hash table