GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
zmlt.f
Go to the documentation of this file.
1  SUBROUTINE zmlt(AR, AI, BR, BI, CR, CI)
2 C***BEGIN PROLOGUE ZMLT
3 C***REFER TO ZBESH,ZBESI,ZBESJ,ZBESK,ZBESY,ZAIRY,ZBIRY
4 C
5 C DOUBLE PRECISION COMPLEX MULTIPLY, C=A*B.
6 C
7 C***ROUTINES CALLED (NONE)
8 C***END PROLOGUE ZMLT
9  DOUBLE PRECISION ar, ai, br, bi, cr, ci, ca, cb
10  ca = ar*br - ai*bi
11  cb = ar*bi + ai*br
12  cr = ca
13  ci = cb
14  RETURN
15  END