Revision 9fc33b4ac23fdcf8e2e93aacb1e9fc5842d57bf3 authored by Adrian Baddeley on 18 December 2007, 00:00:00 UTC, committed by Gabor Csardi on 18 December 2007, 00:00:00 UTC
1 parent 6db367d
aru.f
C Output from Public domain Ratfor, version 1.0
subroutine aru(n,a,b,iseed,rrr)
implicit double precision(a-h,o-z)
dimension iseed(3), rrr(n)
w = b-a
do23000 i = 1,n
call arand(iseed(1),iseed(2),iseed(3),rv)
rrr(i) = a + w*rv
23000 continue
23001 continue
return
end
Computing file changes ...
