43 |
|
!! Calculates Long Range forces Lennard-Jones interactions. |
44 |
|
!! @author Charles F. Vardeman II |
45 |
|
!! @author Matthew Meineke |
46 |
< |
!! @version $Id: LJ.F90,v 1.9 2005-03-08 21:06:12 gezelter Exp $, $Date: 2005-03-08 21:06:12 $, $Name: not supported by cvs2svn $, $Revision: 1.9 $ |
46 |
> |
!! @version $Id: LJ.F90,v 1.10 2005-04-13 20:36:45 chuckv Exp $, $Date: 2005-04-13 20:36:45 $, $Name: not supported by cvs2svn $, $Revision: 1.10 $ |
47 |
|
|
48 |
|
|
49 |
|
module lj |
99 |
|
public :: newLJtype |
100 |
|
public :: getSigma |
101 |
|
public :: getEpsilon |
102 |
+ |
public :: destroyLJTypes |
103 |
|
|
104 |
|
contains |
105 |
|
|
426 |
|
|
427 |
|
end subroutine do_lj_pair |
428 |
|
|
429 |
< |
|
430 |
< |
!! Calculates the mixing for sigma or epslon |
429 |
> |
subroutine destroyLJTypes() |
430 |
> |
if(allocated(ParameterMap)) deallocate(ParameterMap) |
431 |
> |
if(allocated(MixingMap)) deallocate(MixingMap) |
432 |
> |
haveMixingMap = .false. |
433 |
> |
end subroutine destroyLJTypes |
434 |
> |
|
435 |
|
|
436 |
|
end module lj |