2
SUBROUTINE ZDIV (AR, AI, BR, BI, CR, CI)
3
C***BEGIN PROLOGUE ZDIV
5
C***PURPOSE Subsidiary to ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZAIRY and
9
C***AUTHOR Amos, D. E., (SNL)
12
C DOUBLE PRECISION COMPLEX DIVIDE C=A/B.
14
C***SEE ALSO ZAIRY, ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZBIRY
15
C***ROUTINES CALLED ZABS
16
C***REVISION HISTORY (YYMMDD)
18
C 910415 Prologue converted to Version 4.0 format. (BAB)
20
DOUBLE PRECISION AR, AI, BR, BI, CR, CI, BM, CA, CB, CC, CD
23
C***FIRST EXECUTABLE STATEMENT ZDIV
24
BM = 1.0D0/ZABS(BR,BI)