5 * Revision 1.1.1.1 1996/04/01 15:02:16 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 FUNCTION WGAUSS(F,A,B,EPS)
12 #include "gen/imp64.inc"
13 #include "gen/defc64.inc"
14 + WGAUSS,F,A,B,AA,BB,U,C1,C2,S8,S16,H
16 PARAMETER (NAME = 'WGAUSS')
17 #include "cgausscod.inc"