UseTheForce/DarkSide/lj_interface.F90

subroutine newLJtype(c_ident, sigma, epsilon, soft_pot, status)
  use definitions
  use lj, ONLY : module_newLJtype => newLJtype

  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:	2756
Committed:	Wed May 17 15:37:15 2006 UTC (18 years, 4 months ago) by gezelter
File size:	557 byte(s)
Log Message:	Getting fortran side prepped for single precision...
#	User	Rev	Content
1	tim	2062	subroutine newLJtype(c_ident, sigma, epsilon, soft_pot, status)
2	gezelter	2756	use definitions
3	gezelter	1948	use lj, ONLY : module_newLJtype => newLJtype
4	gezelter	2756
5	gezelter	1948	integer,intent(inout) :: c_ident
6			real(kind=dp),intent(inout) :: sigma
7			real(kind=dp),intent(inout) :: epsilon
8	tim	2062	integer,intent(inout) :: soft_pot
9	gezelter	1948	integer,intent(inout) :: status
10	gezelter	2204
11	tim	2062	call module_newLJtype(c_ident, sigma, epsilon, soft_pot, status)
12	gezelter	2204
13	gezelter	1948	end subroutine newLJtype
14
15	chuckv	2189	subroutine destroyLJTypes()
16	gezelter	2204	use lj, ONLY: module_destroyLJTypes => destroyLJTypes
17	chuckv	2189
18	gezelter	2204	call module_destroyLJTypes()
19	chuckv	2189
20			end subroutine destroyLJTypes