| 4 |
|
|
| 5 |
|
!! @author Charles F. Vardeman II |
| 6 |
|
!! @author Matthew Meineke |
| 7 |
< |
!! @version $Id: do_Forces.F90,v 1.50 2004-04-22 21:33:55 tim Exp $, $Date: 2004-04-22 21:33:55 $, $Name: not supported by cvs2svn $, $Revision: 1.50 $ |
| 7 |
> |
!! @version $Id: do_Forces.F90,v 1.51 2004-04-24 04:31:36 tim Exp $, $Date: 2004-04-24 04:31:36 $, $Name: not supported by cvs2svn $, $Revision: 1.51 $ |
| 8 |
|
|
| 9 |
|
module do_Forces |
| 10 |
|
use force_globals |
| 277 |
|
|
| 278 |
|
!! Assume sanity (for the sake of argument) |
| 279 |
|
haveSaneForceField = .true. |
| 280 |
+ |
!! |
| 281 |
+ |
if (FF_uses_charges) then |
| 282 |
+ |
dielect = getDielect() |
| 283 |
+ |
call initialize_charge(dielect) |
| 284 |
+ |
endif |
| 285 |
|
|
| 286 |
+ |
|
| 287 |
|
!! check to make sure the FF_uses_RF setting makes sense |
| 288 |
|
|
| 289 |
|
if (FF_uses_dipoles) then |
