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