/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | cbinu.f | 1 SUBROUTINE CBINU(Z, FNU, KODE, N, CY, NZ, RL, FNUL, TOL, ELIM, argument 11 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL 56 IF (DFNU.GT.FNUL) GO TO 110 57 IF (AZ.GT.FNUL) GO TO 110 90 NUI = INT(FNUL-DFNU) + 1 92 CALL CBUNI(Z, FNU, KODE, NN, CY, NW, NUI, NLAST, FNUL, TOL, ELIM,
|
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 12 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, ZABS 59 IF (DFNU.GT.FNUL) GO TO 110 60 IF (AZ.GT.FNUL) GO TO 110 96 NUI = INT(SNGL(FNUL-DFNU)) + 1 98 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
H A D | cbuni.f | 1 SUBROUTINE CBUNI(Z, FNU, KODE, N, Y, NZ, NUI, NLAST, FNUL, TOL, argument 15 REAL ALIM, AX, AY, DFNU, ELIM, FNU, FNUI, FNUL, GNU, TOL, XX, YY, 35 CALL CUNI1(Z, GNU, KODE, 2, CY, NW, NLAST, FNUL, TOL, ELIM, ALIM) 43 CALL CUNI2(Z, GNU, KODE, 2, CY, NW, NLAST, FNUL, TOL, ELIM, ALIM) 142 CALL CUNI1(Z, FNU, KODE, N, Y, NW, NLAST, FNUL, TOL, ELIM, ALIM) 150 CALL CUNI2(Z, FNU, KODE, N, Y, NW, NLAST, FNUL, TOL, ELIM, ALIM)
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | cbinu.f | 1 SUBROUTINE CBINU(Z, FNU, KODE, N, CY, NZ, RL, FNUL, TOL, ELIM, argument 11 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL local 56 IF (DFNU.GT.FNUL) GO TO 110 57 IF (AZ.GT.FNUL) GO TO 110 90 NUI = INT(FNUL-DFNU) + 1 92 CALL CBUNI(Z, FNU, KODE, NN, CY, NW, NUI, NLAST, FNUL, TOL, ELIM,
|
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 11 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, XZABS local 58 IF (DFNU.GT.FNUL) GO TO 110 59 IF (AZ.GT.FNUL) GO TO 110 95 NUI = INT(SNGL(FNUL-DFNU)) + 1 97 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
H A D | cbuni.f | 1 SUBROUTINE CBUNI(Z, FNU, KODE, N, Y, NZ, NUI, NLAST, FNUL, TOL, argument 15 REAL ALIM, AX, AY, DFNU, ELIM, FNU, FNUI, FNUL, GNU, TOL, XX, YY, local 35 CALL CUNI1(Z, GNU, KODE, 2, CY, NW, NLAST, FNUL, TOL, ELIM, ALIM) 43 CALL CUNI2(Z, GNU, KODE, 2, CY, NW, NLAST, FNUL, TOL, ELIM, ALIM) 142 CALL CUNI1(Z, FNU, KODE, N, Y, NW, NLAST, FNUL, TOL, ELIM, ALIM) 150 CALL CUNI2(Z, FNU, KODE, N, Y, NW, NLAST, FNUL, TOL, ELIM, ALIM)
|
H A D | zbuni.f | 2 * FNUL, TOL, ELIM, ALIM) argument 16 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, local 35 CALL ZUNI1(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 44 CALL ZUNI2(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 156 CALL ZUNI1(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL, 165 CALL ZUNI2(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL,
|
/dports/math/slatec/src/ |
H A D | cbinu.f | 2 SUBROUTINE CBINU (Z, FNU, KODE, N, CY, NZ, RL, FNUL, TOL, ELIM, argument 21 REAL ALIM, AZ, DFNU, ELIM, FNU, FNUL, RL, TOL 66 IF (DFNU.GT.FNUL) GO TO 110 67 IF (AZ.GT.FNUL) GO TO 110 100 NUI = FNUL-DFNU + 1 102 CALL CBUNI(Z, FNU, KODE, NN, CY, NW, NUI, NLAST, FNUL, TOL, ELIM,
|
H A D | zbinu.f | 2 SUBROUTINE ZBINU (ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 21 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, ZABS 69 IF (DFNU.GT.FNUL) GO TO 110 70 IF (AZ.GT.FNUL) GO TO 110 106 NUI = FNUL-DFNU + 1 108 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
H A D | cbuni.f | 2 SUBROUTINE CBUNI (Z, FNU, KODE, N, Y, NZ, NUI, NLAST, FNUL, TOL, argument 25 REAL ALIM, AX, AY, DFNU, ELIM, FNU, FNUI, FNUL, GNU, TOL, XX, YY, 46 CALL CUNI1(Z, GNU, KODE, 2, CY, NW, NLAST, FNUL, TOL, ELIM, ALIM) 54 CALL CUNI2(Z, GNU, KODE, 2, CY, NW, NLAST, FNUL, TOL, ELIM, ALIM) 153 CALL CUNI1(Z, FNU, KODE, N, Y, NW, NLAST, FNUL, TOL, ELIM, ALIM) 161 CALL CUNI2(Z, FNU, KODE, N, Y, NW, NLAST, FNUL, TOL, ELIM, ALIM)
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 11 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, AZABS local 58 IF (DFNU.GT.FNUL) GO TO 110 59 IF (AZ.GT.FNUL) GO TO 110 95 NUI = INT(SNGL(FNUL-DFNU)) + 1 97 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
H A D | zbuni.f | 2 * FNUL, TOL, ELIM, ALIM) argument 16 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, local 35 CALL ZUNI1(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 44 CALL ZUNI2(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 156 CALL ZUNI1(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL, 165 CALL ZUNI2(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL,
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 11 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, ZABS 58 IF (DFNU.GT.FNUL) GO TO 110 59 IF (AZ.GT.FNUL) GO TO 110 95 NUI = INT(SNGL(FNUL-DFNU)) + 1 97 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
H A D | zbuni.f | 2 * FNUL, TOL, ELIM, ALIM) 16 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, 35 CALL ZUNI1(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 44 CALL ZUNI2(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 156 CALL ZUNI1(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL, 165 CALL ZUNI2(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL,
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zbinu.f | 2 SUBROUTINE ZBINU (ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 21 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, ZABS local 69 IF (DFNU.GT.FNUL) GO TO 110 70 IF (AZ.GT.FNUL) GO TO 110 106 NUI = FNUL-DFNU + 1 108 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
H A D | zbuni.f | 3 + FNUL, TOL, ELIM, ALIM) argument 26 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, local 47 CALL ZUNI1(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 56 CALL ZUNI2(ZR, ZI, GNU, KODE, 2, CYR, CYI, NW, NLAST, FNUL, TOL, 168 CALL ZUNI1(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL, 177 CALL ZUNI2(ZR, ZI, FNU, KODE, N, YR, YI, NW, NLAST, FNUL, TOL,
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zbinu.f | 2 SUBROUTINE ZBINU (ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 21 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, ZABS local 69 IF (DFNU.GT.FNUL) GO TO 110 70 IF (AZ.GT.FNUL) GO TO 110 106 NUI = FNUL-DFNU + 1 108 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbinu.f | 1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument 11 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, ZABS 58 IF (DFNU.GT.FNUL) GO TO 110 59 IF (AZ.GT.FNUL) GO TO 110 95 NUI = INT(SNGL(FNUL-DFNU)) + 1 97 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
|
/dports/math/slatec/ |
H A D | cqcbj.f | 88 * ERTOL, FILM, FNU, FNUL, GNU, HPI, PI, R, RL, RM, R1M4, R1M5, 124 FNUL = 10.0E0 + 6.0E0*(DIG-3.0E0) 132 R2 = MIN(RM,FNUL) 137 WRITE (LUN,99997) TOL, ELIM, ALIM, RL, FNUL, DIG 174 XNU(4) = 0.5E0*FNUL 175 XNU(5) = FNUL + 1.1E0 198 XNU(5) = 0.5E0*FNUL 199 XNU(6) = FNUL + 1.1E0
|
H A D | cqcbk.f | 81 * ERTOL, FFNU, FILM, FNU, FNUL, HPI, PI, R, RL, RM, R1M4, R1M5, 117 FNUL = 10.0E0 + 6.0E0*(DIG-3.0E0) 125 R2 = MIN(RM,FNUL) 130 WRITE (LUN,99997) TOL, ELIM, ALIM, RL, FNUL, DIG 167 XNU(4) = 0.5E0*FNUL 168 XNU(5) = FNUL + 1.1E0 191 XNU(5) = 0.5E0*FNUL 192 XNU(6) = FNUL + 1.1E0
|
H A D | zqcbh.f | 83 * AZ, CT, DIG, ELIM, EPS, ER, ERTOL, FILM, FNU, FNUL, FPI, HPI, 119 FNUL = 10.0D0 + 6.0D0*(DIG-3.0D0) 127 R2 = MIN(FNUL,RM) 132 WRITE (LUN,99997) TOL, ELIM, ALIM, RL, FNUL, DIG 172 XNU(4) = 0.5D0*FNUL 173 XNU(5) = FNUL + 1.1D0 196 XNU(5) = 0.5D0*FNUL 197 XNU(6) = FNUL + 1.1D0
|
H A D | cqcbh.f | 81 * ELIM, EPS, ER, ERTOL, FILM, FNU, FNUL, FPI, HPI, PI, R, RFPI, 117 FNUL = 10.0E0 + 6.0E0*(DIG-3.0E0) 125 R2 = MIN(FNUL,RM) 130 WRITE (LUN,99997) TOL, ELIM, ALIM, RL, FNUL, DIG 169 XNU(4) = 0.5E0*FNUL 170 XNU(5) = FNUL + 1.1E0 193 XNU(5) = 0.5E0*FNUL 194 XNU(6) = FNUL + 1.1E0
|
H A D | cqcby.f | 86 * ER, ERTOL, FFNU, FILM, FNU, FNUL, HPI, PI, R, RHPI, RL, RM, 125 FNUL = 10.0E0 + 6.0E0*(DIG-3.0E0) 133 R2 = MIN(RM,FNUL) 138 WRITE (LUN,99997) TOL, ELIM, ALIM, RL, FNUL, DIG 177 XNU(4) = 0.5E0*FNUL 178 XNU(5) = FNUL + 1.2E0 201 XNU(5) = 0.5E0*FNUL 202 XNU(6) = FNUL + 1.2E0
|
H A D | zqcbj.f | 91 * DIG, ELIM, EPS, ER, ERTOL, FILM, FNU, FNUL, GNU, HPI, PI, R, 127 FNUL = 10.0D0 + 6.0D0*(DIG-3.0D0) 135 R2 = MIN(RM,FNUL) 140 WRITE (LUN,99997) TOL, ELIM, ALIM, RL, FNUL, DIG 178 XNU(4) = 0.5D0*FNUL 179 XNU(5) = FNUL + 1.1D0 202 XNU(5) = 0.5D0*FNUL 203 XNU(6) = FNUL + 1.1D0
|
H A D | zqcbk.f | 84 * ELIM, EPS, ER, ERTOL, FFNU, FILM, FNU, FNUL, HPI, PI, R, RL, 120 FNUL = 10.0D0 + 6.0D0*(DIG-3.0D0) 128 R2 = MIN(RM,FNUL) 133 WRITE (LUN,99997) TOL, ELIM, ALIM, RL, FNUL, DIG 171 XNU(4) = 0.5D0*FNUL 172 XNU(5) = FNUL + 1.1D0 195 XNU(5) = 0.5D0*FNUL 196 XNU(6) = FNUL + 1.1D0
|