GetPosIdentifier Function

public function GetPosIdentifier(vec, rank, limit) result(posId)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: vec(:)
integer, intent(in) :: rank
integer, intent(in) :: limit

Return Value integer


Source Code

    function GetPosIdentifier(vec, rank, limit) result(posId)
        implicit none
        ! this is not a triangular index, it is only computed for the
        ! purpose of evaluating ti_lt_a_only condition
        integer, intent(in) :: vec(:), rank, limit
        integer :: posId, i
        posId = 0
        do i = 1, rank
            posId = posId + vec(rank) + limit * (rank - 1)
        end do
    end function GetPosIdentifier