This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / e / checf64.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:28  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10 #if defined(CERNLIB_DOUBLE)
11       SUBROUTINE DCHECF(F,A,B,EPS,C,NC,DELTA)
12 #endif
13 #if !defined(CERNLIB_DOUBLE)
14       SUBROUTINE RCHECF(F,A,B,EPS,C,NC,DELTA)
15 #endif
16 C         TO COMPUTE THE COEFFICIENTS IN A CHEBYSHEV EXPANSION
17 C         F(X)=C(0)+C(1)*T1(X)+ ... +C(M)*TM(X) (A <= X <= B)
18 C         WHERE TK(X) IS THE CHEBYSHEV POLYNOMIAL OF ORDER K
19 C
20 C    F       = FUNCTION ROUTINE FOR THE FUNCTION F(X).
21 C    A       = LOWER BOUNDARY
22 C    B       = UPPER BOUNDARY
23 C    EPS     = ACCURACY REQUIRED
24 C    C       = ARRAY FOR THE COMPUTED CHEBYSHEV COEFFICIENTS
25 C    NC      = NUMBER OF CHEBYSHEV COEFFICIENTS COMPUTED
26 C    DELTA   = ACCURACY OBTAINED FOR THE APPROXIMATION
27
28 #include "gen/imp64.inc"
29       CHARACTER NAME*(*)
30 #if defined(CERNLIB_DOUBLE)
31       PARAMETER (NAME = 'DCHECF')
32 #endif
33 #if !defined(CERNLIB_DOUBLE)
34       PARAMETER (NAME = 'RCHECF')
35 #endif
36       PARAMETER (PI = 3.14159 26535 89793 23846 26433 83D0)
37 #if !defined(CERNLIB_DOUBLE)
38       ENTRY CHECF(F,A,B,EPS,C,NC,DELTA)
39 #endif
40 #include "e406cod.inc"