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

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.