This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / dgquad.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 *         Double Prec. version only on 32 bit machines.
10 #include "gen/pilot.h"
11 #if defined(CERNLIB_DOUBLE)
12       FUNCTION DGQUAD(F,A,B,N)
13 #include "gen/imp64.inc"
14       DIMENSION X(1),W(1)
15       EXTERNAL F
16
17       CALL D107D1(1,F,A,B,N,X,W)
18       DGQUAD=X(1)
19       RETURN
20       END
21 #endif