
      INTEGER IDMAX9 , NZK
      DOUBLE PRECISION WT
 
 
      PARAMETER (IDMAX9=602)
      CHARACTER*8 ZKName
      COMMON /HNDECH/ ZKName(IDMAX9) , WT(IDMAX9) , NZK(IDMAX9,3)
