SUBROUTINE OCLOSE(IUNIT)
      IMPLICIT NONE
      INTEGER IUNIT 
      CLOSE(IUNIT)
      RETURN 
      END