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