BLOCK DATA 
 
      INTEGER     XNX, XNXMAX, XNAME (100) 
      COMMON      /XNAMC/  XNX, XNXMAX, XNAME 
      DATA     XNX      /    1/ 
      DATA     XNXMAX   /   99/ 
      DATA     XNAME    /100*0/ 
      END