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