module_gauss.f90

module gauss
double precision, dimension (8), parameter :: ww=1.d0
double precision, dimension (8), parameter :: rr=(/ &
-.577350269189626d0, &
 .577350269189626d0, &
 .577350269189626d0, &
-.577350269189626d0, &
-.577350269189626d0, &
 .577350269189626d0, &
 .577350269189626d0, &
-.577350269189626d0 /)

double precision, dimension (8), parameter :: ss=(/ &
-.577350269189626d0, &
-.577350269189626d0, &
 .577350269189626d0, &
 .577350269189626d0, &
-.577350269189626d0, &
-.577350269189626d0, &
 .577350269189626d0, &
 .577350269189626d0 /)

double precision, dimension (8), parameter :: tt=(/ &
-.577350269189626d0, &
-.577350269189626d0, &
-.577350269189626d0, &
-.577350269189626d0, & 
 .577350269189626d0, &
 .577350269189626d0, &
 .577350269189626d0, &
 .577350269189626d0 /)
end module