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
1.7.1
