Skip to content
Snippets Groups Projects
Normal view Permalink
flush.f 218 B
Newer Older
  • Learn to ignore specific revisions
    • Douglas Guptill's avatar
    for XLF
    Douglas Guptill committed
    1 2 3 4 5 6 7 8 9 
          subroutine flush(unit)
c     
c     call flush_
c
c     written for XLF FORTRAN on the p690
c     Author: Douglas Guptill
c     2009-05-23: new

      integer unit
    Douglas Guptill's avatar
    updates from p690  
    Douglas Guptill committed
    10 
          call flush_(unit)
    Douglas Guptill's avatar
    for XLF
    Douglas Guptill committed
    11 12 13 
          return
      end