Home
last modified time | relevance | path

Searched refs:FNUL (Results 1 – 25 of 122) sorted by relevance

12345

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dcbinu.f1 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 Dzbinu.f1 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 Dcbuni.f1 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 Dcbinu.f1 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 Dzbinu.f1 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 Dcbuni.f1 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 Dzbuni.f2 * 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 Dcbinu.f2 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 Dzbinu.f2 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 Dcbuni.f2 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 Dzbinu.f1 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 Dzbuni.f2 * 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 Dzbinu.f1 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 Dzbuni.f2 * 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 Dzbinu.f2 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 Dzbuni.f3 + 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 Dzbinu.f2 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 Dzbinu.f1 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 Dcqcbj.f88 * 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 Dcqcbk.f81 * 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 Dzqcbh.f83 * 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 Dcqcbh.f81 * 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 Dcqcby.f86 * 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 Dzqcbj.f91 * 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 Dzqcbk.f84 * 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

12345