| Revision: | 1948 |
| Committed: | Fri Jan 14 20:31:16 2005 UTC (19 years, 5 months ago) by gezelter |
| File size: | 400 byte(s) |
| Log Message: | separating modules and C/Fortran interface subroutines |
| # | Content |
|---|---|
| 1 | subroutine set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu) |
| 2 | |
| 3 | use definitions, ONLY : dp |
| 4 | use gb_pair, ONLY : module_set_gb_pair_params => set_gb_pair_params |
| 5 | |
| 6 | real( kind = dp ), intent(inout) :: sigma, l2b_ratio, eps, eps_ratio |
| 7 | real( kind = dp ), intent(inout) :: mu, nu |
| 8 | |
| 9 | call module_set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu) |
| 10 | |
| 11 | end subroutine set_gb_pair_params |