SUBROUTINE CLOSEFILE(LUNIT)
      WRITE(*,*) 'Closing unit ',LUNIT
      CLOSE(LUNIT)
      RETURN
      END