/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zuoik.f | 97 CZR = CZR - ZBR 101 CZR = -CZR 105 RCZ = CZR 134 CZR = CZR + STR 138 CZR = CZR - 0.25D0*STR - AIC 143 CZR = AX*COS(AY) 170 CZR = CZR - ZBR 174 RCZ = CZR 190 CZR = CZR + STR 194 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 27 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local 51 CZR = ZR 54 CZR = ZEROR 57 IF (ABS(CZR).GT.ELIM) GO TO 100 60 IF ((ABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 62 CALL ZEXP(CZR, CZI, STR, STI) 164 CALL ZEXP(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local 48 CZR = ZEROR 51 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 53 ACZ = ZABS(CZR,CZI) 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR
|
/dports/math/slatec/src/ |
H A D | zuoik.f | 97 CZR = CZR - ZBR 101 CZR = -CZR 105 RCZ = CZR 134 CZR = CZR + STR 138 CZR = CZR - 0.25D0*STR - AIC 143 CZR = AX*COS(AY) 170 CZR = CZR - ZBR 174 RCZ = CZR 190 CZR = CZR + STR 194 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 27 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, 51 CZR = ZR 54 CZR = ZEROR 57 IF (ABS(CZR).GT.ELIM) GO TO 100 60 IF ((ABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 62 CALL ZEXP(CZR, CZI, STR, STI) 164 CALL ZEXP(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 48 CZR = ZEROR 51 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 53 ACZ = ZABS(CZR,CZI) 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zuoik.f | 97 CZR = CZR - ZBR 101 CZR = -CZR 105 RCZ = CZR 134 CZR = CZR + STR 138 CZR = CZR - 0.25D0*STR - AIC 143 CZR = AX*COS(AY) 170 CZR = CZR - ZBR 174 RCZ = CZR 190 CZR = CZR + STR 194 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 27 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local 51 CZR = ZR 54 CZR = ZEROR 57 IF (ABS(CZR).GT.ELIM) GO TO 100 60 IF ((ABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 62 CALL ZEXP(CZR, CZI, STR, STI) 164 CALL ZEXP(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 48 CZR = ZEROR 51 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 53 ACZ = ZABS(CZR,CZI) 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zuoik.f | 84 CZR = CZR - ZBR 88 CZR = -CZR 92 RCZ = CZR 121 CZR = CZR + STR 125 CZR = CZR - 0.25D0*STR - AIC 130 CZR = AX*DCOS(AY) 157 CZR = CZR - ZBR 161 RCZ = CZR 177 CZR = CZR + STR 181 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local 39 CZR = ZR 42 CZR = ZEROR 45 IF (DABS(CZR).GT.ELIM) GO TO 100 48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 50 CALL AZEXP(CZR, CZI, STR, STI) 152 CALL AZEXP(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local 36 CZR = ZEROR 39 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 41 ACZ = AZABS(CZR,CZI) 90 STR = AK1R*CZR - AK1I*CZI 91 STI = AK1R*CZI + AK1I*CZR
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zuoik.f | 84 CZR = CZR - ZBR 88 CZR = -CZR 92 RCZ = CZR 121 CZR = CZR + STR 125 CZR = CZR - 0.25D0*STR - AIC 130 CZR = AX*DCOS(AY) 157 CZR = CZR - ZBR 161 RCZ = CZR 177 CZR = CZR + STR 181 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local 39 CZR = ZR 42 CZR = ZEROR 45 IF (DABS(CZR).GT.ELIM) GO TO 100 48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 50 CALL XZEXP(CZR, CZI, STR, STI) 152 CALL XZEXP(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local 36 CZR = ZEROR 39 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 41 ACZ = XZABS(CZR,CZI) 90 STR = AK1R*CZR - AK1I*CZI 91 STI = AK1R*CZI + AK1I*CZR
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zuoik.f | 84 CZR = CZR - ZBR 88 CZR = -CZR 92 RCZ = CZR 121 CZR = CZR + STR 125 CZR = CZR - 0.25D0*STR - AIC 130 CZR = AX*DCOS(AY) 157 CZR = CZR - ZBR 161 RCZ = CZR 177 CZR = CZR + STR 181 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, 39 CZR = ZR 42 CZR = ZEROR 45 IF (DABS(CZR).GT.ELIM) GO TO 100 48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 50 CALL ZEXP(CZR, CZI, STR, STI) 156 CALL ZEXP(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 39 CZR = ZEROR 42 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 44 ACZ = ZABS(CMPLX(CZR,CZI,kind=KIND(1.0D0))) 93 STR = AK1R*CZR - AK1I*CZI 94 STI = AK1R*CZI + AK1I*CZR
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zuoik.f | 85 CZR = CZR - ZBR 89 CZR = -CZR 93 RCZ = CZR 122 CZR = CZR + STR 126 CZR = CZR - 0.25D0*STR - AIC 131 CZR = AX*DCOS(AY) 158 CZR = CZR - ZBR 162 RCZ = CZR 178 CZR = CZR + STR 182 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 17 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, 40 CZR = ZR 43 CZR = ZEROR 46 IF (DABS(CZR).GT.ELIM) GO TO 100 49 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 51 CALL ZEXPAMOS(CZR, CZI, STR, STI) 153 CALL ZEXPAMOS(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 19 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 37 CZR = ZEROR 40 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 42 ACZ = ZABS(CZR,CZI) 91 STR = AK1R*CZR - AK1I*CZI 92 STI = AK1R*CZI + AK1I*CZR
|
H A D | zbknu.f | 16 * CZEROI, CZEROR, CZI, CZR, DNU, DNU2, DPI, ELIM, ETEST, FC, FHS, 128 CALL ZMLT(ZR, ZI, ZR, ZI, CZR, CZI) 129 CZR = 0.25D0*CZR 141 STR = CKR*CZR - CKI*CZI 143 CKI = (CKR*CZI+CKI*CZR)*RAK 163 CALL ZMLT(ZR, ZI, ZR, ZI, CZR, CZI) 164 CZR = 0.25D0*CZR 176 STR = CKR*CZR - CKI*CZI 178 CKI = (CKR*CZI+CKI*CZR)*RAK
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zuoik.f | 84 CZR = CZR - ZBR 88 CZR = -CZR 92 RCZ = CZR 121 CZR = CZR + STR 125 CZR = CZR - 0.25D0*STR - AIC 130 CZR = AX*DCOS(AY) 157 CZR = CZR - ZBR 161 RCZ = CZR 177 CZR = CZR + STR 181 CZR = CZR - 0.25D0*STR - AIC [all …]
|
H A D | zasyi.f | 16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, 39 CZR = ZR 42 CZR = ZEROR 45 IF (DABS(CZR).GT.ELIM) GO TO 100 48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20 50 CALL ZEXP(CZR, CZI, STR, STI) 156 CALL ZEXP(CZR, CZI, CKR, CKI)
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 39 CZR = ZEROR 42 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI) 44 ACZ = ZABS(CMPLX(CZR,CZI,kind=KIND(1.0D0))) 93 STR = AK1R*CZR - AK1I*CZI 94 STI = AK1R*CZI + AK1I*CZR
|