5 * Revision 1.4 2000/09/18 10:02:35 hristov
6 * Makefile added to PDF8
8 * Revision 1.1.1.2 1996/10/30 08:27:37 cernlib
11 * Revision 1.1.1.1 1996/04/12 15:29:04 plothow
15 #include "pdf/pilot.h"
16 SUBROUTINE AURPR(I,NDRV,X,S,ANS)
17 #if defined(CERNLIB_DOUBLE)
20 #if defined(CERNLIB_SINGLE)
28 IF(X.GT.0.9985) RETURN
29 IF(I.EQ.3.AND.X.GT.0.95) RETURN
30 IF(I.EQ.8.AND.X.GT.0.95) RETURN
42 ANS=A1*(S-S2)/(S1-S2)+A2*(S-S1)/(S2-S1)