close.f

Go to the documentation of this file.

      SUBROUTINE oclose(IUNIT)
      IMPLICIT NONE
      INTEGER iunit 
      CLOSE(iunit)
      RETURN 
      END