| 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, & |
