Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(core_space_t), | intent(inout) | :: | this | |||
logical, | intent(in) | :: | t_global | |||
integer, | intent(in) | :: | run |
subroutine associate_run(this, t_global, run)
class(core_space_t), intent(inout) :: this
logical, intent(in) :: t_global
integer, intent(in) :: run
this%t_global = t_global
if (this%t_global) then
this%min_run = 1
this%max_run = inum_runs
else
this%min_run = run
this%max_run = run
end if
end subroutine associate_run