3 |
|
use definitions |
4 |
|
use simulation |
5 |
|
use atype_typedefs |
6 |
< |
use generic_atypes |
6 |
> |
use generic_lists |
7 |
|
#ifdef IS_MPI |
8 |
|
use mpiSimulation |
9 |
|
#endif |
244 |
|
return |
245 |
|
endif |
246 |
|
|
247 |
+ |
call setupGlobals(thisStat) |
248 |
+ |
if (thisStat /= 0) then |
249 |
+ |
status = -1 |
250 |
+ |
return |
251 |
+ |
endif |
252 |
+ |
|
253 |
|
isFFinit = .true. |
254 |
|
|
255 |
|
|
256 |
|
end subroutine init_FF |
257 |
|
|
258 |
+ |
subroutine setupGlobals(thisStat) |
259 |
+ |
integer, intent(out) :: thisStat |
260 |
|
|
261 |
|
|
262 |
+ |
end subroutine setupGlobals |
263 |
+ |
|
264 |
+ |
|
265 |
|
subroutine initForce_Modules(thisStat) |
266 |
|
integer, intent(out) :: thisStat |
267 |
|
integer :: my_status |