SUBROUTINE RIOCLO(FILE)
C
C     ***UNIX SYSDEP ROUTINE
C
C     CLOSE A RANDOM ACCESS FILE
C
c     no action required
      RETURN
      END