home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / RAN.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  346 b   |  22 lines
  1. c    function ran(X)
  2. c      y=x 
  3. c      if(y.lt.1.)goto 1
  4. c    iy=y
  5. c      y=y/2.
  6. c      iiy=iy/2
  7. c    iq=iy-iiy
  8. c      if(iq.le. 0.1e-3) iy=iy + 1
  9. c1    call rand(iy,iz,y)
  10. c      ran=y
  11. c      x=y
  12. c      return
  13. c      end
  14.     function ran(xamp)
  15.     dimension aa(2)
  16.     data aa(1)/.3141593/
  17.     aa(1)=rand(aa(1))
  18.     ran=aa(1)
  19.     xamp=aa(1)
  20.     return
  21.     end
  22.