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:	2787
Committed:	Mon Jun 5 18:24:45 2006 UTC (18 years, 3 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	2787	subroutine newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
2	gezelter	2375
3	gezelter	1948	use definitions, ONLY : dp
4	gezelter	2375	use gayberne, ONLY : module_newGBtype => newGBtype
5	gezelter	1948
6	gezelter	2375	integer, intent(inout) :: c_ident, status
7	gezelter	2787	real( kind = dp ), intent(inout) :: d, l, eps, eps_ratio, dw
8	gezelter	1948
9	gezelter	2787	call module_newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
10	gezelter	2375
11	kdaily	2367	return
12	gezelter	2375	end subroutine newGBtype
13	kdaily	2367
14	gezelter	2787	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	2375	subroutine destroyGBTypes()
32			use gayberne, ONLY: module_destroyGBTypes => destroyGBTypes
33	kdaily	2367
34	gezelter	2375	call module_destroyGBTypes()
35	kdaily	2367
36	gezelter	2375	end subroutine destroyGBTypes