# | Line 184 | Line 184 | contains | |
---|---|---|
184 | do i = 1, nExcludes_Global | |
185 | excludesGlobal(i) = CexcludesGlobal(i) | |
186 | enddo | |
187 | < | |
187 | > | |
188 | if (status == 0) simulation_setup_complete = .true. | |
189 | ||
190 | end subroutine SimulationSetup | |
# | Line 281 | Line 281 | contains | |
281 | function getRrf() result(rrf) | |
282 | real( kind = dp ) :: rrf | |
283 | rrf = thisSim%rrf | |
284 | + | write(*,*) 'getRrf = ', rrf, thisSim%rrf |
285 | end function getRrf | |
286 | ||
287 | function getRt() result(rt) |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |