src/numerical/slatec/fortran/zmlt.f

   1 *DECK ZMLT
   2       SUBROUTINE ZMLT (AR, AI, BR, BI, CR, CI)
   3 C***BEGIN PROLOGUE  ZMLT
   4 C***SUBSIDIARY
   5 C***PURPOSE  Subsidiary to ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZAIRY and
   6 C            ZBIRY
   7 C***LIBRARY   SLATEC
   8 C***TYPE      ALL (ZMLT-A)
   9 C***AUTHOR  Amos, D. E., (SNL)
  10 C***DESCRIPTION
  11 C
  12 C     DOUBLE PRECISION COMPLEX MULTIPLY, C=A*B.
  13 C
  14 C***SEE ALSO  ZAIRY, ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZBIRY
  15 C***ROUTINES CALLED  (NONE)
  16 C***REVISION HISTORY  (YYMMDD)
  17 C   830501  DATE WRITTEN
  18 C   910415  Prologue converted to Version 4.0 format.  (BAB)
  19 C***END PROLOGUE  ZMLT
  20       DOUBLE PRECISION AR, AI, BR, BI, CR, CI, CA, CB
  21 C***FIRST EXECUTABLE STATEMENT  ZMLT
  22       CA = AR*BR - AI*BI
  23       CB = AR*BI + AI*BR
  24       CR = CA
  25       CI = CB
  26       RETURN
  27       END