BLOCK DATA 
 
      INTEGER     NLIST (500) 
      INTEGER     NLOC  (500) 
      INTEGER     NTEXT (1500) 
      INTEGER     NTEXTX (500) 
      COMMON   /NARAY/  NLIST 
      COMMON   /NARAY/  NLOC 
      COMMON   /NARAY/  NTEXT 
      COMMON   /NARAY/  NTEXTX 
      DATA     NLIST /500*0/,NTEXTX /500*0/,NLOC /500*0/ 
      END