| 4 |
|
|
| 5 |
|
!! @author Charles F. Vardeman II |
| 6 |
|
!! @author Matthew Meineke |
| 7 |
< |
!! @version $Id: do_Forces.F90,v 1.9 2003-03-10 23:19:23 gezelter Exp $, $Date: 2003-03-10 23:19:23 $, $Name: not supported by cvs2svn $, $Revision: 1.9 $ |
| 7 |
> |
!! @version $Id: do_Forces.F90,v 1.10 2003-03-11 17:46:18 gezelter Exp $, $Date: 2003-03-11 17:46:18 $, $Name: not supported by cvs2svn $, $Revision: 1.10 $ |
| 8 |
|
|
| 9 |
|
|
| 10 |
|
|
| 458 |
|
if (Atype_i%is_dp .and. Atype_j%is_dp) then |
| 459 |
|
|
| 460 |
|
call do_dipole_pair(i, j, atype_i, atype_j, rx_ij, ry_ij, rz_ij, r_ij, & |
| 461 |
< |
rt, rrf, pot, u_l, f, t) |
| 461 |
> |
pot, u_l, f, t) |
| 462 |
|
|
| 463 |
|
if (do_reaction_field) then |
| 464 |
|
call accumulate_rf(i, j, r_ij, rt, rrf) |
| 479 |
|
|
| 480 |
|
if (Atype_i%is_dp .and. Atype_j%is_dp) then |
| 481 |
|
call do_dipole_pair(i, j, atype_i, atype_j, rx_ij, ry_ij, rz_ij, r_ij, & |
| 482 |
< |
rt, rrf, pot, u_l, f, t) |
| 482 |
> |
pot, u_l, f, t) |
| 483 |
|
|
| 484 |
|
if (do_reaction_field) then |
| 485 |
|
call accumulate_rf(i, j, r_ij, rt, rrf) |
