PDF version 8 added

[u/mrichter/AliRoot.git] / PDF / spdf / afgint.F

diff --git a/PDF/spdf/afgint.F b/PDF/spdf/afgint.F
new file mode 100644 (file)
index 0000000..59c05aa
--- /dev/null
+++ b/PDF/spdf/afgint.F
@@ -0,0 +1,41 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.2  1996/10/30 08:27:33  cernlib
+* Version 7.04
+*
+* Revision 1.1.1.1  1996/04/12 15:29:00  plothow
+* Version 7.01
+*
+*
+#include "pdf/pilot.h"
+      SUBROUTINE AFGINT(I,NDRV,X,S,ANS)
+      DIMENSION F1(32),F2(32),F3(32)
+      DIMENSION AF(3),AS(3)
+      DIMENSION CALCO(8,20,32)
+      COMMON/W5051IA/CALCO
+      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)=CALCO(I,IS,KL)
+      F2(L)=CALCO(I,IS1,KL)
+      F3(L)=CALCO(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