/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zunhj.f | 2 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) argument 38 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, local 512 BSUMR = SUMBR 516 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 549 BSUMR = BSUMR + SUMBR*PP 560 BSUMR = BSUMR*PP 628 BSUMR = UPR(2) + ZCR 640 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 701 BSUMR = BSUMR + SUMBR 710 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local 84 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 105 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 144 STR = DAIR*BSUMR - DAII*BSUMI 145 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 31 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, local 78 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 151 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zunhj.f | 2 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) argument 38 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, local 512 BSUMR = SUMBR 516 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 549 BSUMR = BSUMR + SUMBR*PP 560 BSUMR = BSUMR*PP 628 BSUMR = UPR(2) + ZCR 640 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 701 BSUMR = BSUMR + SUMBR 710 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local 84 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 105 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 144 STR = DAIR*BSUMR - DAII*BSUMI 145 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 31 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, local 78 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 151 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zunhj.f | 2 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 38 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, 512 BSUMR = SUMBR 516 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 549 BSUMR = BSUMR + SUMBR*PP 560 BSUMR = BSUMR*PP 628 BSUMR = UPR(2) + ZCR 640 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 701 BSUMR = BSUMR + SUMBR 710 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, 84 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 105 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 144 STR = DAIR*BSUMR - DAII*BSUMI 145 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 31 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, 78 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 151 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zunhj.f | 3 + ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) argument 49 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, local 524 BSUMR = SUMBR 528 BTOL = TOL*(ABS(BSUMR)+ABS(BSUMI)) 561 BSUMR = BSUMR + SUMBR*PP 572 BSUMR = BSUMR*PP 640 BSUMR = UPR(2) + ZCR 652 BTOL = TOL*(ABS(BSUMR)+ABS(BSUMI)) 713 BSUMR = BSUMR + SUMBR 722 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 31 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local 95 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 116 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 155 STR = DAIR*BSUMR - DAII*BSUMI 156 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 42 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, local 91 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 164 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|
/dports/math/slatec/src/ |
H A D | zunhj.f | 3 + ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 49 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, 524 BSUMR = SUMBR 528 BTOL = TOL*(ABS(BSUMR)+ABS(BSUMI)) 561 BSUMR = BSUMR + SUMBR*PP 572 BSUMR = BSUMR*PP 640 BSUMR = UPR(2) + ZCR 652 BTOL = TOL*(ABS(BSUMR)+ABS(BSUMI)) 713 BSUMR = BSUMR + SUMBR 722 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 31 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, 95 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 116 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 155 STR = DAIR*BSUMR - DAII*BSUMI 156 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 42 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, 91 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 164 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zunhj.f | 3 + ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) argument 49 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, local 524 BSUMR = SUMBR 528 BTOL = TOL*(ABS(BSUMR)+ABS(BSUMI)) 561 BSUMR = BSUMR + SUMBR*PP 572 BSUMR = BSUMR*PP 640 BSUMR = UPR(2) + ZCR 652 BTOL = TOL*(ABS(BSUMR)+ABS(BSUMI)) 713 BSUMR = BSUMR + SUMBR 722 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 31 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local 95 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 116 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 155 STR = DAIR*BSUMR - DAII*BSUMI 156 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 42 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, local 91 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 164 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zunhj.f | 2 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 39 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, 513 BSUMR = SUMBR 517 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 550 BSUMR = BSUMR + SUMBR*PP 561 BSUMR = BSUMR*PP 629 BSUMR = UPR(2) + ZCR 641 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 702 BSUMR = BSUMR + SUMBR 711 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 22 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, 85 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 106 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 145 STR = DAIR*BSUMR - DAII*BSUMI 146 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 32 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, 79 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 152 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|
H A D | zunk2.f | 23 * BRY, BSUMDI, BSUMDR, BSUMI, BSUMR, CAR, CIPI, CIPR, CKI, CKR, 33 DIMENSION BRY(3), YR(N), YI(N), ASUMR(2), ASUMI(2), BSUMR(2), 105 * ASUMI(J), BSUMR(J), BSUMI(J)) 145 STR = DAIR*BSUMR(J) - DAII*BSUMI(J) 146 STI = DAIR*BSUMI(J) + DAII*BSUMR(J) 345 BSUMDR = BSUMR(J)
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zunhj.f | 2 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 38 * ATOL, AW2, AZTH, BETA, BR, BSUMI, BSUMR, BTOL, C, CONEI, CONER, 512 BSUMR = SUMBR 516 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 549 BSUMR = BSUMR + SUMBR*PP 560 BSUMR = BSUMR*PP 628 BSUMR = UPR(2) + ZCR 640 BTOL = TOL*(DABS(BSUMR)+DABS(BSUMI)) 701 BSUMR = BSUMR + SUMBR 710 STR = -BSUMR*RFN13 [all …]
|
H A D | zuni2.f | 21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, 84 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 105 * ZETA1R, ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 144 STR = DAIR*BSUMR - DAII*BSUMI 145 STI = DAIR*BSUMI + DAII*BSUMR
|
H A D | zuoik.f | 31 * ASCLE, AX, AY, BSUMI, BSUMR, CWRKI, CWRKR, CZI, CZR, ELIM, FNN, 78 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI) 151 * ZETA1I, ZETA2R, ZETA2I, ASUMR, ASUMI, BSUMR, BSUMI)
|