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.50 2005-10-04 19:32:58 chrisfen Exp $, $Date: 2005-10-04 19:32:58 $, $Name: not supported by cvs2svn $, $Revision: 1.50 $ |
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 |
|
|
909 |
|
endif |
910 |
|
end if |
911 |
|
enddo |
912 |
+ |
|
913 |
|
enddo outer |
914 |
|
|
915 |
|
if (update_nlist) then |