zmlt.f

Go to the documentation of this file.
00001       SUBROUTINE ZMLT(AR, AI, BR, BI, CR, CI)
00002 C***BEGIN PROLOGUE  ZMLT
00003 C***REFER TO  ZBESH,ZBESI,ZBESJ,ZBESK,ZBESY,ZAIRY,ZBIRY
00004 C
00005 C     DOUBLE PRECISION COMPLEX MULTIPLY, C=A*B.
00006 C
00007 C***ROUTINES CALLED  (NONE)
00008 C***END PROLOGUE  ZMLT
00009       DOUBLE PRECISION AR, AI, BR, BI, CR, CI, CA, CB
00010       CA = AR*BR - AI*BI
00011       CB = AR*BI + AI*BR
00012       CR = CA
00013       CI = CB
00014       RETURN
00015       END
 All Classes Files Functions Variables Typedefs Enumerations Enumerator Friends Defines