5 * Revision 1.1.1.2 1996/10/30 08:27:31 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:28:59 plothow
12 #include "pdf/pilot.h"
13 FUNCTION AFGETFV(X,FVL)
14 C NOUVEAU PROGRAMME D'INTERPOLATION UTILISANT UNE ROUTINE DE MATH. RECIPES
16 #include "pdf/expdp.inc"
17 + XI(32),WI(32),XX(33)
18 COMMON/W5051I9/XI,WI,XX,NTERMS
24 C IF(X.LT.XAM) PRINT*,' X = ',X
25 IF(X.GT.XAM.AND.X.LT.XAP) GO TO 50
29 80 IF(X.LT.XX(2)) GO TO 51
30 IF(X.GT.XX(30)) GO TO 61
32 IF(X.GT.XX(I)) GO TO 1
60 C 70 IF(X.GT..2.AND.X.LT..8) THEN
61 C CALL AFPOLIN(A,B,N,X,Y,DY)
63 C CALL AFRATIN(A,B,N,X,Y,DY)
66 CALL AFPOLIN(A,B,N,X,Y,DY)