1 SUBROUTINE setsd(iseed1,iseed2)
36 INTEGER a1,a1vw,a1w,a2,a2vw,a2w,m1,m2
39 INTEGER cg1(numg),cg2(numg),ig1(numg),ig2(numg),lg1(numg),
54 COMMON /globe/m1,m2,a1,a2,a1w,a2w,a1vw,a2vw,ig1,ig2,lg1,lg2,cg1,
62 IF (qrgnin()) go
to 10
63 WRITE (*,*)
' SETSD called before random number generator ',
64 +
' initialized -- abort!'
66 + (
' SETSD called before random number generator initialized')
subroutine setsd(iseed1, iseed2)
may be zero for pure relative error test tem the relative tolerance must be greater than or equal to
subroutine initgn(isdtyp)