Searched defs:AZLOG (Results 1 – 1 of 1) sorted by relevance
| /dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
| H A D | zlog.f | 1 SUBROUTINE AZLOG(AR, AI, BR, BI, IERR) subroutine
9 DOUBLE PRECISION AR, AI, BR, BI, ZM, DTHETA, DPI, DHPI
10 DOUBLE PRECISION AZABS
21 10 IF (AI.EQ.0.0D+0) GO TO 60
26 20 IF (AR.GT.0.0D+0) GO TO 30
30 30 BR = DLOG(AR)
33 40 IF (AR.LT.0.0D+0) DTHETA = DTHETA + DPI
34 50 ZM = AZABS(AR,AI)
38 60 CONTINUE
|