get_initiator_flag Function

public pure function get_initiator_flag(sgn_index) result(flag)

Arguments

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

Return Value integer


Contents

Source Code

get_initiator_flag

Source Code

    pure function get_initiator_flag(sgn_index) result(flag)
        integer, intent(in) :: sgn_index
        integer :: flag
        ! Strange bug in compiler
        unused_var(sgn_index)
        ! map 1->1, 2->1, 3->3, 4->3, 5->5, 6->5 for complex,
        ! as the initiator flag is stored in the "real" bit
        ! of each run
        flag = flag_initiator(min_part_type(part_type_to_run(sgn_index)))
    end function get_initiator_flag