5 * Revision 1.1.1.1 1996/04/01 15:02:56 mclareni
10 SUBROUTINE RNMNML(N,NSUM,PCUM,NVEC,IERR)
13 DIMENSION PCUM(*),NVEC(*),RV(NRV)
16 IF(PCUM(N) .NE. 1) GO TO 9
19 IF(PCUM(I) .LT. PCUM(I-1)) GO TO 9
27 IF(J .EQ. J0) I0=MOD(NSUM,NRV)
31 IF(PCUM(K) .GE. RV(I)) THEN