Skip to main content

Browse the archive

Revision 69b0f9dca8eb051f132725ecc679fe1997246e50 authored by Adrian Baddeley on 18 January 2006, 21:47:25 UTC, committed by cran-robot on 18 January 2006, 21:47:25 UTC 
version 1.8-5
1 parent cb2215f
Raw File
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
back to top