home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / adaptor / examples / dalib / timing / resolut.f < prev    next >
Encoding:
Text File  |  1993-04-15  |  274 b   |  17 lines
  1.       program resolution
  2.  
  3.       real tstart, tstop
  4.       logical run
  5.  
  6.       call walltime (tstart)
  7.  
  8.       run = .true.
  9.       do while (run)
  10.         call walltime (tstop)
  11.         print *, 'walltime = ', tstop
  12.         run = (tstop - 10.0 .lt. tstart)
  13.       end do
  14.  
  15.       end
  16.  
  17.