33 IF (.NOT. (low.GT.high)) go
to 10
34 WRITE (*,*)
'LOW > HIGH in GENUNF: LOW ',low,
' HIGH: ',high
36 CALL xstopx(
'LOW > High in GENUNF - Abort')
38 10
genunf = low + (high-low)*ranf()
real function genunf(low, high)
may be zero for pure relative error test tem the relative tolerance must be greater than or equal to