get_initiator_flag_by_run Function

  1. BitReps.F90
  2. bit_reps
  3. get_initiator_flag_by_run

public pure function get_initiator_flag_by_run(run) result(flag)

Arguments

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

Return Value integer


Contents

Source Code

get_initiator_flag_by_run

Source Code

    pure function get_initiator_flag_by_run(run) result(flag)
        integer, intent(in) :: run
        integer :: flag
        ! Strange bug in compiler
        unused_var(run)
        ! map 1->1, 2->3, 3->5, 4->7 for complex
        flag = flag_initiator(min_part_type(run))
    end function get_initiator_flag_by_run