8 double complex im,impi,czip,chalf,cone,ctwo,c2ipi
9 parameter(im=(0d0,1d0),impi=(0d0,3.14159265358979d0),
10 . czip=(0d0,0d0),chalf=(0.5d0,0d0),cone=(1d0,0d0),ctwo=(2d0,0d0),
double precision pisqo6 three
double precision pisqo6 half
double precision pisqo6 two
double precision pisqo6 parameter(pi=3.14159265358979d0, pisq=pi *pi, pisqo6=pisq/6d0) double precision zip
double precision pisqo6 one
double precision pisqo6 four