Home
last modified time | relevance | path

Searched refs:ASCLE (Results 1 – 25 of 207) sorted by relevance

123456789

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dcwrsk.f11 REAL ACT, ACW, ALIM, ASCLE, ELIM, FNU, S1, S2, TOL, YY
41 ASCLE = 1.0E+3*R1MACH(1)/TOL
43 IF (ACW.GT.ASCLE) GO TO 20
47 ASCLE = 1.0E0/ASCLE
48 IF (ACW.LT.ASCLE) GO TO 30
H A Dcbuni.f16 * ASCLE, BRY, STR, STI, STM, R1MACH
55 ASCLE = BRY(2)
60 ASCLE = BRY(1)
67 ASCLE = BRY(3)
88 IF (STM.LE.ASCLE) GO TO 30
90 ASCLE = BRY(IFLAG)
119 IF (STM.LE.ASCLE) GO TO 40
121 ASCLE = BRY(IFLAG)
H A Dzwrsk.f13 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI,
44 ASCLE = 1.0D+3*D1MACH(1)/TOL
46 IF (ACW.GT.ASCLE) GO TO 20
50 ASCLE = 1.0D0/ASCLE
51 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f18 * S2I, S2R, TOL, YI, YR, ZI, ZR, ZABS, ASCLE, BRY, C1R, C1I, C1M,
58 ASCLE = BRY(2)
62 ASCLE = BRY(1)
68 ASCLE=BRY(3)
95 IF (C1M.LE.ASCLE) GO TO 30
97 ASCLE = BRY(IFLAG)
132 IF (C1M.LE.ASCLE) GO TO 40
134 ASCLE = BRY(IFLAG)
H A Dcacon.f18 REAL ALIM, ARG, ASCLE, AS2, BSCLE, BRY, CPN, C1I, C1M, C1R, ELIM,
58 ASCLE = 1.0E+3*R1MACH(1)/TOL
60 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
71 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
91 BRY(1) = ASCLE
92 BRY(2) = 1.0E0/ASCLE
116 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dcwrsk.f11 REAL ACT, ACW, ALIM, ASCLE, ELIM, FNU, S1, S2, TOL, YY local
41 ASCLE = 1.0E+3*R1MACH(1)/TOL
43 IF (ACW.GT.ASCLE) GO TO 20
47 ASCLE = 1.0E0/ASCLE
48 IF (ACW.LT.ASCLE) GO TO 30
H A Dcbuni.f16 * ASCLE, BRY, STR, STI, STM, R1MACH local
55 ASCLE = BRY(2)
60 ASCLE = BRY(1)
67 ASCLE = BRY(3)
88 IF (STM.LE.ASCLE) GO TO 30
90 ASCLE = BRY(IFLAG)
119 IF (STM.LE.ASCLE) GO TO 40
121 ASCLE = BRY(IFLAG)
H A Dzwrsk.f12 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI, local
43 ASCLE = 1.0D+3*D1MACH(1)/TOL
45 IF (ACW.GT.ASCLE) GO TO 20
49 ASCLE = 1.0D0/ASCLE
50 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f17 * S2I, S2R, TOL, YI, YR, ZI, ZR, XZABS, ASCLE, BRY, C1R, C1I, C1M, local
57 ASCLE = BRY(2)
61 ASCLE = BRY(1)
67 ASCLE=BRY(3)
94 IF (C1M.LE.ASCLE) GO TO 30
96 ASCLE = BRY(IFLAG)
131 IF (C1M.LE.ASCLE) GO TO 40
133 ASCLE = BRY(IFLAG)
H A Dcacon.f18 REAL ALIM, ARG, ASCLE, AS2, BSCLE, BRY, CPN, C1I, C1M, C1R, ELIM, local
58 ASCLE = 1.0E+3*R1MACH(1)/TOL
60 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
71 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
91 BRY(1) = ASCLE
92 BRY(2) = 1.0E0/ASCLE
116 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
/dports/math/slatec/src/
H A Dcwrsk.f21 REAL ACT, ACW, ALIM, ASCLE, ELIM, FNU, S1, S2, TOL, YY, R1MACH
52 ASCLE = 1.0E+3*R1MACH(1)/TOL
54 IF (ACW.GT.ASCLE) GO TO 20
58 ASCLE = 1.0E0/ASCLE
59 IF (ACW.LT.ASCLE) GO TO 30
H A Dcbuni.f26 * ASCLE, BRY, STR, STI, STM, R1MACH
66 ASCLE = BRY(2)
71 ASCLE = BRY(1)
78 ASCLE = BRY(3)
99 IF (STM.LE.ASCLE) GO TO 30
101 ASCLE = BRY(IFLAG)
130 IF (STM.LE.ASCLE) GO TO 40
132 ASCLE = BRY(IFLAG)
H A Dzwrsk.f22 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI,
56 ASCLE = 1.0D+3*D1MACH(1)/TOL
58 IF (ACW.GT.ASCLE) GO TO 20
62 ASCLE = 1.0D0/ASCLE
63 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f27 * S2I, S2R, TOL, YI, YR, ZI, ZR, ZABS, ASCLE, BRY, C1R, C1I, C1M,
69 ASCLE = BRY(2)
73 ASCLE = BRY(1)
79 ASCLE=BRY(3)
106 IF (C1M.LE.ASCLE) GO TO 30
108 ASCLE = BRY(IFLAG)
143 IF (C1M.LE.ASCLE) GO TO 40
145 ASCLE = BRY(IFLAG)
H A Dcacon.f28 REAL ALIM, ARG, ASCLE, AS2, BSCLE, BRY, CPN, C1I, C1M, C1R, ELIM,
69 ASCLE = 1.0E+3*R1MACH(1)/TOL
71 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
82 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
102 BRY(1) = ASCLE
103 BRY(2) = 1.0E0/ASCLE
127 CALL CS1S2(ZN, C1, C2, NW, ASCLE, ALIM, IUF)
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzwrsk.f12 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI, local
43 ASCLE = 1.0D+3*D1MACH(1)/TOL
45 IF (ACW.GT.ASCLE) GO TO 20
49 ASCLE = 1.0D0/ASCLE
50 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f17 * S2I, S2R, TOL, YI, YR, ZI, ZR, AZABS, ASCLE, BRY, C1R, C1I, C1M, local
57 ASCLE = BRY(2)
61 ASCLE = BRY(1)
67 ASCLE=BRY(3)
94 IF (C1M.LE.ASCLE) GO TO 30
96 ASCLE = BRY(IFLAG)
131 IF (C1M.LE.ASCLE) GO TO 40
133 ASCLE = BRY(IFLAG)
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzwrsk.f12 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI,
43 ASCLE = 1.0D+3*D1MACH(1)/TOL
45 IF (ACW.GT.ASCLE) GO TO 20
49 ASCLE = 1.0D0/ASCLE
50 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f17 * S2I, S2R, TOL, YI, YR, ZI, ZR, ZABS, ASCLE, BRY, C1R, C1I, C1M,
57 ASCLE = BRY(2)
61 ASCLE = BRY(1)
67 ASCLE=BRY(3)
94 IF (C1M.LE.ASCLE) GO TO 30
96 ASCLE = BRY(IFLAG)
131 IF (C1M.LE.ASCLE) GO TO 40
133 ASCLE = BRY(IFLAG)
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzwrsk.f22 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI, local
56 ASCLE = 1.0D+3*D1MACH(1)/TOL
58 IF (ACW.GT.ASCLE) GO TO 20
62 ASCLE = 1.0D0/ASCLE
63 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f27 * S2I, S2R, TOL, YI, YR, ZI, ZR, ZABS, ASCLE, BRY, C1R, C1I, C1M, local
69 ASCLE = BRY(2)
73 ASCLE = BRY(1)
79 ASCLE=BRY(3)
106 IF (C1M.LE.ASCLE) GO TO 30
108 ASCLE = BRY(IFLAG)
143 IF (C1M.LE.ASCLE) GO TO 40
145 ASCLE = BRY(IFLAG)
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzwrsk.f22 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI, local
56 ASCLE = 1.0D+3*D1MACH(1)/TOL
58 IF (ACW.GT.ASCLE) GO TO 20
62 ASCLE = 1.0D0/ASCLE
63 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f27 * S2I, S2R, TOL, YI, YR, ZI, ZR, ZABS, ASCLE, BRY, C1R, C1I, C1M, local
69 ASCLE = BRY(2)
73 ASCLE = BRY(1)
79 ASCLE=BRY(3)
106 IF (C1M.LE.ASCLE) GO TO 30
108 ASCLE = BRY(IFLAG)
143 IF (C1M.LE.ASCLE) GO TO 40
145 ASCLE = BRY(IFLAG)
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzwrsk.f12 DOUBLE PRECISION ACT, ACW, ALIM, ASCLE, CINUI, CINUR, CSCLR, CTI,
43 ASCLE = 1.0D+3*D1MACH(1)/TOL
45 IF (ACW.GT.ASCLE) GO TO 20
49 ASCLE = 1.0D0/ASCLE
50 IF (ACW.LT.ASCLE) GO TO 30
H A Dzbuni.f17 * S2I, S2R, TOL, YI, YR, ZI, ZR, ZABS, ASCLE, BRY, C1R, C1I, C1M,
57 ASCLE = BRY(2)
61 ASCLE = BRY(1)
67 ASCLE=BRY(3)
94 IF (C1M.LE.ASCLE) GO TO 30
96 ASCLE = BRY(IFLAG)
131 IF (C1M.LE.ASCLE) GO TO 40
133 ASCLE = BRY(IFLAG)

123456789