closeunits.f

Go to the documentation of this file.

      subroutine closeunits
c
c     close all scratch units
c***********************************************************************
c
      close (18)
      close (19)
      close (53)
      close (54)
      close (55)
      close (64)
      close (65)
      close (54)
      close (71)
      close (72)
      close (73)
      close (74)
c
      return
      end
c***********************************************************************