increase_spawn_counter Subroutine

public subroutine increase_spawn_counter(ilut)

Arguments

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

Contents

Source Code

increase_spawn_counter

Source Code

    subroutine increase_spawn_counter(ilut)
        ! increase the spawn counter by 1
        integer(n_int), intent(inout) :: ilut(0:IlutBits%len_bcast)

        ilut(IlutBits%ind_spawn) = ilut(IlutBits%ind_spawn) + 1

    end subroutine increase_spawn_counter