Home
last modified time | relevance | path

Searched refs:ARGR (Results 1 – 25 of 43) sorted by relevance

12

/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzuoik.f41 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR, local
90 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
94 AARG = ZABS(ARGR,ARGI)
137 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
163 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
167 AARG = ZABS(ARGR,ARGI)
193 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f31 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local
94 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
115 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
142 AARG = ZABS(ARGR,ARGI)
153 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
154 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f31 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR, local
43 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
113 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
140 AARG = ZABS(ARGR(J),ARGI(J))
151 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
152 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
347 ARGDR = ARGR(J)
/dports/math/slatec/src/
H A Dzuoik.f41 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR,
90 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
94 AARG = ZABS(ARGR,ARGI)
137 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
163 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
167 AARG = ZABS(ARGR,ARGI)
193 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f31 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR,
94 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
115 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
142 AARG = ZABS(ARGR,ARGI)
153 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
154 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f31 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR,
43 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
113 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
140 AARG = ZABS(ARGR(J),ARGI(J))
151 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
152 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
347 ARGDR = ARGR(J)
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzuoik.f41 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR, local
90 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
94 AARG = ZABS(ARGR,ARGI)
137 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
163 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
167 AARG = ZABS(ARGR,ARGI)
193 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f31 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local
94 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
115 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
142 AARG = ZABS(ARGR,ARGI)
153 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
154 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f31 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR, local
43 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
113 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
140 AARG = ZABS(ARGR(J),ARGI(J))
151 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
152 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
347 ARGDR = ARGR(J)
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzuoik.f30 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR, local
77 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
81 AARG = AZABS(ARGR,ARGI)
124 CALL AZLOG(ARGR, ARGI, STR, STI, IDUM)
150 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
154 AARG = AZABS(ARGR,ARGI)
180 CALL AZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local
83 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
104 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
131 AARG = AZABS(ARGR,ARGI)
142 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
143 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f21 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR, local
33 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
102 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
129 AARG = AZABS(ARGR(J),ARGI(J))
140 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
141 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
336 ARGDR = ARGR(J)
H A Dzunhj.f1 SUBROUTINE ZUNHJ(ZR, ZI, FNU, IPMTR, TOL, PHIR, PHII, ARGR, ARGI, argument
37 DOUBLE PRECISION ALFA, ANG, AP, AR, ARGI, ARGR, ASUMI, ASUMR, local
445 ARGR = 1.0D0
485 ARGR = ZETAR*FN23
597 ARGR = ZETAR*FN23
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzuoik.f30 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR, local
77 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
81 AARG = XZABS(ARGR,ARGI)
124 CALL XZLOG(ARGR, ARGI, STR, STI, IDUM)
150 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
154 AARG = XZABS(ARGR,ARGI)
180 CALL XZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR, local
83 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
104 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
131 AARG = XZABS(ARGR,ARGI)
142 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
143 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f21 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR, local
33 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
102 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
129 AARG = XZABS(ARGR(J),ARGI(J))
140 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
141 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
336 ARGDR = ARGR(J)
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzuoik.f30 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR,
77 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
81 AARG = ZABS(CMPLX(ARGR,ARGI,kind=KIND(1.0D0)))
124 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
150 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
154 AARG = ZABS(CMPLX(ARGR,ARGI,kind=KIND(1.0D0)))
180 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR,
83 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
104 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
131 AARG = ZABS(CMPLX(ARGR,ARGI,kind=KIND(1.0D0)))
142 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
143 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f21 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR,
33 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
102 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
129 AARG = ZABS(CMPLX(ARGR(J),ARGI(J),kind=KIND(1.0D0)))
140 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
141 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
336 ARGDR = ARGR(J)
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzuoik.f31 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR,
78 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
82 AARG = ZABS(ARGR,ARGI)
125 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
151 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
155 AARG = ZABS(ARGR,ARGI)
181 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f22 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR,
84 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
105 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
132 AARG = ZABS(ARGR,ARGI)
143 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
144 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f22 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR,
34 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
103 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
130 AARG = ZABS(ARGR(J),ARGI(J))
141 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
142 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
337 ARGDR = ARGR(J)
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzuoik.f30 DOUBLE PRECISION AARG, AIC, ALIM, APHI, ARGI, ARGR, ASUMI, ASUMR,
77 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
81 AARG = ZABS(CMPLX(ARGR,ARGI,kind=KIND(1.0D0)))
124 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
150 CALL ZUNHJ(ZNR, ZNI, GNU, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
154 AARG = ZABS(CMPLX(ARGR,ARGI,kind=KIND(1.0D0)))
180 CALL ZLOG(ARGR, ARGI, STR, STI, IDUM)
H A Dzuni2.f21 * ARGR, ASCLE, ASUMI, ASUMR, BRY, BSUMI, BSUMR, CIDI, CIPI, CIPR,
83 CALL ZUNHJ(ZNR, ZNI, FN, 1, TOL, PHIR, PHII, ARGR, ARGI, ZETA1R,
104 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR, PHII, ARGR, ARGI,
131 AARG = ZABS(CMPLX(ARGR,ARGI,kind=KIND(1.0D0)))
142 CALL ZAIRY(ARGR, ARGI, 0, 2, AIR, AII, NAI, IDUM)
143 CALL ZAIRY(ARGR, ARGI, 1, 2, DAIR, DAII, NDAI, IDUM)
H A Dzunk2.f21 * ARGDR, ARGI, ARGR, ASC, ASCLE, ASUMDI, ASUMDR, ASUMI, ASUMR,
33 * BSUMI(2), PHIR(2), PHII(2), ARGR(2), ARGI(2), ZETA1R(2),
102 CALL ZUNHJ(ZNR, ZNI, FN, 0, TOL, PHIR(J), PHII(J), ARGR(J),
129 AARG = ZABS(CMPLX(ARGR(J),ARGI(J),kind=KIND(1.0D0)))
140 C2R = ARGR(J)*CR2R - ARGI(J)*CR2I
141 C2I = ARGR(J)*CR2I + ARGI(J)*CR2R
336 ARGDR = ARGR(J)

12