home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / randu.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  787 b   |  19 lines
  1.         SUBROUTINE      RANDU(IY,YFL)
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     RANDU                                   /
  5. C/      Date-written.   Jan. 16th 1984                          /
  6. C/      File-name.      RANDU.FOR                               /
  7. C/      Remarks.        Subroutine RANDU.FOR page 96.           /
  8. C/                      RANDU is a modefied IBM 1130 subroutine /
  9. C/                                                              /
  10. C////////////////////////////////////////////////////////////////
  11. C
  12.         IY = IY * 899
  13.         IF (IY.GE.0) GO TO 10
  14.         IY = IY + 32767 + 1 
  15.    10   YFL = IY
  16.         YFL = YFL / 32767.0
  17.         RETURN
  18.         END
  19.