log_spawn Subroutine

public subroutine log_spawn(ilut)

Arguments

Type IntentOptional Attributes Name
integer(kind=n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)

Contents

Source Code

log_spawn

Source Code

    subroutine log_spawn(ilut)

        ! set the spawn counter to 1
        integer(n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)

        ilut(IlutBits%ind_spawn) = 1
    end subroutine log_spawn