Lines Matching refs:rr2
490 real*8 x1,y1,z1,x2,y2,z2,rr1,rr2
508 rr2 = x2**2 + y2**2 + z2**2
509 ff = fion(1,indxa(1))*( x1/rr1 + x2/rr2)
510 > + fion(2,indxa(1))*( y1/rr1 + y2/rr2)
511 > + fion(3,indxa(1))*( z1/rr1 + z2/rr2)
512 > + fion(1,indxa(2))*(-x1/rr1 - x2/rr2)
513 > + fion(2,indxa(2))*(-y1/rr1 - y2/rr2)
514 > + fion(3,indxa(2))*(-z1/rr1 - z2/rr2)
515 > + fion(1,indxa(3))*(-x1/rr1 + x2/rr2)
516 > + fion(2,indxa(3))*(-y1/rr1 + y2/rr2)
517 > + fion(3,indxa(3))*(-z1/rr1 + z2/rr2)
529 rr2 = x2**2 + y2**2 + z2**2
536 > + fion(1,indxa(3))*(-x2/rr2)
537 > + fion(2,indxa(3))*(-y2/rr2)
538 > + fion(3,indxa(3))*(-z2/rr2)
539 > + fion(1,indxa(4))*( x2/rr2)
540 > + fion(2,indxa(4))*( y2/rr2)
541 > + fion(3,indxa(4))*( z2/rr2)
547 ac(indx) = ac(indx) + rr1 - rr2 - blist(1)