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.6 2005-01-12 22:40:44 gezelter Exp $, $Date: 2005-01-12 22:40:44 $, $Name: not supported by cvs2svn $, $Revision: 1.6 $ |
46 |
> |
!! @version $Id: LJ.F90,v 1.7 2005-01-14 20:31:16 gezelter Exp $, $Date: 2005-01-14 20:31:16 $, $Name: not supported by cvs2svn $, $Revision: 1.7 $ |
47 |
|
|
48 |
|
|
49 |
|
module lj |
391 |
|
!! Calculates the mixing for sigma or epslon |
392 |
|
|
393 |
|
end module lj |
394 |
– |
|
395 |
– |
subroutine newLJtype(c_ident, sigma, epsilon, status) |
396 |
– |
use lj, ONLY : module_newLJtype => newLJtype |
397 |
– |
integer, parameter :: DP = selected_real_kind(15) |
398 |
– |
integer,intent(inout) :: c_ident |
399 |
– |
real(kind=dp),intent(inout) :: sigma |
400 |
– |
real(kind=dp),intent(inout) :: epsilon |
401 |
– |
integer,intent(inout) :: status |
402 |
– |
|
403 |
– |
call module_newLJtype(c_ident, sigma, epsilon, status) |
404 |
– |
|
405 |
– |
end subroutine newLJtype |
406 |
– |
|
407 |
– |
subroutine useGeometricMixing() |
408 |
– |
use lj, ONLY: module_useGeometricMixing => useGeometricMixing |
409 |
– |
|
410 |
– |
call module_useGeometricMixing() |
411 |
– |
return |
412 |
– |
end subroutine useGeometricMixing |