33 INTEGER a1,a1vw,a1w,a2,a2vw,a2w,m1,m2
36 INTEGER cg1(numg),cg2(numg),ig1(numg),ig2(numg),lg1(numg),
46 EXTERNAL mltmod,qrgnin
52 COMMON /globe/m1,m2,a1,a2,a1w,a2w,a1vw,a2vw,ig1,ig2,lg1,lg2,cg1,
60 IF (qrgnin()) go to 10
61 WRITE (*,*)
' ADVNST called before random number generator ',
62 +
' initialized -- abort!'
64 + (
' ADVNST called before random number generator initialized')
71 ib1 = mltmod(ib1,ib1,m1)
72 ib2 = mltmod(ib2,ib2,m2)
74 CALL
setsd(mltmod(ib1,cg1(g),m1),mltmod(ib2,cg2(g),m2))
subroutine setsd(iseed1, iseed2)