5 * Revision 1.1.1.1 1996/04/01 15:02:28 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 SUBROUTINE DCHECF(F,A,B,EPS,C,NC,DELTA)
13 #if !defined(CERNLIB_DOUBLE)
14 SUBROUTINE RCHECF(F,A,B,EPS,C,NC,DELTA)
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
20 C F = FUNCTION ROUTINE FOR THE FUNCTION F(X).
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
28 #include "gen/imp64.inc"
30 #if defined(CERNLIB_DOUBLE)
31 PARAMETER (NAME = 'DCHECF')
33 #if !defined(CERNLIB_DOUBLE)
34 PARAMETER (NAME = 'RCHECF')
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)
40 #include "e406cod.inc"