Home
last modified time | relevance | path

Searched refs:izero (Results 1 – 25 of 139) sorted by relevance

123456

/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/trilinos/packages/teuchos/numerics/src/
H A DTeuchos_BLAS.hpp576 OrdinalType i, ix = izero, iy = izero; in COPY()
597 OrdinalType i, ix = izero, iy = izero; in AXPY()
643 OrdinalType i, ix = izero, iy = izero; in DOT()
644 if( n > izero ) in DOT()
686 OrdinalType result = izero, ix = izero, i;
757 OrdinalType kx = izero, ky = izero; in GEMV()
1075 if( m == izero || n == izero || alpha == alpha_zero ){ return; } in GER()
1100 OrdinalType i, j, ix, jy = izero, kx = izero; in GER()
1165 …if( (m==izero) || (n==izero) || (((alpha==alpha_zero)||(k==izero)) && (beta==beta_one)) ){ return;… in GEMM()
1748 if (n==izero || m==izero) { return; } in TRMM()
[all …]
/dports/biology/molden/molden5.8/
H A Dreada.f7 izero = ichar('0')
23 if((n.le.nine.and.n.ge.izero).or. n.eq.minus.or.n.eq.idot)
33 if (n.le.nine.and.n.ge.izero) then
39 k1 = k1*10 + n - izero
54 if (n.le.nine.and.n.ge.izero) then
57 k2 = k2*10 + n - izero
82 if (n.le.nine.and.n.ge.izero) then
85 k3 = k3*10 + n - izero
/dports/science/xtb/xtb-6.4.1/src/
H A Dreadl.f9062 if(n.le.nine.and.n.ge.izero .or.n.eq.idot)goto 20
63 if(n.eq.minus.and.(m.le.nine.and.m.ge.izero &
72 if(n.le.nine.and.n.ge.izero) then
75 c1=c1*10+n-izero
88 if(n.le.nine.and.n.ge.izero) then
91 c2=c2*10+n-izero
118 if(n.le.nine.and.n.ge.izero) c1=c1*10.0d0+n-izero
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/
H A DPB_Cplapad.c184 Anb, Anq, Anq0, Arow, ctxt, izero=0, k, kb, ktmp, mn, mycol, local
230 pad( C2F_CHAR( UPLO ), C2F_CHAR( CONJUG ), &Amp, &Anq, &izero, ALPHA,
243 pad( C2F_CHAR( UPLO ), C2F_CHAR( CONJUG ), &Amp, &Anq, &izero, ALPHA,
258 pad( C2F_CHAR( UPLO ), C2F_CHAR( CONJUG ), &Amp, &Anq, &izero, ALPHA,
273 pad( C2F_CHAR( UPLO ), C2F_CHAR( CONJUG ), &Amp, &Anq, &izero, ALPHA,
303 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &Amp0, &Anq0, &izero,
322 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &Akp, &Anq0, &izero,
327 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &Amp, &Anq, &izero, ALPHA,
345 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &Akp, &Anq0, &izero,
351 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &Amp0, &Anq0, &izero,
[all …]
H A DPB_CInOutV.c416 &K, &Ynq, &izero, *TBETA, *TBETA,
458 &izero, *TBETA, *TBETA, *YAPTR,
499 &izero, *TBETA, *TBETA, *YAPTR, &Yld );
533 &izero, *TBETA, *TBETA, *YAPTR, &Yld );
550 &izero, *TBETA, *TBETA, *YAPTR, &K );
565 &izero, *TBETA, *TBETA, *YAPTR, &K );
706 &Ymp, &K, &izero, *TBETA, *TBETA,
789 &izero, *TBETA, *TBETA, *YAPTR, &Yld );
823 &izero, *TBETA, *TBETA, *YAPTR, &Yld );
840 &izero, *TBETA, *TBETA, *YAPTR, &Yld );
[all …]
H A DPB_Cplapd2.c46 imbloc, inbloc, ioffd, iupp, izero=0, jjmax, joffd, lcmt, local
125 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &imbloc, &tmp1, &izero,
141 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &tmp1, &inbloc, &izero,
168 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &tmp1, &n1, &izero, ALPHA,
206 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &tmp1, &inbloc, &izero, ALPHA,
220 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &tmp1, &n1, &izero, ALPHA,
244 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &m1, &tmp1, &izero, ALPHA,
296 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &m1, &tmp1, &izero, ALPHA,
320 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &tmp1, &n1, &izero, ALPHA,
358 pad( C2F_CHAR( ALL ), C2F_CHAR( &herm ), &tmp1, &nbloc, &izero, ALPHA,
[all …]
H A DPB_Cplasca2.c125 scal( C2F_CHAR( ALL ), &imbloc, &tmp1, &izero, ALPHA,
141 scal( C2F_CHAR( ALL ), &tmp1, &inbloc, &izero, ALPHA,
168 scal( C2F_CHAR( ALL ), &tmp1, &n1, &izero, ALPHA,
206 scal( C2F_CHAR( ALL ), &tmp1, &inbloc, &izero, ALPHA,
220 scal( C2F_CHAR( ALL ), &tmp1, &n1, &izero, ALPHA,
244 scal( C2F_CHAR( ALL ), &m1, &tmp1, &izero, ALPHA,
282 scal( C2F_CHAR( ALL ), &imbloc, &tmp1, &izero, ALPHA,
296 scal( C2F_CHAR( ALL ), &m1, &tmp1, &izero, ALPHA,
320 scal( C2F_CHAR( ALL ), &tmp1, &n1, &izero, ALPHA,
358 scal( C2F_CHAR( ALL ), &tmp1, &nbloc, &izero, ALPHA,
[all …]
H A DPB_CpaxpbyDN.c222 BnprocsD, BprocR, Broc, Brow, RRorCC, ctxt, izero=0, k, kbb, local
346 &izero, zero, zero, Mptr( B, Bii, Bjj, Bld, size ),
375 &izero, zero, zero, Mptr( B, Bii, k, Bld,
379 &izero, zero, zero, Mptr( B, k, Bjj, Bld,
391 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &M, &N, &izero,
465 &Ainb1D, &izero, zero, zero, Mptr( B, Bii, Bjj,
469 &N, &izero, zero, zero, Mptr( B, Bii, Bjj, Bld,
494 &kbb, &izero, zero, zero, Mptr( B, Bii, k,
511 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &M, &N, &izero,
826 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &Bm, &Bn, &izero,
[all …]
H A DPB_Cplascal.c175 Amp0, Anb, Anq, Anq0, ctxt, izero=0, k, kb, ktmp, mn, mycol, local
295 scal( C2F_CHAR( UPLO ), &Amp, &Anq, &izero, ALPHA, Aptr, &Ald );
323 scal( C2F_CHAR( ALL ), &Amp0, &Anq0, &izero, ALPHA, Mptr( Aptr,
342 scal( C2F_CHAR( ALL ), &Akp, &Anq0, &izero, ALPHA, Mptr( Aptr,
347 scal( C2F_CHAR( ALL ), &Amp, &Anq, &izero, ALPHA, Mptr( Aptr, 0,
365 scal( C2F_CHAR( ALL ), &Akp, &Anq0, &izero, ALPHA, Mptr( Aptr,
370 scal( C2F_CHAR( ALL ), &Amp0, &Anq0, &izero, ALPHA, Mptr( Aptr,
374 scal( C2F_CHAR( ALL ), &Amp, &Anq, &izero, ALPHA, Mptr( Aptr, 0,
H A DPB_COutV.c179 izero=0, nprow, myrow, npcol, mycol; local
244 &izero, zero, zero, *YAPTR, &Yld );
267 &izero, zero, zero, *YAPTR, &Yld );
305 &izero, zero, zero, *YAPTR, &Yld );
328 &izero, zero, zero, *YAPTR, &Yld );
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/TESTING/
H A Dcdrive.c71 int zerot, izero, ioff; in main() local
214 if ( imat == 5 ) izero = 1; in main()
215 else if ( imat == 6 ) izero = n; in main()
216 else izero = n / 2 + 1; in main()
217 ioff = (izero - 1) * lda; in main()
221 for (j = 0; j < n - izero + 1; ++j) in main()
226 izero = 0; in main()
233 izero = 0; in main()
346 if ( info && info != izero ) { in main()
355 if ( izero == 0 ) { in main()
[all …]
H A Dddrive.c71 int zerot, izero, ioff; in main() local
214 if ( imat == 5 ) izero = 1; in main()
215 else if ( imat == 6 ) izero = n; in main()
216 else izero = n / 2 + 1; in main()
217 ioff = (izero - 1) * lda; in main()
221 for (j = 0; j < n - izero + 1; ++j) in main()
226 izero = 0; in main()
233 izero = 0; in main()
346 if ( info && info != izero ) { in main()
355 if ( izero == 0 ) { in main()
[all …]
H A Dsdrive.c71 int zerot, izero, ioff; in main() local
214 if ( imat == 5 ) izero = 1; in main()
215 else if ( imat == 6 ) izero = n; in main()
216 else izero = n / 2 + 1; in main()
217 ioff = (izero - 1) * lda; in main()
221 for (j = 0; j < n - izero + 1; ++j) in main()
226 izero = 0; in main()
233 izero = 0; in main()
346 if ( info && info != izero ) { in main()
355 if ( izero == 0 ) { in main()
[all …]
H A Dzdrive.c71 int zerot, izero, ioff; in main() local
214 if ( imat == 5 ) izero = 1; in main()
215 else if ( imat == 6 ) izero = n; in main()
216 else izero = n / 2 + 1; in main()
217 ioff = (izero - 1) * lda; in main()
221 for (j = 0; j < n - izero + 1; ++j) in main()
226 izero = 0; in main()
233 izero = 0; in main()
346 if ( info && info != izero ) { in main()
355 if ( izero == 0 ) { in main()
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/pw/
H A Dps_wavelet_kernel.F595 izero = 0
598 izero = izero + 1
602 ivalue = izero
634 ivalue = izero
650 izero = izero + 1
653 izero = izero - 1
710 izero = 0
713 izero = izero + 1
718 ivalue = izero
764 izero = izero + 1
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/pw/
H A Dps_wavelet_kernel.F595 izero = 0
598 izero = izero + 1
602 ivalue = izero
634 ivalue = izero
650 izero = izero + 1
653 izero = izero - 1
710 izero = 0
713 izero = izero + 1
718 ivalue = izero
764 izero = izero + 1
[all …]
/dports/math/superlu/superlu-5.2.2/TESTING/
H A Dddrive.c83 int zerot, izero, ioff; in main() local
227 if ( imat == 5 ) izero = 1; in main()
228 else if ( imat == 6 ) izero = n; in main()
229 else izero = n / 2 + 1; in main()
230 ioff = (izero - 1) * lda; in main()
234 for (j = 0; j < n - izero + 1; ++j) in main()
239 izero = 0; in main()
246 izero = 0; in main()
359 if ( info && info != izero ) { in main()
368 if ( izero == 0 ) { in main()
[all …]
H A Dzdrive.c83 int zerot, izero, ioff; in main() local
227 if ( imat == 5 ) izero = 1; in main()
228 else if ( imat == 6 ) izero = n; in main()
229 else izero = n / 2 + 1; in main()
230 ioff = (izero - 1) * lda; in main()
234 for (j = 0; j < n - izero + 1; ++j) in main()
239 izero = 0; in main()
246 izero = 0; in main()
359 if ( info && info != izero ) { in main()
368 if ( izero == 0 ) { in main()
[all …]
H A Dcdrive.c83 int zerot, izero, ioff; in main() local
227 if ( imat == 5 ) izero = 1; in main()
228 else if ( imat == 6 ) izero = n; in main()
229 else izero = n / 2 + 1; in main()
230 ioff = (izero - 1) * lda; in main()
234 for (j = 0; j < n - izero + 1; ++j) in main()
239 izero = 0; in main()
246 izero = 0; in main()
359 if ( info && info != izero ) { in main()
368 if ( izero == 0 ) { in main()
[all …]
H A Dsdrive.c83 int zerot, izero, ioff; in main() local
227 if ( imat == 5 ) izero = 1; in main()
228 else if ( imat == 6 ) izero = n; in main()
229 else izero = n / 2 + 1; in main()
230 ioff = (izero - 1) * lda; in main()
234 for (j = 0; j < n - izero + 1; ++j) in main()
239 izero = 0; in main()
246 izero = 0; in main()
359 if ( info && info != izero ) { in main()
368 if ( izero == 0 ) { in main()
[all …]
/dports/biology/molden/molden5.8/ambfor/
H A Dgetinp.f357 izero = ichar('0')
370 n = izero
415 izero = ichar('0')
431 if((n.le.nine.and.n.ge.izero).or. n.eq.minus.or.n.eq.idot)
441 if (n.le.nine.and.n.ge.izero) then
447 k1 = k1*10 + n - izero
462 if (n.le.nine.and.n.ge.izero) then
465 k2 = k2*10 + n - izero
490 if (n.le.nine.and.n.ge.izero) then
493 k3 = k3*10 + n - izero
/dports/print/ghostscript7-base/ghostscript-7.07/src/
H A Dgdevpe.c234 #define izero (int)zero in pe_copy_mono() macro
237 if ( ione == izero ) /* vacuous case */ in pe_copy_mono()
270 invert = (izero == 1 || ione == 0 ? -1 : 0); in pe_copy_mono()
271 zmask = (izero == 0 || ione == 0 ? 0 : -1); in pe_copy_mono()
272 omask = (izero == 1 || ione == 1 ? -1 : 0); in pe_copy_mono()
274 #undef izero in pe_copy_mono()
/dports/print/ghostscript8-x11/ghostscript-8.71/base/
H A Dgdevpe.c229 #define izero (int)zero in pe_copy_mono() macro
232 if ( ione == izero ) /* vacuous case */ in pe_copy_mono()
265 invert = (izero == 1 || ione == 0 ? -1 : 0); in pe_copy_mono()
266 zmask = (izero == 0 || ione == 0 ? 0 : -1); in pe_copy_mono()
267 omask = (izero == 1 || ione == 1 ? -1 : 0); in pe_copy_mono()
269 #undef izero in pe_copy_mono()
/dports/print/ghostscript9-agpl-base/ghostscript-9.52/devices/
H A Dgdevpe.c233 #define izero (int)zero in pe_copy_mono() macro
236 if ( ione == izero ) /* vacuous case */ in pe_copy_mono()
269 invert = (izero == 1 || ione == 0 ? -1 : 0); in pe_copy_mono()
270 zmask = (izero == 0 || ione == 0 ? 0 : -1); in pe_copy_mono()
271 omask = (izero == 1 || ione == 1 ? -1 : 0); in pe_copy_mono()
273 #undef izero in pe_copy_mono()
/dports/print/ghostscript9-agpl-x11/ghostscript-9.52/devices/
H A Dgdevpe.c233 #define izero (int)zero in pe_copy_mono() macro
236 if ( ione == izero ) /* vacuous case */ in pe_copy_mono()
269 invert = (izero == 1 || ione == 0 ? -1 : 0); in pe_copy_mono()
270 zmask = (izero == 0 || ione == 0 ? 0 : -1); in pe_copy_mono()
271 omask = (izero == 1 || ione == 1 ? -1 : 0); in pe_copy_mono()
273 #undef izero in pe_copy_mono()

123456