5 * Revision 1.1.1.2 1996/10/30 08:27:35 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:02 plothow
12 #include "pdf/pilot.h"
13 SUBROUTINE AURGAM(I,NDRV,X,S,ANS)
14 DIMENSION F1(32),F2(32),F3(32)
16 DIMENSION CALCO(8,20,32)
18 DATA DELTA/0.8000E-01/
20 IF(X.GT.0.9985) RETURN
38 CALL AFPOLIN(AS,AF,N,S,AANS,DY)