Balloc
bd = Balloc(bd0->k);
mhi = Balloc(mhi->k);
b1 = Balloc(b->k+1);
b = Balloc(k);
b = Balloc(k+1);
b = Balloc(1);
c = Balloc(k);
b1 = Balloc(k1);
c = Balloc(0);
c = Balloc(a->k);
b = Balloc(1);
b = Balloc(2);