5 * Revision 1.1.1.1 1996/04/01 15:02:28 mclareni
10 #if defined(CERNLIB_QUAD)
11 #if !defined(CERNLIB_DOUBLE)
12 SUBROUTINE DCHECF(F,A,B,EPS,C,NC,DELTA)
14 #if defined(CERNLIB_DOUBLE)
15 SUBROUTINE QCHECF(F,A,B,EPS,C,NC,DELTA)
17 C TO COMPUTE THE COEFFICIENTS IN A CHEBYSHEV EXPANSION
18 C F(X)=C(0)+C(1)*T1(X)+ ... +C(M)*TM(X) (A <= X <= B)
19 C WHERE TK(X) IS THE CHEBYSHEV POLYNOMIAL OF ORDER K
21 C F = FUNCTION ROUTINE FOR THE FUNCTION F(X).
24 C EPS = ACCURACY REQUIRED
25 C C = ARRAY FOR THE COMPUTED CHEBYSHEV COEFFICIENTS
26 C NC = NUMBER OF CHEBYSHEV COEFFICIENTS COMPUTED
27 C DELTA = ACCURACY OBTAINED FOR THE APPROXIMATION
29 #include "gen/imp128.inc"
32 #if defined(CERNLIB_DOUBLE)
33 PARAMETER (NAME = 'QCHECF')
34 PARAMETER (PI = 3.14159 26535 89793 23846 26433 832795Q0)
36 #if !defined(CERNLIB_DOUBLE)
37 PARAMETER (NAME = 'DCHECF')
38 PARAMETER (PI = 3.14159 26535 89793 23846 26433 83D0)
40 #include "e406cod.inc"