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 useGeometricMixing()
  use lj, ONLY: module_useGeometricMixing => useGeometricMixing
  
  call module_useGeometricMixing()
  return
end subroutine useGeometricMixing

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

call module_destroyLJTypes()

end subroutine destroyLJTypes
Revision:	2189
Committed:	Wed Apr 13 20:36:45 2005 UTC (19 years, 4 months ago) by chuckv
File size:	768 byte(s)
Log Message:	Added destroy methods for Fortran modules.
#	User	Rev	Content
1	tim	2062	subroutine newLJtype(c_ident, sigma, epsilon, soft_pot, status)
2	gezelter	1948	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	2062	integer,intent(inout) :: soft_pot
8	gezelter	1948	integer,intent(inout) :: status
9
10	tim	2062	call module_newLJtype(c_ident, sigma, epsilon, soft_pot, status)
11	gezelter	1948
12			end subroutine newLJtype
13
14			subroutine useGeometricMixing()
15			use lj, ONLY: module_useGeometricMixing => useGeometricMixing
16
17			call module_useGeometricMixing()
18			return
19			end subroutine useGeometricMixing
20	chuckv	2189
21			subroutine destroyLJTypes()
22			use lj, ONLY: module_destroyLJTypes => destroyLJTypes
23
24			call module_destroyLJTypes()
25
26			end subroutine destroyLJTypes