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, 1 month 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).
#	Content
1	subroutine newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
2
3	use definitions, ONLY : dp
4	use gayberne, ONLY : module_newGBtype => newGBtype
5
6	integer, intent(inout) :: c_ident, status
7	real( kind = dp ), intent(inout) :: d, l, eps, eps_ratio, dw
8
9	call module_newGBtype(c_ident, d, l, eps, eps_ratio, dw, status)
10
11	return
12	end subroutine newGBtype
13
14	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	subroutine destroyGBTypes()
32	use gayberne, ONLY: module_destroyGBTypes => destroyGBTypes
33
34	call module_destroyGBTypes()
35
36	end subroutine destroyGBTypes