This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / cgauss64.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:16  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
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
15       CHARACTER NAME*(*)
16       PARAMETER (NAME = 'WGAUSS')
17 #include "cgausscod.inc"
18
19    99 WGAUSS=H
20       RETURN
21       END
22 #endif