common
     $/cbkdbopi2ndc/ dbopi2ndc(nbomax,3,2*mbond+2)