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:	507
Committed:	Fri Apr 15 22:04:00 2005 UTC (20 years, 1 month ago) by gezelter
File size:	569 byte(s)
Log Message:	xemacs has been drafted to perform our indentation services
#	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