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

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/calc_gb.F90 (file contents):
Revision 1490 by gezelter, Fri Sep 24 04:16:43 2004 UTC vs.
Revision 1602 by chuckv, Tue Oct 19 20:44:36 2004 UTC

# Line 385 | Line 385 | end module gb_pair
385   end module gb_pair
386  
387  
388 +  subroutine set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu)
389 +    use definitions, ONLY : dp
390 +    use gb_pair, ONLY : module_set_gb_pair_params => set_gb_pair_params
391 +    real( kind = dp ), intent(inout) :: sigma, l2b_ratio, eps, eps_ratio
392 +    real( kind = dp ), intent(inout) :: mu, nu
393 +    call module_set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu)
394 + end subroutine set_gb_pair_params

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines