Return to rset.f CVS log

Up to [Research Unix] / researchv10dc / cmd / matlab / src

Annotation of researchv10dc/cmd/matlab/src/rset.f, revision 1.1

1.1     ! root        1:       SUBROUTINE RSET(N,DX,DY,INCY)
        !             2: C
        !             3: C     COPIES A SCALAR, X, TO A SCALAR, Y.
        !             4:       DOUBLE PRECISION DX,DY(1)
        !             5: C
        !             6:       IF (N.LE.0) RETURN
        !             7:       IY = 1
        !             8:       IF (INCY.LT.0) IY = (-N+1)*INCY + 1
        !             9:       DO 10 I = 1,N
        !            10:         DY(IY) = DX
        !            11:         IY = IY + INCY
        !            12:    10 CONTINUE
        !            13:       RETURN
        !            14:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.