INTEGER*2 HIBSZ,HIBLB(2),HFMAX,HSBCL,HDVTY,HVLEV LOGICAL*1 HVNAM(12),IIIII1(4) INTEGER*2 HVOWN,HVPRO,HVCHA,HDFPR,IIIII2(3) LOGICAL*1 HWISZ,HFIEX,HLRUC,IIIII3(11) INTEGER*2 HCHK1 LOGICAL*1 HVDAT(14),IIIII4(100),IIIII5(82),IIIII6(254) INTEGER*2 HCHK2 COMMON /HOMBLK/HIBSZ,HIBLB,HFMAX,HSBCL,HDVTY,HVLEV,HVNAM 1 ,IIIII1,HVOWN,HVPRO,HVCHA,HDFPR,IIIII2 1 ,HWISZ,HFIEX,HLRUC,IIIII3,HCHK1,HVDAT 1 ,IIIII4,IIIII5,IIIII6,HCHK2