UseTheForce/DarkSide/lj_interface.F90

subroutine newLJtype(c_ident, sigma, epsilon, soft_pot, status)
  use lj, ONLY : module_newLJtype => newLJtype
  integer, parameter :: DP = selected_real_kind(15)
  integer,intent(inout) :: c_ident
  real(kind=dp),intent(inout) :: sigma
  real(kind=dp),intent(inout) :: epsilon
  integer,intent(inout) :: soft_pot
  integer,intent(inout) :: status

  call module_newLJtype(c_ident, sigma, epsilon, soft_pot, status)

end subroutine newLJtype

subroutine destroyLJTypes()
  use lj, ONLY: module_destroyLJTypes => destroyLJTypes

  call module_destroyLJTypes()

end subroutine destroyLJTypes
Revision:	798
Committed:	Wed Dec 7 19:58:18 2005 UTC (19 years, 10 months ago) by chuckv
File size:	590 byte(s)
Log Message:	Removed geometric distance mixing from individual modules and now use force options to detemine what the deal is.
#	User	Rev	Content
1	tim	378	subroutine newLJtype(c_ident, sigma, epsilon, soft_pot, status)
2	gezelter	264	use lj, ONLY : module_newLJtype => newLJtype
3			integer, parameter :: DP = selected_real_kind(15)
4			integer,intent(inout) :: c_ident
5			real(kind=dp),intent(inout) :: sigma
6			real(kind=dp),intent(inout) :: epsilon
7	tim	378	integer,intent(inout) :: soft_pot
8	gezelter	264	integer,intent(inout) :: status
9	gezelter	507
10	tim	378	call module_newLJtype(c_ident, sigma, epsilon, soft_pot, status)
11	gezelter	507
12	gezelter	264	end subroutine newLJtype
13
14	chuckv	492	subroutine destroyLJTypes()
15	gezelter	507	use lj, ONLY: module_destroyLJTypes => destroyLJTypes
16	chuckv	492
17	gezelter	507	call module_destroyLJTypes()
18	chuckv	492
19			end subroutine destroyLJTypes