/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zabs.f | 1 DOUBLE PRECISION FUNCTION AZABS(ZR, ZI) function 22 AZABS = V*DSQRT(1.D+0+Q*Q) 25 AZABS = U*DSQRT(1.D+0+Q*Q) 27 20 AZABS = 0.0D+0
|
H A D | zrati.f | 18 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, AZABS local 23 AZ = AZABS(ZR,ZI) 45 AP2 = AZABS(P2R,P2I) 46 AP1 = AZABS(P1R,P1I) 73 AP2 = AZABS(P2R,P2I) 76 AK = AZABS(T1R,T1I)*0.5D0 119 AK = AZABS(PTR,PTI)
|
H A D | zs1s2.f | 18 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, AZABS local 22 AS1 = AZABS(S1R,S1I) 23 AS2 = AZABS(S2R,S2I) 37 AS1 = AZABS(S1R,S1I)
|
H A D | zmlri.f | 15 * D1MACH, AZABS local 21 AZ = AZABS(ZR,ZI) 55 AP = AZABS(P2R,P2I) 88 AP = AZABS(P2R,P2I) 91 ACK = AZABS(CKR,CKI) 93 FKAP = AP/AZABS(P1R,P1I) 187 AP = AZABS(P2R,P2I)
|
H A D | zuoik.f | 34 * ZNI, ZNR, ZR, ZRI, ZRR, D1MACH, AZABS local 81 AARG = AZABS(ARGR,ARGI) 91 APHI = AZABS(PHIR,PHII) 154 AARG = AZABS(ARGR,ARGI) 160 APHI = AZABS(PHIR,PHII)
|
H A D | zdiv.f | 10 DOUBLE PRECISION AZABS local 11 BM = 1.0D0/AZABS(BR,BI)
|
H A D | zuni2.f | 26 * CYI, D1MACH, AZABS, CAR, SAR local 88 RAST = FN/AZABS(STR,STI) 109 RAST = FN/AZABS(STR,STI) 130 APHI = AZABS(PHIR,PHII) 131 AARG = AZABS(ARGR,ARGI) 174 RAZ = 1.0D0/AZABS(ZR,ZI)
|
H A D | zwrsk.f | 14 * STI, STR, TOL, YI, YR, ZRI, ZRR, AZABS, D1MACH local 42 ACW = AZABS(CWR(2),CWI(2)) 69 ACT = AZABS(CTR,CTI)
|
H A D | zunk2.f | 29 * ZET2DR, ZI, ZNI, ZNR, ZR, ZRI, ZRR, D1MACH, AZABS local 108 RAST = FN/AZABS(STR,STI) 128 APHI = AZABS(PHIR(J),PHII(J)) 129 AARG = AZABS(ARGR(J),ARGI(J)) 196 RAZR = 1.0D0/AZABS(ZRR,ZRI) 217 RAST = FN/AZABS(STR,STI) 233 APHI = AZABS(PHIDR,PHIDI) 358 RAST = FN/AZABS(STR,STI) 378 APHI = AZABS(PHIDR,PHIDI) 379 AARG = AZABS(ARGDR,ARGDI)
|
H A D | zuni1.f | 23 * ZETA1R, ZETA2I, ZETA2R, ZI, ZR, CYR, CYI, D1MACH, AZABS local 56 RAST = FN/AZABS(STR,STI) 78 RAST = FN/AZABS(STR,STI) 98 APHI = AZABS(PHIR,PHII) 127 RAST = 1.0D0/AZABS(ZR,ZI)
|
H A D | zlog.f | 10 DOUBLE PRECISION AZABS local 34 50 ZM = AZABS(AR,AI)
|
H A D | zunk1.f | 22 * ZET1DI, ZET1DR, ZET2DI, ZET2DR, ZI, ZR, ZRI, ZRR, D1MACH, AZABS local 68 RAST = FN/AZABS(STR,STI) 88 APHI = AZABS(PHIR(J),PHII(J)) 136 RAZR = 1.0D0/AZABS(ZRR,ZRI) 159 RAST = FN/AZABS(STR,STI) 175 APHI = AZABS(PHIDR,PHIDI) 290 RAST = FN/AZABS(STR,STI) 310 APHI = AZABS(PHIDR,PHIDI)
|
H A D | zsqrt.f | 10 DOUBLE PRECISION AZABS local 13 ZM = AZABS(AR,AI)
|
H A D | zseri.f | 21 * ZR, DGAMLN, D1MACH, AZABS local 27 AZ = AZABS(ZR,ZI) 41 ACZ = AZABS(CZR,CZI) 160 IF (AZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
H A D | zkscl.f | 14 * S2R, TOL, YI, YR, ZEROI, ZEROR, ZRI, ZRR, AZABS, local 28 AS = AZABS(S1R,S1I) 81 AS = AZABS(S2R,S2I)
|
H A D | zbuni.f | 17 * S2I, S2R, TOL, YI, YR, ZI, ZR, AZABS, ASCLE, BRY, C1R, C1I, C1M, local 49 STR = AZABS(CYR(1),CYI(1)) 75 RAZ = 1.0D0/AZABS(ZR,ZI)
|
H A D | zacai.f | 22 * RL, SGN, TOL, YY, YR, YI, ZR, ZI, ZNR, ZNI, D1MACH, AZABS local 29 AZ = AZABS(ZR,ZI)
|
H A D | zbesj.f | 150 * D1MACH, BB, FN, AZ, AZABS, ASCLE, RTOL, ATOL, STI local 189 AZ = AZABS(ZR,ZI)
|
H A D | zbesi.f | 155 * ZR, D1MACH, AZ, BB, FN, AZABS, ASCLE, RTOL, ATOL, STI local 195 AZ = AZABS(ZR,ZI)
|
H A D | zbinu.f | 11 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, AZABS local 17 AZ = AZABS(ZR,ZI)
|
H A D | zbesk.f | 155 * FNU, FNUL, RL, R1M5, TOL, UFL, ZI, ZR, D1MACH, AZABS, BB local 194 AZ = AZABS(ZR,ZI)
|
H A D | zacon.f | 23 * YY, ZEROR, ZI, ZNI, ZNR, ZR, D1MACH, AZABS local 105 AZN = AZABS(ZNR,ZNI) 128 AS2 = AZABS(S2R,S2I)
|
H A D | zbesh.f | 161 * ZNI, ZNR, ZR, ZTI, D1MACH, AZABS, BB, ASCLE, RTOL, ATOL, STI, local 211 AZ = AZABS(ZR,ZI)
|
H A D | zbknu.f | 19 * TOL, TTH, T1, T2, YI, YR, ZI, ZR, DGAMLN, D1MACH, AZABS, ELM, local 41 CAZ = AZABS(ZR,ZI) 323 TM = AZABS(CSR,CSI) 340 TM = AZABS(P2R,P2I) 475 AS = AZABS(S2R,S2I)
|
H A D | zasyi.f | 18 * S2R, TOL, TZI, TZR, YI, YR, ZEROI, ZEROR, ZI, ZR, D1MACH, AZABS local 25 AZ = AZABS(ZR,ZI)
|