Return to wsign.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE WSIGN(XR,XI,YR,YI,ZR,ZI)
        !             2:       DOUBLE PRECISION XR,XI,YR,YI,ZR,ZI,PYTHAG,T
        !             3: C     IF Y .NE. 0, Z = X*Y/ABS(Y)
        !             4: C     IF Y .EQ. 0, Z = X
        !             5:       T = PYTHAG(YR,YI)
        !             6:       ZR = XR
        !             7:       ZI = XI
        !             8:       IF (T .NE. 0.0D0) CALL WMUL(YR/T,YI/T,ZR,ZI,ZR,ZI)
        !             9:       RETURN
        !            10:       END

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