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