/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zunik.f | 25 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, local 31 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 132 SR = CONER + (TR*TR-TI*TI) 135 STR = CONER + SRR 143 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 150 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 151 CWRKR(1) = CONER 153 CRFNR = CONER 200 TR = CONER
|
H A D | zrati.f | 16 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, local 21 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 40 P1R = CONER 102 T1R = T1R - CONER 125 RAK = CONER/AK 128 T1R = T1R - CONER
|
H A D | zasyi.f | 15 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, local 22 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 88 CS1R = CONER 90 CS2R = CONER 92 CKR = CONER
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zunik.f | 25 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, 31 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 132 SR = CONER + (TR*TR-TI*TI) 135 STR = CONER + SRR 143 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 150 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 151 CWRKR(1) = CONER 153 CRFNR = CONER 200 TR = CONER
|
H A D | zrati.f | 16 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, 21 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 40 P1R = CONER 102 T1R = T1R - CONER 125 RAK = CONER/AK 128 T1R = T1R - CONER
|
H A D | zasyi.f | 15 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, 22 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 90 CS1R = CONER 92 CS2R = CONER 94 CKR = CONER
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zunik.f | 36 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, local 43 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 144 SR = CONER + (TR*TR-TI*TI) 147 STR = CONER + SRR 155 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 162 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 163 CWRKR(1) = CONER 165 CRFNR = CONER 212 TR = CONER
|
H A D | zrati.f | 25 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, local 31 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 51 P1R = CONER 113 T1R = T1R - CONER 136 RAK = CONER/AK 139 T1R = T1R - CONER
|
H A D | zasyi.f | 26 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, local 34 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 100 CS1R = CONER 102 CS2R = CONER 104 CKR = CONER
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zunik.f | 25 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, local 31 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 132 SR = CONER + (TR*TR-TI*TI) 135 STR = CONER + SRR 143 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 150 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 151 CWRKR(1) = CONER 153 CRFNR = CONER 200 TR = CONER
|
H A D | zrati.f | 16 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, local 21 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 40 P1R = CONER 102 T1R = T1R - CONER 125 RAK = CONER/AK 128 T1R = T1R - CONER
|
H A D | zasyi.f | 15 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, local 22 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 88 CS1R = CONER 90 CS2R = CONER 92 CKR = CONER
|
/dports/math/slatec/src/ |
H A D | zunik.f | 36 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, 43 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 144 SR = CONER + (TR*TR-TI*TI) 147 STR = CONER + SRR 155 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 162 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 163 CWRKR(1) = CONER 165 CRFNR = CONER 212 TR = CONER
|
H A D | zrati.f | 25 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, 31 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 51 P1R = CONER 113 T1R = T1R - CONER 136 RAK = CONER/AK 139 T1R = T1R - CONER
|
H A D | zasyi.f | 26 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, 34 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 100 CS1R = CONER 102 CS2R = CONER 104 CKR = CONER
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zunik.f | 36 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, local 43 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 144 SR = CONER + (TR*TR-TI*TI) 147 STR = CONER + SRR 155 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 162 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 163 CWRKR(1) = CONER 165 CRFNR = CONER 212 TR = CONER
|
H A D | zrati.f | 25 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, 31 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 51 P1R = CONER 113 T1R = T1R - CONER 136 RAK = CONER/AK 139 T1R = T1R - CONER
|
H A D | zasyi.f | 26 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, local 34 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 100 CS1R = CONER 102 CS2R = CONER 104 CKR = CONER
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zunik.f | 25 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, 31 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 132 SR = CONER + (TR*TR-TI*TI) 135 STR = CONER + SRR 143 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 150 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 151 CWRKR(1) = CONER 153 CRFNR = CONER 200 TR = CONER
|
H A D | zrati.f | 17 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, 22 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 41 P1R = CONER 103 T1R = T1R - CONER 126 RAK = CONER/AK 129 T1R = T1R - CONER
|
H A D | zasyi.f | 16 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, 23 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 89 CS1R = CONER 91 CS2R = CONER 93 CKR = CONER
|
H A D | zbiry.f | 126 * BK, CC, CK, COEF, CONEI, CONER, CSQI, CSQR, CYI, CYR, C1, C2, 135 DATA CONER, CONEI /1.0D0,0.0D0/ 149 S1R = CONER 151 S2R = CONER 156 TRM1R = CONER 158 TRM2R = CONER
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zunik.f | 25 DOUBLE PRECISION AC, C, CON, CONEI, CONER, CRFNI, CRFNR, CWRKI, 31 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 132 SR = CONER + (TR*TR-TI*TI) 135 STR = CONER + SRR 143 CALL ZDIV(CONER, CONEI, SRR, SRI, TR, TI) 150 CALL ZDIV(CONER, CONEI, SR, SI, T2R, T2I) 151 CWRKR(1) = CONER 153 CRFNR = CONER 200 TR = CONER
|
H A D | zrati.f | 16 * CONEI, CONER, CYI, CYR, CZEROI, CZEROR, DFNU, FDNU, FLAM, FNU, 21 DATA CZEROR,CZEROI,CONER,CONEI,RT2/ 40 P1R = CONER 102 T1R = T1R - CONER 125 RAK = CONER/AK 128 T1R = T1R - CONER
|
H A D | zasyi.f | 15 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, 22 DATA ZEROR,ZEROI,CONER,CONEI / 0.0D0, 0.0D0, 1.0D0, 0.0D0 / 90 CS1R = CONER 92 CS2R = CONER 94 CKR = CONER
|