get_core_run Function

private pure function get_core_run(run) result(crun)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	run

Return Value integer

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