5 * Revision 1.1.1.1 1996/04/01 15:02:56 mclareni
10 SUBROUTINE RNPSSN(AMU,N,IERR)
15 DATA AMU0 /-12345.67/, AMAX /88/
22 ELSEIF(AMU .GT. AMAX) THEN
23 CALL RNORMX(R,1,RANLUX)
26 IF(AMU .NE. AMU0) THEN
35 IF(P .GT. EMU) GO TO 1
42 WRITE(6,'(/7X,''+++++ CERN V136 RNPSSN : SWITCH TO '',
43 1 ''NORMAL APPROXIMATION FOR AMU > '',F7.2/)') AMAX