This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / e / checf128.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_QUAD)
11 #if !defined(CERNLIB_DOUBLE)
12       SUBROUTINE DCHECF(F,A,B,EPS,C,NC,DELTA)
13 #endif
14 #if defined(CERNLIB_DOUBLE)
15       SUBROUTINE QCHECF(F,A,B,EPS,C,NC,DELTA)
16 #endif
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
20 C
21 C    F       = FUNCTION ROUTINE FOR THE FUNCTION F(X).
22 C    A       = LOWER BOUNDARY
23 C    B       = UPPER BOUNDARY
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
28
29 #include "gen/imp128.inc"
30 C
31       CHARACTER NAME*(*)
32 #if defined(CERNLIB_DOUBLE)
33       PARAMETER (NAME = 'QCHECF')
34       PARAMETER (PI = 3.14159 26535 89793 23846 26433 832795Q0)
35 #endif
36 #if !defined(CERNLIB_DOUBLE)
37       PARAMETER (NAME = 'DCHECF')
38       PARAMETER (PI = 3.14159 26535 89793 23846 26433 83D0)
39 #endif
40 #include "e406cod.inc"
41 #endif