This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / e / checf64.F
CommitLineData
fe4da5cc 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
16C TO COMPUTE THE COEFFICIENTS IN A CHEBYSHEV EXPANSION
17C F(X)=C(0)+C(1)*T1(X)+ ... +C(M)*TM(X) (A <= X <= B)
18C WHERE TK(X) IS THE CHEBYSHEV POLYNOMIAL OF ORDER K
19C
20C F = FUNCTION ROUTINE FOR THE FUNCTION F(X).
21C A = LOWER BOUNDARY
22C B = UPPER BOUNDARY
23C EPS = ACCURACY REQUIRED
24C C = ARRAY FOR THE COMPUTED CHEBYSHEV COEFFICIENTS
25C NC = NUMBER OF CHEBYSHEV COEFFICIENTS COMPUTED
26C 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"