/dports/comms/wsjtz/wsjtx/lib/ |
H A D | peakdt9.f90 | 3 parameter (NZ2=1512,NZ3=1360) 4 complex c2(0:NZ2-1) 12 do i=0,NZ2-1 46 if(j.ge.0 .and. j.lt.NZ2) then
|
H A D | filbig.f90 | 12 parameter (NZ2=1000) 17 real*4 s(NZ2) 116 do j=1,NZ2 123 call pctile(s,NZ2,30,sq0)
|
H A D | pfx.f90 | 2 parameter (NZ2=12) !Total number of suffixes 3 character*1 sfx(NZ2)
|
H A D | afc9.f90 | 3 parameter (NZ2=1512) 4 complex c3a(0:NZ2-1) 5 complex c3(0:NZ2-1)
|
H A D | softsym.f90 | 8 parameter (NZ2=1512,NZ3=1360) 10 complex c2(0:NZ2-1)
|
/dports/math/slatec/ |
H A D | zqcbh.f | 86 * KODE, K1, K2, LFLG, MFLG, N, NL, NU, NUL, NZ1, NZ2, N1 257 CALL ZUOIK(CVR, CVI, FNU, KODE, 2, N1, WR, WI, NZ2, 260 IF (NZ2.EQ.(-1)) GO TO 120 264 * NZ2, TOL, ELIM, ALIM) 266 IF (NZ2.EQ.(-1)) GO TO 120 273 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N1, WR, WI, NZ2, 276 IF (NZ2.NE.0) GO TO 120 339 KK = MAX(NZ1,NZ2) + 1 342 * NZ2, WR(KK), WI(KK)
|
H A D | cqcbh.f | 84 * KODE, K1, K2, LFLG, MFLG, N, NL, NU, NUL, NZ1, NZ2, N1 252 CALL CUOIK(CV, FNU, KODE, 2, N1, W, NZ2, TOL, 255 IF (NZ2.EQ.(-1)) GO TO 120 257 CALL CUOIK(CV, FNU, KODE, 2, N1, W, NZ2, TOL, 260 IF (NZ2.EQ.(-1)) GO TO 120 266 CALL CBESH(Z, FNU, KODE, 2, N1, W, NZ2, IERR) 268 IF (NZ2.NE.0) GO TO 120 328 KK = MAX(NZ1,NZ2) + 1 330 WRITE (LUN,99988) NZ1, Y(KK), NZ2, W(KK)
|
H A D | cqcbi.f | 85 * KEPS, KK, KODE, K1, K2, LFLG, MFLG, N, NL, NZI, NZK, NZ1, NZ2, 268 CALL CWRSK(ZN, FNU, KODE, N, W, NZ2, CK, TOL, ELIM, 270 IF (NZ2.NE.0) GO TO 180 280 CALL CWRSK(ZN, FNU, KODE, N, W, NZ2, CK, TOL, ELIM, 282 IF (NZ2.NE.0) GO TO 180 351 KK = MAX(NZ1,NZ2) + 1 353 WRITE (LUN,99988) NZ1, Y(KK), NZ2, W(KK)
|
H A D | cqcbk.f | 84 * KK, KODE, K1, K2, LFLG, MFLG, N, NL, NU, NUL, NZ1, NZ2, N1 254 CALL CBESI(Z, FNU, KODE, N1, W, NZ2, IERR) 256 IF (NZ2.NE.0) GO TO 150 338 KK = MAX(NZ1,NZ2) + 1 340 WRITE (LUN,99988) NZ1, Y(KK), NZ2, W(KK)
|
H A D | zqcbi.f | 88 * KEPS, KK, KODE, K1, K2, LFLG, MFLG, N, NL, NZI, NZK, NZ1, NZ2, 273 CALL ZWRSK(ZNR, ZNI, FNU, KODE, N, WR, WI, NZ2, CKR, 275 IF (NZ2.NE.0) GO TO 180 290 CALL ZWRSK(ZNR, ZNI, FNU, KODE, N, WR, WI, NZ2, CKR, 292 IF (NZ2.NE.0) GO TO 180 371 KK = MAX(NZ1,NZ2) + 1 374 * NZ2, WR(KK), WI(KK)
|
H A D | zqcbk.f | 87 * KK, KODE, K1, K2, LFLG, MFLG, N, NL, NU, NUL, NZ1, NZ2, N1 261 CALL ZBESI(ZR, ZI, FNU, KODE, N1, WR, WI, NZ2, IERR) 263 IF (NZ2.NE.0) GO TO 150 358 KK = MAX(NZ1,NZ2) + 1 361 * NZ2, WR(KK), WI(KK)
|
/dports/lang/swi-pl/swipl-8.2.3/src/Tests/xsb/table_tests/ |
H A D | correct.P | 67 sel_edge(V, NZ1, Sel, NZ2) :- 69 sel_edge(U, NZ1, Sel, NZ2), 71 sel_edge(V, NZ1, Sel, NZ2) :- 73 sel_edge(U, NZ1, Sel, NZ2), 80 sel_edge(V, NZ2, _, NZ), 81 inter(NZ1, NZ2, []). 116 sel_edge(U, NZ1, Sel, NZ2), 141 sel_edge(V, NZ1, Sel, NZ2) :- 143 sel_edge(U, NZ1, Sel, NZ2), 146 sel_edge(V, NZ1, Sel, NZ2) :- [all …]
|
/dports/comms/wsjtz/wsjtx/map65/libm65/ |
H A D | pfx.f90 | 2 parameter (NZ2=12) !Total number of suffixes 3 character*1 sfx(NZ2)
|
/dports/science/silo/silo-4.10.2-bsd/tests/ |
H A D | simple.c | 75 #define NZ2 14 macro 203 length[0] = NZ2; in main() 222 for (k = 0; k < NZ2; k++) { in main() 234 k1 = NX2 * NY2 * NZ2; in main()
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | cbesy.f | 147 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH 162 CALL CBESH(Z, FNU, KODE, 2, N, CWRK, NZ2, IERR) 164 NZ = MIN0(NZ1,NZ2)
|
H A D | zbesy.f | 154 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH 167 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 169 NZ = MIN0(NZ1,NZ2)
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | cbesy.f | 147 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH local 162 CALL CBESH(Z, FNU, KODE, 2, N, CWRK, NZ2, IERR) 164 NZ = MIN0(NZ1,NZ2)
|
H A D | zbesy.f | 154 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH local 167 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 169 NZ = MIN0(NZ1,NZ2)
|
/dports/math/slatec/src/ |
H A D | cbesy.f | 157 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH 172 CALL CBESH(Z, FNU, KODE, 2, N, CWRK, NZ2, IERR) 174 NZ = MIN(NZ1,NZ2)
|
H A D | zbesy.f | 164 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH 177 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 179 NZ = MIN(NZ1,NZ2)
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zbesy.f | 164 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH local 177 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 179 NZ = MIN(NZ1,NZ2)
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zbesy.f | 164 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH local 177 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 179 NZ = MIN(NZ1,NZ2)
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zbesy.f | 154 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH local 167 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 169 NZ = MIN0(NZ1,NZ2)
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbesy.f | 154 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH 167 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 169 NZ = MIN0(NZ1,NZ2)
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbesy.f | 154 INTEGER I, IERR, K, KODE, K1, K2, N, NZ, NZ1, NZ2, I1MACH 167 CALL ZBESH(ZR, ZI, FNU, KODE, 2, N, CWRKR, CWRKI, NZ2, IERR) 169 NZ = MIN0(NZ1,NZ2)
|