| 4 |
|
|
| 5 |
|
!! @author Charles F. Vardeman II |
| 6 |
|
!! @author Matthew Meineke |
| 7 |
< |
!! @version $Id: do_Forces.F90,v 1.48 2004-01-30 15:01:09 chrisfen Exp $, $Date: 2004-01-30 15:01:09 $, $Name: not supported by cvs2svn $, $Revision: 1.48 $ |
| 7 |
> |
!! @version $Id: do_Forces.F90,v 1.49 2004-04-15 16:18:26 tim Exp $, $Date: 2004-04-15 16:18:26 $, $Name: not supported by cvs2svn $, $Revision: 1.49 $ |
| 8 |
|
|
| 9 |
|
module do_Forces |
| 10 |
|
use force_globals |
| 260 |
|
if (nMatches .gt. 0) FF_uses_LJ = .true. |
| 261 |
|
|
| 262 |
|
call getMatchingElementList(atypes, "is_Charge", .true., nMatches, MatchList) |
| 263 |
< |
if (nMatches .gt. 0) FF_uses_charges = .true. |
| 264 |
< |
|
| 263 |
> |
if (nMatches .gt. 0) FF_uses_charges = .true. |
| 264 |
> |
|
| 265 |
|
call getMatchingElementList(atypes, "is_DP", .true., nMatches, MatchList) |
| 266 |
|
if (nMatches .gt. 0) FF_uses_dipoles = .true. |
| 267 |
|
|
