8 |
|
|
9 |
|
call module_set_gb_pair_params(sigma, l2b_ratio, eps, eps_ratio, mu, nu) |
10 |
|
|
11 |
+ |
return |
12 |
|
end subroutine set_gb_pair_params |
13 |
+ |
|
14 |
+ |
subroutine completeGayBerneFF(status) |
15 |
+ |
use gb_pair, only: complete_GayBerne_FF |
16 |
+ |
|
17 |
+ |
intent(out) :: status |
18 |
+ |
integer :: myStatus |
19 |
+ |
|
20 |
+ |
myStatus = 0 |
21 |
+ |
|
22 |
+ |
call complete_GayBerne_FF(myStatus) |
23 |
+ |
|
24 |
+ |
status = myStatus |
25 |
+ |
|
26 |
+ |
return |
27 |
+ |
end subroutine completeGayBerneFF |
28 |
+ |
|
29 |
+ |
subroutine destroyGayBerneTypes() |
30 |
+ |
|
31 |
+ |
use gb_pair, only: module_destroyGayBerneTypes => destroyGayBerneTypes |
32 |
+ |
call module_destroyGayBerneTypes() |
33 |
+ |
|
34 |
+ |
end subroutine destroyGayBerneTypes |