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) |