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:	2204
Committed:	Fri Apr 15 22:04:00 2005 UTC (19 years, 4 months ago) by gezelter
File size:	569 byte(s)
Log Message:	xemacs has been drafted to perform our indentation services
#	User	Rev	Content
1	gezelter	1948	subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError)
2	gezelter	2204
3	gezelter	1948	use definitions, ONLY : dp
4			use sticky, ONLY : module_newStickyType => newStickyType
5	gezelter	2204
6	gezelter	1948	integer, intent(inout) :: c_ident, isError
7			real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup
8	gezelter	2204
9	gezelter	1948	call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, &
10			isError)
11	gezelter	2204
12	gezelter	1948	end subroutine newStickyType
13	chuckv	2189
14			subroutine destroyStickyTypes()
15			use sticky, ONLY : module_destroyStickyTypes => destroyStickyTypes
16			call module_destroyStickyTypes()
17
18			end subroutine destroyStickyTypes