C
parameter(nx=49,nq=37,ntenth=23,np=8)
C
-#include "pdf/expdp.inc"
+#if defined(CERNLIB_DOUBLE)
+ DOUBLE PRECISION
+#endif
+#if defined(CERNLIB_SINGLE)
+ REAL
+#endif
+ f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
+ .00515, .00344, 1.17157, .86093, .00000,