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