Searched refs:bnd_bc (Results 1 – 1 of 1) sorted by relevance
590 integer bnd_ab,bnd_bc local785 bnd_bc = k788 d = (bl(bnd_ab)-bl(bnd_bc))**2789 & / (bl(bnd_ab)+bl(bnd_bc))**2795 & *(bl(bnd_ab)+bl(bnd_bc))*exp(2.0d0*d))839 bnd_bc = k842 d = (bl(bnd_ab)-bl(bnd_bc))**2843 & / (bl(bnd_ab)+bl(bnd_bc))**2849 & *(bl(bnd_ab)+bl(bnd_bc))*exp(2.0d0*d))