| 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