home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / MatLab / WSIGN.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  369 b   |  21 lines
  1.       SUBROUTINE WSIGN (XR, XI, YR, YI, ZR, ZI)
  2.       IMPLICIT NONE
  3. C
  4. C IF Y.NE.0, Z = X*Y/ABS (Y)
  5. C IF Y.EQ.0, Z = X
  6. C
  7.       DOUBLE PRECISION XR, XI, YR, YI, ZR, ZI
  8. C
  9.       DOUBLE PRECISION T
  10. C
  11.       DOUBLE PRECISION PYTHAG
  12. C
  13. C
  14.       T = PYTHAG (YR, YI)
  15.       ZR = XR
  16.       ZI = XI
  17.       IF (T.NE.0.0D0) CALL WMUL (YR/T, YI/T, ZR, ZI, ZR, ZI)
  18. C
  19.       RETURN
  20.       END
  21.