BLOCK DATA 
 
      INTEGER  LEVELB, NLEVEL, LLEVEL, ILEVEL, CLEVEL 
      INTEGER ICLP04 
      COMMON   /LEVELS/ LEVELB, NLEVEL, LLEVEL, ILEVEL, CLEVEL 
      COMMON   /LEVELS/ ICLP04 
      DATA  NLEVEL   /1/ 
      DATA  LLEVEL   /2/ 
      DATA  ILEVEL   /3/ 
      DATA  CLEVEL   /4/ 
      END