| Revision: | 1948 |
| Committed: | Fri Jan 14 20:31:16 2005 UTC (19 years, 7 months ago) by gezelter |
| File size: | 400 byte(s) |
| Log Message: | separating modules and C/Fortran interface subroutines |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | gezelter | 1948 | 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 |