BLOCK DATA 
 
      INTEGER  IOSTEP 
      INTEGER  IONX 
      INTEGER  PACKET 
      INTEGER  IOFLAG 
      INTEGER  IOINDX 
      INTEGER  IONAME (6) 
      INTEGER ICLP03 
      COMMON   /IOC/    IOSTEP 
      COMMON   /IOC/    IONX 
      COMMON   /IOC/    PACKET 
      COMMON   /IOC/    IOFLAG 
      COMMON   /IOC/    IOINDX 
      COMMON   /IOC/    IONAME 
      COMMON   /IOC/    ICLP03 
      DATA  IOFLAG   /0/ 
      DATA  IOINDX   /1/ 
      DATA  IONAME   / 1861, 'NT','ER',  1865, 'NT','RP'/ 
      END