get_core_run Function

private pure function get_core_run(run) result(crun)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: run

Return Value integer


Contents

Source Code

get_core_run

Source Code

    pure function get_core_run(run) result(crun)
        integer, intent(in) :: run
        integer :: crun

        if(t_global_core_space) then
            crun = core_run
        else
            crun = run
        end if
    end function get_core_run