| # | Line 425 | Line 425 | end module gb_pair | |
|---|---|---|
| 425 | end subroutine do_gb_pair | |
| 426 | ||
| 427 | end module gb_pair | |
| 428 | – | |
| 429 | – | |
| 430 | – | subroutine set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu) |
| 431 | – | use definitions, ONLY : dp |
| 432 | – | use gb_pair, ONLY : module_set_gb_pair_params => set_gb_pair_params |
| 433 | – | real( kind = dp ), intent(inout) :: sigma, l2b_ratio, eps, eps_ratio |
| 434 | – | real( kind = dp ), intent(inout) :: mu, nu |
| 435 | – | call module_set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu) |
| 436 | – | end subroutine set_gb_pair_params |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |