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 / WMUL.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  313 b   |  20 lines
  1.       SUBROUTINE WMUL (AR, AI, BR, BI, CR, CI)
  2.       IMPLICIT NONE
  3. C
  4. C C = A*B
  5. C
  6.       DOUBLE PRECISION AR, AI, BR, BI, CR, CI
  7. C
  8.       DOUBLE PRECISION T
  9. C
  10.       DOUBLE PRECISION FLOP
  11. C
  12. C
  13.       T = AR*BI+AI*BR
  14.       IF (T.NE.0.0D0) T = FLOP (T)
  15.       CR = FLOP (AR*BR-AI*BI)
  16.       CI = T
  17. C
  18.       RETURN
  19.       END
  20.