Searched refs:bnd_ab (Results 1 – 1 of 1) sorted by relevance
590 integer bnd_ab,bnd_bc local781 bnd_ab = 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))835 bnd_ab = 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))