| 175 |
|
return |
| 176 |
|
endif |
| 177 |
|
|
| 178 |
+ |
|
| 179 |
|
do i = 1, nExcludes_Local |
| 180 |
|
excludesLocal(1,i) = CexcludesLocal(1,i) |
| 181 |
|
excludesLocal(2,i) = CexcludesLocal(2,i) |
| 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 |
| 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) |
