ResetIndices Subroutine

public subroutine ResetIndices(vec, maxIdx)

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: vec(:)
integer, intent(in) :: maxIdx

Contents

Source Code

ResetIndices

Source Code

    subroutine ResetIndices(vec, maxIdx)
        implicit none
        integer, intent(inout) :: vec(:)
        integer, intent(in) :: maxIdx
        integer :: i
        do i = 1, maxIdx
            vec(i) = i
        end do
    end subroutine ResetIndices