C
C  *** / R I O / ***
C
C  RANDOM FILE RECORD COUNT
C
      COMMON /RIO/ IRECPS(10)
C
C  VARIABLE DEFINITIONS
C         IRECPS--ARRAY CONTAINING THE NEXT RECORD NUMBER FOR THE
C                 RANDOM FILES (UNITS 30-39)
C