home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / drand.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  939 b   |  20 lines
  1.         SUBROUTINE      DRAND  (ISEED,RNUM)
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     DRAND                                   /
  5. C/      Date-written.   Jan. 16th 1984                          /
  6. C/      File-name.      DRAND.FOR                               /
  7. C/      Remarks.        Subroutine DRAND.FOR page 96.           /
  8. C/                      Generates a uniformly distributed     /
  9. C/                      random variable between 0.0 and 1.0.    /
  10. C/                      This is a pseudo-random number and was  /
  11. C/                      modified for IBM 1130 subroutine     /
  12. C/                                                              /
  13. C////////////////////////////////////////////////////////////////
  14. C
  15. C    * This is a dummy; real work is done by RANDU.
  16. C
  17.         CALL    RANDU(ISEED,RNUM)
  18.         RETURN
  19.         END
  20.