set_si_initiator Subroutine

public subroutine set_si_initiator(exLevel, staticInit)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: exLevel
logical, intent(inout) :: staticInit

Contents

Source Code

set_si_initiator

Source Code

    subroutine set_si_initiator(exLevel, staticInit)
        implicit none
        integer, intent(in) :: exLevel
        logical, intent(inout) :: staticInit

        if (exLevel <= 2 .and. tAllDoubsInitiators) then
            staticInit = .true.
        end if
    end subroutine set_si_initiator