GNU Octave  9.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
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
subroutine zmlt(AR, AI, BR, BI, CR, CI)
Definition: zmlt.f:2