BLOCK DATA
    
      INTEGER     LIST (512)
      INTEGER     NAMES (512)   
      INTEGER     NCOUNT
      INTEGER     LSTOP 
      COMMON      /PNAMES/    LIST  
      COMMON      /PNAMES/    NAMES 
      COMMON      /PNAMES/    NCOUNT
      COMMON      /PNAMES/    LSTOP 
      DATA        LSTOP    /512/
      END