1 |
|
!! Calculates Long Range forces Lennard-Jones interactions. |
2 |
|
!! @author Charles F. Vardeman II |
3 |
|
!! @author Matthew Meineke |
4 |
< |
!! @version $Id: LJ.F90,v 1.4 2004-10-22 20:22:47 gezelter Exp $, $Date: 2004-10-22 20:22:47 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $ |
4 |
> |
!! @version $Id: LJ.F90,v 1.5 2004-11-18 15:57:16 chrisfen Exp $, $Date: 2004-11-18 15:57:16 $, $Name: not supported by cvs2svn $, $Revision: 1.5 $ |
5 |
|
|
6 |
|
module lj |
7 |
|
use atype_module |
225 |
|
end do |
226 |
|
end do |
227 |
|
|
228 |
+ |
haveMixingMap = .true. |
229 |
+ |
|
230 |
|
end subroutine createMixingMap |
231 |
|
|
232 |
|
subroutine do_lj_pair(atom1, atom2, d, rij, r2, sw, vpair, fpair, & |