UseTheForce/DarkSide/gb_interface.F90

subroutine newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
  
  use definitions, ONLY : dp
  use gayberne, ONLY : module_newGBtype => newGBtype

  integer, intent(inout) :: c_ident, status
  real( kind = dp ), intent(inout) :: d, l, eps, eps_ratio, dw

  call module_newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
  
  return
end subroutine newGBtype

subroutine completeGBFF(status)

  use gayberne, only: complete_GB_FF

  integer, intent(out)  :: status
  integer :: myStatus

  myStatus = 0

  call complete_GB_FF(myStatus)

  status = myStatus

  return
end subroutine completeGBFF


subroutine destroyGBTypes()
  use gayberne, ONLY: module_destroyGBTypes => destroyGBTypes

  call module_destroyGBTypes()

end subroutine destroyGBTypes
Revision:	981
Committed:	Mon Jun 5 18:24:45 2006 UTC (18 years, 11 months ago) by gezelter
File size:	753 byte(s)
Log Message:	Massive changes for GB code with multiple ellipsoid types (a la Cleaver's paper). Also, changes in hydrodynamics code to make HydroProp a somewhat smarter class (rather than just a struct).
#	User	Rev	Content
1	gezelter	981	subroutine newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
2	gezelter	676
3	gezelter	264	use definitions, ONLY : dp
4	gezelter	676	use gayberne, ONLY : module_newGBtype => newGBtype
5	gezelter	264
6	gezelter	676	integer, intent(inout) :: c_ident, status
7	gezelter	981	real( kind = dp ), intent(inout) :: d, l, eps, eps_ratio, dw
8	gezelter	264
9	gezelter	981	call module_newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
10	gezelter	676
11	kdaily	668	return
12	gezelter	676	end subroutine newGBtype
13	kdaily	668
14	gezelter	981	subroutine completeGBFF(status)
15
16			use gayberne, only: complete_GB_FF
17
18			integer, intent(out) :: status
19			integer :: myStatus
20
21			myStatus = 0
22
23			call complete_GB_FF(myStatus)
24
25			status = myStatus
26
27			return
28			end subroutine completeGBFF
29
30
31	gezelter	676	subroutine destroyGBTypes()
32			use gayberne, ONLY: module_destroyGBTypes => destroyGBTypes
33	kdaily	668
34	gezelter	676	call module_destroyGBTypes()
35	kdaily	668
36	gezelter	676	end subroutine destroyGBTypes