ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/DarkSide/gb_interface.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/gb_interface.F90 (file contents):
Revision 1948 by gezelter, Fri Jan 14 20:31:16 2005 UTC vs.
Revision 2367 by kdaily, Fri Oct 14 15:44:37 2005 UTC

# Line 8 | Line 8 | end subroutine set_gb_pair_params
8  
9    call module_set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu)
10  
11 +  return
12   end subroutine set_gb_pair_params
13 +
14 + subroutine completeGayBerneFF(status)
15 +  use gb_pair, only: complete_GayBerne_FF
16 +  
17 +  intent(out) :: status
18 +  integer :: myStatus
19 +
20 +  myStatus = 0
21 +  
22 +  call complete_GayBerne_FF(myStatus)
23 +
24 +  status = myStatus
25 +
26 +  return
27 + end subroutine completeGayBerneFF
28 +
29 + subroutine destroyGayBerneTypes()
30 +
31 +  use gb_pair, only: module_destroyGayBerneTypes => destroyGayBerneTypes
32 +  call module_destroyGayBerneTypes()
33 +
34 + end subroutine destroyGayBerneTypes

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines