BLOCK DATA 
 
      INTEGER     LIST (499), NAMES (499), CT, BITS (6, 2) 
      INTEGER ICLP08 
      COMMON      /PNACOM / LIST, NAMES, CT, BITS 
      COMMON      /PNACOM / ICLP08 
      END