2 |
|
!! Corresponds to the force field defined in lj_FF.cpp |
3 |
|
!! @author Charles F. Vardeman II |
4 |
|
!! @author Matthew Meineke |
5 |
< |
!! @version $Id: lj_FF.F90,v 1.11 2003-01-27 18:28:11 chuckv Exp $, $Date: 2003-01-27 18:28:11 $, $Name: not supported by cvs2svn $, $Revision: 1.11 $ |
5 |
> |
!! @version $Id: lj_FF.F90,v 1.12 2003-01-28 22:16:55 chuckv Exp $, $Date: 2003-01-28 22:16:55 $, $Name: not supported by cvs2svn $, $Revision: 1.12 $ |
6 |
|
|
7 |
|
|
8 |
|
|
267 |
|
end if |
268 |
|
|
269 |
|
|
270 |
< |
write(*,*) "Creating mixing list" |
270 |
> |
|
271 |
|
tmpPtrOuter => ljListHead |
272 |
|
tmpPtrInner => tmpPtrOuter%next |
273 |
|
do while (associated(tmpPtrOuter)) |
274 |
|
outerCounter = outerCounter + 1 |
275 |
– |
write(*,*) "Outer index is: ", outerCounter |
276 |
– |
write(*,*) "For atype: ", tmpPtrOuter%atype_ident |
275 |
|
! do self mixing rule |
276 |
|
ljMixed(outerCounter,outerCounter)%sigma = tmpPtrOuter%sigma |
277 |
|
|
287 |
|
innerCounter = outerCounter + 1 |
288 |
|
do while (associated(tmpPtrInner)) |
289 |
|
|
292 |
– |
write(*,*) "Entered inner loop for: ", innerCounter |
290 |
|
ljMixed(outerCounter,innerCounter)%sigma = & |
291 |
|
calcLJMix("sigma",tmpPtrOuter%sigma, & |
292 |
|
tmpPtrInner%sigma) |