common
     $/cbksrthb/ vhb1(nhbtym),vhb2(nhbtym),rhb(nhbtym),
     $           dehb(nhbtym),ihb(nhbmax,8),nhb,
     $           nphb(nsort),nhbs(nhbtym,3),nhbty,hbcut,
     $           lhbnew