+++ /dev/null
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.2 1996/10/30 08:27:32 cernlib
-* Version 7.04
-*
-* Revision 1.1.1.1 1996/04/12 15:29:00 plothow
-* Version 7.01
-*
-*
-#include "pdf/pilot.h"
- SUBROUTINE AFGIN2(I,NDRV,X,S,ANS)
- DIMENSION F1(32),F2(32),F3(32)
- DIMENSION AF(3),AS(3)
- DIMENSION CELCO(8,20,32)
- COMMON/W5051IB/CELCO
- DATA DELTA/0.8000E-01/
- ANS=0.
- IF(X.GT.0.9985) RETURN
- N=3
- IS=S/DELTA+1
-C IF(IS.GE.17) IS=17
- IS1=IS+1
- IS2=IS1+1
- DO 1 L=1,32
- KL=L+32*NDRV
- F1(L)=CELCO(I,IS,KL)
- F2(L)=CELCO(I,IS1,KL)
- F3(L)=CELCO(I,IS2,KL)
- 1 CONTINUE
- AF(1)=AFGETFV(X,F1)
- AF(2)=AFGETFV(X,F2)
- AF(3)=AFGETFV(X,F3)
- AS(1)=(IS-1)*DELTA
- AS(2)=AS(1)+DELTA
- AS(3)=AS(2)+DELTA
- CALL AFPOLIN(AS,AF,N,S,AANS,DY)
- ANS=AANS
- RETURN
- END