| 45 |
|
|
| 46 |
|
!! @author Charles F. Vardeman II |
| 47 |
|
!! @author Matthew Meineke |
| 48 |
< |
!! @version $Id: doForces.F90,v 1.48 2005-09-21 17:20:10 chrisfen Exp $, $Date: 2005-09-21 17:20:10 $, $Name: not supported by cvs2svn $, $Revision: 1.48 $ |
| 48 |
> |
!! @version $Id: doForces.F90,v 1.49 2005-09-23 20:31:02 chuckv Exp $, $Date: 2005-09-23 20:31:02 $, $Name: not supported by cvs2svn $, $Revision: 1.49 $ |
| 49 |
|
|
| 50 |
|
|
| 51 |
|
module doForces |
| 136 |
|
|
| 137 |
|
integer, save :: cutoffPolicy = TRADITIONAL_CUTOFF_POLICY |
| 138 |
|
real(kind=dp),save :: defaultRcut, defaultRsw, defaultRlist |
| 139 |
+ |
real(kind=dp),save :: listSkin |
| 140 |
|
|
| 141 |
|
contains |
| 142 |
|
|
| 412 |
|
gtypeCutoffMap(i,j)%rcut = thisRcut |
| 413 |
|
gtypeCutoffMap(i,j)%rcutsq = thisRcut*thisRcut |
| 414 |
|
skin = defaultRlist - defaultRcut |
| 415 |
+ |
listSkin = skin ! set neighbor list skin thickness |
| 416 |
|
gtypeCutoffMap(i,j)%rlistsq = (thisRcut + skin)**2 |
| 417 |
|
|
| 418 |
|
! sanity check |
| 661 |
|
integer :: propPack_i, propPack_j |
| 662 |
|
integer :: loopStart, loopEnd, loop |
| 663 |
|
integer :: iHash |
| 664 |
< |
real(kind=dp) :: listSkin = 1.0 |
| 664 |
> |
|
| 665 |
|
|
| 666 |
|
!! initialize local variables |
| 667 |
|
|
