# | Line 244 | Line 244 | contains | |
---|---|---|
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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |