home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / STRNUM.C < prev    next >
Encoding:
Text File  |  1984-07-24  |  295 b   |  18 lines
  1.       strnum(r)
  2.  
  3.       /*this subroutine generates a sequence of numbers which are*/
  4.       /*randomly and uniformly distributed over the unit interval.*/
  5.  
  6.       float *r;
  7.  
  8.      {
  9.  
  10.       int ir;
  11.       float p1;
  12.  
  13.       p1 = *r  * 317.;
  14.       ir = p1;
  15.       *r = p1 - ir;
  16.  
  17.      }
  18.