| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.57 2005-10-12 21:00:45 gezelter Exp $, $Date: 2005-10-12 21:00:45 $, $Name: not supported by cvs2svn $, $Revision: 1.57 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.58 2005-10-14 15:44:37 kdaily Exp $, $Date: 2005-10-14 15:44:37 $, $Name: not supported by cvs2svn $, $Revision: 1.58 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 1250 |
|
endif |
| 1251 |
|
|
| 1252 |
|
if ( iand(iHash, GAYBERNE_LJ).ne.0 ) then |
| 1253 |
< |
! call do_gblj_pair(i, j, d, r, rijsq, sw, vpair, fpair, & |
| 1254 |
< |
! pot(VDW_POT), A, f, t, do_pot) |
| 1253 |
> |
call do_gb_lj_pair(i, j, d, r, rijsq, sw, vpair, fpair, & |
| 1254 |
> |
pot(VDW_POT), A, f, t, do_pot) |
| 1255 |
|
endif |
| 1256 |
|
|
| 1257 |
|
if ( iand(iHash, EAM_PAIR).ne.0 ) then |
