associate_run Subroutine

private subroutine associate_run(this, t_global, run)

Type Bound

core_space_t

Arguments

Type IntentOptional Attributes Name
class(core_space_t), intent(inout) :: this
logical, intent(in) :: t_global
integer, intent(in) :: run

Contents

Source Code


Source Code

    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