closemore.f

Go to the documentation of this file.

      subroutine closemore
c
c     close more units
c***********************************************************************
c
c      close (2)
      close (3)
      close (4)
c      close (5)
      close (13)
      close (14)
      close (15)
      close (16)
c      close (17)
c      close (20)
c      close (21)
      close (24)
      close (30)
c
      return
      end
c***********************************************************************