[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / e / checf64.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:28  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if defined(CERNLIB_DOUBLE)
      SUBROUTINE DCHECF(F,A,B,EPS,C,NC,DELTA)
#endif
#if !defined(CERNLIB_DOUBLE)
      SUBROUTINE RCHECF(F,A,B,EPS,C,NC,DELTA)
#endif
C         TO COMPUTE THE COEFFICIENTS IN A CHEBYSHEV EXPANSION
C         F(X)=C(0)+C(1)*T1(X)+ ... +C(M)*TM(X) (A <= X <= B)
C         WHERE TK(X) IS THE CHEBYSHEV POLYNOMIAL OF ORDER K
C
C    F       = FUNCTION ROUTINE FOR THE FUNCTION F(X).
C    A       = LOWER BOUNDARY
C    B       = UPPER BOUNDARY
C    EPS     = ACCURACY REQUIRED
C    C       = ARRAY FOR THE COMPUTED CHEBYSHEV COEFFICIENTS
C    NC      = NUMBER OF CHEBYSHEV COEFFICIENTS COMPUTED
C    DELTA   = ACCURACY OBTAINED FOR THE APPROXIMATION

#include "gen/imp64.inc"
      CHARACTER NAME*(*)
#if defined(CERNLIB_DOUBLE)
      PARAMETER (NAME = 'DCHECF')
#endif
#if !defined(CERNLIB_DOUBLE)
      PARAMETER (NAME = 'RCHECF')
#endif
      PARAMETER (PI = 3.14159 26535 89793 23846 26433 83D0)
#if !defined(CERNLIB_DOUBLE)
      ENTRY CHECF(F,A,B,EPS,C,NC,DELTA)
#endif
#include "e406cod.inc"
Commit	Line	Data
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
	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"