GETCACHEINDEX Subroutine

private subroutine GETCACHEINDEX(I, J, RET)

Arguments

Type IntentOptional Attributes Name
integer :: I
integer :: J
integer :: RET

Contents

Source Code

GETCACHEINDEX

Source Code

    SUBROUTINE GETCACHEINDEX(I, J, RET)
        ! In:
        !    I,J (I<=J): state indices
        ! Out:
        !    Cache indexing scheme.
        INTEGER I, J, RET
        RET = J * (J - 1) / 2 + I
    END SUBROUTINE GetCacheIndex