5 * Revision 1.1.1.2 1996/10/30 08:27:37 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:03 plothow
12 #include "pdf/pilot.h"
14 SUBROUTINE AURPI3(I,NDRV,X,S,ANS)
15 #include "pdf/expdp.inc"
17 COMMON/W5051I6/CALCPIO
21 IF(X.GT.0.9985) RETURN
22 IF(I.EQ.3.AND.X.GT.0.95) RETURN
23 IF(I.EQ.8.AND.X.GT.0.95) RETURN
28 F1(L)=CALCPIO(I,IS,KL)
29 F2(L)=CALCPIO(I,IS1,KL)
35 ANS=A1*(S-S2)/(S1-S2)+A2*(S-S1)/(S2-S1)