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_0201.FOR < prev    next >
Encoding:
Text File  |  1991-04-09  |  364 b   |  22 lines
  1. C     Listing 1F - see documentation in TUTOR.SSS
  2.  
  3. $include:'SSSF1.H'
  4.  
  5.       Program EX_0201
  6.  
  7. $include:'SSSF2.H'
  8.  
  9.       real*8 pt
  10.  
  11.       pt = EX(0.5)
  12.  
  13.   99  continue
  14.       if (pt.le.10.0) then
  15.         write (*, '(A, F7.2)')
  16.      +    ' A new ship enters the port at time', pt
  17.         pt = pt + EX(0.5)
  18.         goto 99
  19.       endif
  20.  
  21.       end
  22.