# | 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 |