home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Reference Guide / C-C++ Interactive Reference Guide.iso / c_ref / csource5 / 349_01 / sss.arc / EX_0206.FOR < prev    next >
Encoding:
Text File  |  1991-04-09  |  798 b   |  32 lines
  1. C     Program EX_0206.FOR
  2. C     Listing 2F - see documentation in TUTOR.SSS
  3.  
  4. $include:'SSSF1.H'
  5.  
  6.       real*8 function rnx(m, s)
  7. $include:'SSSF2.H'
  8.       real*8 m, s, x
  9.   99  x = RN(m, s)
  10.       if (x.lt.0.0) goto 99
  11.       rnx = x
  12.       return
  13.       end
  14.  
  15.       Program EX_0206
  16. $include:'SSSF2.H'
  17.       real*8  pt, rnx, mean, sd, erm, min, mode, max
  18.       data mean /7.0/, sd /4.0/, erm /2.0/
  19.       data min /1.0/, mode /3.0/ max /4.0/
  20.  
  21.       pt = rnx(mean, sd)
  22.   99 write (*, '(A, F7.2\)')' start of call is at ', pt
  23.         if (RA().lt.0.25) then
  24.           pt = pt + ER(2, erm)
  25.         else
  26.           pt = pt + TR(min, mode, max)
  27.         endif
  28.         write (*, '(A, F7.2)')' ends at ', pt
  29.         pt = pt + rnx(mean, sd)
  30.       if (pt.lt.120.0) goto 99
  31.       end
  32.