/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | cwrsk.f | 11 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 D | cbuni.f | 16 * 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 D | zwrsk.f | 13 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 D | zbuni.f | 18 * 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 D | cacon.f | 18 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 D | cwrsk.f | 11 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 D | cbuni.f | 16 * 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 D | zwrsk.f | 12 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 D | zbuni.f | 17 * 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 D | cacon.f | 18 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 D | cwrsk.f | 21 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 D | cbuni.f | 26 * 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 D | zwrsk.f | 22 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 D | zbuni.f | 27 * 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 D | cacon.f | 28 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 D | zwrsk.f | 12 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 D | zbuni.f | 17 * 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 D | zwrsk.f | 12 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 D | zbuni.f | 17 * 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 D | zwrsk.f | 22 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 D | zbuni.f | 27 * 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 D | zwrsk.f | 22 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 D | zbuni.f | 27 * 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 D | zwrsk.f | 12 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 D | zbuni.f | 17 * 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)
|