UseTheForce/DarkSide/gb_interface.F90

subroutine newGBtype(c_ident, sigma, l2b_ratio, eps, eps_ratio, mu, nu, &
     status)
  
  use definitions, ONLY : dp
  use gayberne, ONLY : module_newGBtype => newGBtype

  integer, intent(inout) :: c_ident, status
  real( kind = dp ), intent(inout) :: sigma, l2b_ratio, eps, eps_ratio
  real( kind = dp ), intent(inout) :: mu, nu

  call module_newGBtype(c_ident, sigma, l2b_ratio, eps, eps_ratio, &
       mu, nu, status)
  
  return
end subroutine newGBtype

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

  call module_destroyGBTypes()

end subroutine destroyGBTypes
Revision:	2375
Committed:	Mon Oct 17 19:12:45 2005 UTC (18 years, 10 months ago) by gezelter
File size:	617 byte(s)
Log Message:	changing GB architecture
#	User	Rev	Content
1	gezelter	2375	subroutine newGBtype(c_ident, sigma, l2b_ratio, eps, eps_ratio, mu, nu, &
2			status)
3
4	gezelter	1948	use definitions, ONLY : dp
5	gezelter	2375	use gayberne, ONLY : module_newGBtype => newGBtype
6	gezelter	1948
7	gezelter	2375	integer, intent(inout) :: c_ident, status
8	gezelter	1948	real( kind = dp ), intent(inout) :: sigma, l2b_ratio, eps, eps_ratio
9			real( kind = dp ), intent(inout) :: mu, nu
10
11	gezelter	2375	call module_newGBtype(c_ident, sigma, l2b_ratio, eps, eps_ratio, &
12			mu, nu, status)
13
14	kdaily	2367	return
15	gezelter	2375	end subroutine newGBtype
16	kdaily	2367
17	gezelter	2375	subroutine destroyGBTypes()
18			use gayberne, ONLY: module_destroyGBTypes => destroyGBTypes
19	kdaily	2367
20	gezelter	2375	call module_destroyGBTypes()
21	kdaily	2367
22	gezelter	2375	end subroutine destroyGBTypes