# | Line 174 | Line 174 | contains | |
---|---|---|
174 | status = -1 | |
175 | return | |
176 | endif | |
177 | + | |
178 | ||
179 | do i = 1, nExcludes_Local | |
180 | excludesLocal(1,i) = CexcludesLocal(1,i) | |
# | Line 280 | 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 |