Return to wrscal.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE WRSCAL(N,S,XR,XI,INCX)
        !             2:       DOUBLE PRECISION S,XR(1),XI(1),FLOP
        !             3:       IF (N .LE. 0) RETURN
        !             4:       IX = 1
        !             5:       DO 10 I = 1, N
        !             6:          XR(IX) = FLOP(S*XR(IX))
        !             7:          IF (XI(IX) .NE. 0.0D0) XI(IX) = FLOP(S*XI(IX))
        !             8:          IX = IX + INCX
        !             9:    10 CONTINUE
        !            10:       RETURN
        !            11:       END

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