Mercurial > octave-nkf
view libcruft/amos/zdiv.f @ 4720:e759d01692db ss-2-1-53
[project @ 2004-01-23 04:13:37 by jwe]
author | jwe |
---|---|
date | Fri, 23 Jan 2004 04:13:37 +0000 |
parents | 8b0cb8f79fdc |
children |
line wrap: on
line source
SUBROUTINE ZDIV(AR, AI, BR, BI, CR, CI) C***BEGIN PROLOGUE ZDIV C***REFER TO ZBESH,ZBESI,ZBESJ,ZBESK,ZBESY,ZAIRY,ZBIRY C C DOUBLE PRECISION COMPLEX DIVIDE C=A/B. C C***ROUTINES CALLED XZABS C***END PROLOGUE ZDIV DOUBLE PRECISION AR, AI, BR, BI, CR, CI, BM, CA, CB, CC, CD DOUBLE PRECISION XZABS BM = 1.0D0/XZABS(BR,BI) CC = BR*BM CD = BI*BM CA = (AR*CC+AI*CD)*BM CB = (AI*CC-AR*CD)*BM CR = CA CI = CB RETURN END