common
     $/cbkboncor/ dbosindc(nbomax,3,2*mbond+2),dbosidc(nbomax,3,2),
     $            bo131(nsort),bo132(nsort),bo133(nsort),
     $            ovc(nbotym),v13cor(nbotym)