UseTheForce/DarkSide/sticky_interface.F90

subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError)

  use definitions, ONLY : dp   
  use sticky, ONLY : module_newStickyType => newStickyType

  integer, intent(inout) :: c_ident, isError
  real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup

  call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, &
       isError)

end subroutine newStickyType

subroutine destroyStickyTypes()
  use sticky, ONLY : module_destroyStickyTypes => destroyStickyTypes
  call module_destroyStickyTypes()

end subroutine destroyStickyTypes
Revision:	1670
Committed:	Fri Jan 27 19:07:19 2012 UTC (13 years, 11 months ago) by chuckv
File size:	569 byte(s)
Log Message:	Adding experimental branch for calculation of the heatflux based on old version of OpenMD. This will need to be ported to the development branch later.
#	User	Rev	Content
1	gezelter	264	subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError)
2	gezelter	507
3	gezelter	264	use definitions, ONLY : dp
4			use sticky, ONLY : module_newStickyType => newStickyType
5	gezelter	507
6	gezelter	264	integer, intent(inout) :: c_ident, isError
7			real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup
8	gezelter	507
9	gezelter	264	call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, &
10			isError)
11	gezelter	507
12	gezelter	264	end subroutine newStickyType
13	chuckv	492
14			subroutine destroyStickyTypes()
15			use sticky, ONLY : module_destroyStickyTypes => destroyStickyTypes
16			call module_destroyStickyTypes()
17
18			end subroutine destroyStickyTypes