This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / cgauss.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:15  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10 C This will be CGAUSS,IF=DOUBLE and CGAUSS64,IF=-DOUBLE.
11       FUNCTION CGAUSS(F,A,B,EPS)
12       COMPLEX CGAUSS,F,A,B,AA,BB,U,C1,C2,S8,S16,H
13       CHARACTER NAME*(*)
14       PARAMETER (NAME = 'CGAUSS')
15 #include "cgausscod.inc"
16    99 CGAUSS=H
17       RETURN
18       END