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:	492
Committed:	Wed Apr 13 20:36:45 2005 UTC (20 years, 1 month ago) by chuckv
File size:	577 byte(s)
Log Message:	Added destroy methods for Fortran modules.
#	User	Rev	Content
1	gezelter	264	subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError)
2
3			use definitions, ONLY : dp
4			use sticky, ONLY : module_newStickyType => newStickyType
5
6			integer, intent(inout) :: c_ident, isError
7			real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup
8
9			call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, &
10			isError)
11
12			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