17 |
|
public :: init_FF |
18 |
|
|
19 |
|
contains |
20 |
– |
|
21 |
– |
|
22 |
– |
|
23 |
– |
subroutine init_FF(status) |
24 |
– |
|
25 |
– |
!! Result status, success = 0, error = -1 |
26 |
– |
integer, intent(out) :: status |
27 |
– |
integer :: thisStat = 0 |
28 |
– |
|
29 |
– |
|
30 |
– |
call initForce_Modules(thisStat) |
31 |
– |
if (thisStat /= 0) then |
32 |
– |
status = -1 |
33 |
– |
return |
34 |
– |
endif |
20 |
|
|
36 |
– |
|
37 |
– |
ff_initialized = .true. |
38 |
– |
|
39 |
– |
|
40 |
– |
end subroutine init_FF |
41 |
– |
|
42 |
– |
|
43 |
– |
|
44 |
– |
|
45 |
– |
|
46 |
– |
|
47 |
– |
subroutine initForce_Modules(thisStat) |
48 |
– |
integer, intent(out) :: thisStat |
49 |
– |
integer :: my_status |
50 |
– |
|
51 |
– |
thisStat = 0 |
52 |
– |
call init_lj_FF(my_status) |
53 |
– |
if (my_status /= 0) then |
54 |
– |
thisStat = -1 |
55 |
– |
return |
56 |
– |
end if |
57 |
– |
|
58 |
– |
call check_sticky_FF(my_status) |
59 |
– |
if (my_status /= 0) then |
60 |
– |
thisStat = -1 |
61 |
– |
return |
62 |
– |
end if |
63 |
– |
|
64 |
– |
|
65 |
– |
end subroutine initForce_Modules |
21 |
|
|
22 |
|
end module forceGlobals |