Skip to content
Find file Normal view History Permalink
flush.F90 105 B
Newer Older
Fabio Roberto Vitello's avatar
fly5.0.1
Fabio Roberto Vitello committed
1 2 3 4 5 6 7 8 9 
      subroutine flush(unit)

      integer*4 unit

      call flush_(unit)

      return
    
      end