45 |
|
|
46 |
|
!! @author Charles F. Vardeman II |
47 |
|
!! @author Matthew Meineke |
48 |
< |
!! @version $Id: doForces.F90,v 1.82 2006-05-17 19:54:26 gezelter Exp $, $Date: 2006-05-17 19:54:26 $, $Name: not supported by cvs2svn $, $Revision: 1.82 $ |
48 |
> |
!! @version $Id: doForces.F90,v 1.83 2006-06-05 18:24:45 gezelter Exp $, $Date: 2006-06-05 18:24:45 $, $Name: not supported by cvs2svn $, $Revision: 1.83 $ |
49 |
|
|
50 |
|
|
51 |
|
module doForces |
1301 |
|
endif |
1302 |
|
|
1303 |
|
if ( iand(iHash, GAYBERNE_LJ).ne.0 ) then |
1304 |
< |
call do_gb_lj_pair(i, j, d, r, rijsq, rcut, sw, vpair, fpair, & |
1304 |
> |
call do_gb_pair(i, j, d, r, rijsq, sw, vpair, fpair, & |
1305 |
|
pot(VDW_POT), A, f, t, do_pot) |
1306 |
|
endif |
1307 |
|
|