add_ssaaaa
add_ssaaaa (n1, n0, r - d0, np[0], 0, d0);
add_ssaaaa (_xh, _xl, _xh, _xl, 0, nadj); \
add_ssaaaa (_xh, _xl, _xh, _xl, nh, nl); \
add_ssaaaa (_xh, _xl, _xh, _xl, 0, nadj); \
add_ssaaaa (_xh, _xl, _xh, _xl, nh, nl); \
#if !defined (add_ssaaaa)
add_ssaaaa (n1, n0, r - d0, 0, 0, d0);