Home
last modified time | relevance | path

Searched refs:imax (Results 126 – 150 of 5198) sorted by relevance

12345678910>>...208

/dports/benchmarks/hpl/hpl-2.3/src/blas/
H A DHPL_idamax.c100 register int imax = 0, i = 0, j; local
118 absxi = Mabs( x0 ); if( absxi > smax ) { imax = i; smax = absxi; }
120 absxi = Mabs( x1 ); if( absxi > smax ) { imax = i; smax = absxi; }
122 absxi = Mabs( x2 ); if( absxi > smax ) { imax = i; smax = absxi; }
124 absxi = Mabs( x3 ); if( absxi > smax ) { imax = i; smax = absxi; }
126 absxi = Mabs( x4 ); if( absxi > smax ) { imax = i; smax = absxi; }
143 absxi = Mabs( x0 ); if( absxi > smax ) { imax = i; smax = absxi; }
148 return( imax );
157 int imax = 0; local
159 if( N > 0 ) imax = F77idamax( &F77N, X, &F77incx ) - 1;
[all …]
/dports/math/vtk6/VTK-6.2.0/ThirdParty/alglib/alglib/
H A Dapvt.h152 int imax = N/4; in _vdotproduct() local
154 for(i=imax; i!=0; i--) in _vdotproduct()
230 int imax = N/2; in _vmove() local
232 for(i=imax; i!=0; i--) in _vmove()
310 int imax = N/2; in _vmoveneg() local
312 for(i=0; i<imax; i++) in _vmoveneg()
392 int imax = N/4; in _vmove2() local
476 int imax = N/4; in _vadd() local
560 int imax = N/4; in _vadd2() local
644 int imax = N/4; in _vsub() local
[all …]
/dports/math/linpack/linpack-1.0_14/
H A Dzhpfa.f120 imk = ik + imax
132 imaxp1 = imax + 1
133 im = imax*(imax - 1)/2
134 imj = im + 2*imax
144 imim = imax + im
156 swap = imax .ne. km1
176 imj = ik + imax
177 do 110 jj = imax, k
178 j = k + imax - jj
205 if (swap) kpvt(k) = imax
[all …]
/dports/math/singular/Singular-Release-4-2-1/factory/
H A Dfac_iterfor.cc18 imax[from] = max; in fill()
29 imax = new int[N+1]; in IteratedFor()
36 imax = new int[N+1]; in IteratedFor()
39 imax[i] = I.imax[i]; in IteratedFor()
46 delete [] imax; in ~IteratedFor()
56 delete [] imax; in operator =()
58 imax = new int[N+1]; in operator =()
66 imax[i] = I.imax[i]; in operator =()
79 if ( index[N-1] != imax[N-1] ) { in nextiteration()
85 while ( i > 0 && index[i] == imax[i] ) { in nextiteration()
[all …]
/dports/graphics/geos/geos-3.9.1/src/index/strtree/
H A DInterval.cpp33 imax = newMax; in Interval()
39 return (imin + imax) / 2; in getCentre()
45 imax = max(imax, other->imax); in expandToInclude()
53 return !(other->imin > imax || other->imax < imin); in intersects()
59 return imin == other->imin && imax == other->imax; in equals()
/dports/biology/molden/molden5.8/
H A Dprev.f11 imax = 0
13 100 imin = imax + 1
14 imax = imax + max
15 if (imax .gt. m) imax = m
17 write (iun3,8028) (i,i = imin,imax)
20 write (iun3,8048) j,(v(j,i),i = imin,imax)
22 if (imax .lt. m) go to 100
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Ddsytf2_rook.c196 integer imax, jmax; in dsytf2_rook_() local
323 if (imax != k) in dsytf2_rook_()
326 jmax = imax + idamax_(&i__1, &a[imax + (imax + 1) * a_dim1], lda); in dsytf2_rook_()
333 if (imax > 1) in dsytf2_rook_()
346 if (! ((d__1 = a[imax + imax * a_dim1], f2c_abs(d__1)) < alpha * rowmax)) in dsytf2_rook_()
350 kp = imax; in dsytf2_rook_()
359 kp = imax; in dsytf2_rook_()
366 p = imax; in dsytf2_rook_()
587 itemp = imax + idamax_(&i__1, &a[imax + 1 + imax * a_dim1] , &c__1); in dsytf2_rook_()
597 if (! ((d__1 = a[imax + imax * a_dim1], f2c_abs(d__1)) < alpha * rowmax)) in dsytf2_rook_()
[all …]
H A Dssytf2_rook.c196 integer imax, jmax; in ssytf2_rook_() local
323 if (imax != k) in ssytf2_rook_()
326 jmax = imax + isamax_(&i__1, &a[imax + (imax + 1) * a_dim1], lda); in ssytf2_rook_()
333 if (imax > 1) in ssytf2_rook_()
346 if (! ((r__1 = a[imax + imax * a_dim1], f2c_abs(r__1)) < alpha * rowmax)) in ssytf2_rook_()
350 kp = imax; in ssytf2_rook_()
359 kp = imax; in ssytf2_rook_()
366 p = imax; in ssytf2_rook_()
587 itemp = imax + isamax_(&i__1, &a[imax + 1 + imax * a_dim1] , &c__1); in ssytf2_rook_()
597 if (! ((r__1 = a[imax + imax * a_dim1], f2c_abs(r__1)) < alpha * rowmax)) in ssytf2_rook_()
[all …]
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gcc.dg/
H A Dpr101254.c6 foo (long long imin, long long imax) in foo() argument
8 if (imin > imax) in foo()
10 else if (imax - imin < 0 || (imax - imin) + 1 < 0) in foo()
18 long long imax = __LONG_LONG_MAX__; in main() local
19 long long imin = -imax - 1; in main()
22 if (foo (-10, imax)) in main()
24 if (foo (imin, imax)) in main()
/dports/lang/yorick/yorick-y_2_2_04/gist/
H A Dgcntr.c510 long imax= site->imax; in slit_cutter() local
541 p1+= imax; in slit_cutter()
551 p0-= imax; in slit_cutter()
588 p0-= imax; in slit_cutter()
604 long imax= site->imax; in curve_tracer() local
664 left0= imax; in curve_tracer()
667 left0= -imax; in curve_tracer()
749 long imax= site->imax; in data_init() local
786 irem= imax; in data_init()
806 if (region?(reg[ij+imax+1]==region):(reg[ij+imax+1]!=0)) in data_init()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/selci/
H A Dprtri.F15 imax = 0
16 100 imin = imax+1
17 imax = imax+max
18 if (imax .gt. n) imax = n
20 write (iw,8028) (i,i = imin,imax)
23 do 140 i = imin,imax
30 if (imax .lt. n) go to 100
H A Diprtri.F15 imax = 0
16 100 imin = imax+1
17 imax = imax+max
18 if (imax .gt. n) imax = n
20 write (iw,8028) (i,i = imin,imax)
23 do 140 i = imin,imax
30 if (imax .lt. n) go to 100
/dports/science/nwchem-data/nwchem-7.0.2-release/src/selci/
H A Dprtri.F15 imax = 0
16 100 imin = imax+1
17 imax = imax+max
18 if (imax .gt. n) imax = n
20 write (iw,8028) (i,i = imin,imax)
23 do 140 i = imin,imax
30 if (imax .lt. n) go to 100
H A Diprtri.F15 imax = 0
16 100 imin = imax+1
17 imax = imax+max
18 if (imax .gt. n) imax = n
20 write (iw,8028) (i,i = imin,imax)
23 do 140 i = imin,imax
30 if (imax .lt. n) go to 100
/dports/math/scilab/scilab-6.1.1/scilab/modules/m2sci/tests/unit_tests/compat_functions/
H A Dmtlb_int_uint.tst24 imax = imax0{i};
52 assert_checkequal(fm(imax-2), f(imax-2));
53 assert_checkequal(fm(imax-1), f(imax-1));
54 assert_checkequal(fm(imax), f(imax));
57 assert_checkequal(fm(2^63), f(imax));
59 assert_checkequal(fm(2^64), f(imax));
61 assert_checkequal(fm(imax+1), f(imax));
62 assert_checkequal(fm(imax+10), f(imax));
65 assert_checkequal(fm(%inf), f(imax));
/dports/devel/ga/ga-5.8/tcgmsg/examples/
H A Dprtri.f11 imax = 0
12 100 imin = imax+1
13 imax = imax+max
14 if (imax .gt. n) imax = n
16 write (iw,8028) (i,i = imin,imax)
19 do 140 i = imin,imax
26 if (imax .lt. n) go to 100
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/c-interop/
H A Dff-descriptor-2.f9012 integer, parameter :: imax=10, jmax=5 variable
20 type(m) :: aa(imax,jmax)
23 do i = 1, imax
43 if (size (a,1) .ne. imax) stop 103
46 if (size (b,2) .ne. imax) stop 106
58 if (size (a,1) .ne. imax) stop 203
61 if (size (b,2) .ne. imax) stop 206
70 type(m) :: b(jmax, imax)
73 if (size (a,1) .ne. imax) stop 302
86 type(m) :: b(jmax, imax)
[all …]
/dports/math/suitesparse-ldl/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;
/dports/math/suitesparse-config/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;
/dports/math/suitesparse-graphblas/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;
/dports/math/suitesparse-mongoose/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;
/dports/math/suitesparse-klu/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;
/dports/math/suitesparse-colamd/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;
/dports/math/suitesparse-ccolamd/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;
/dports/math/suitesparse-cholmod/SuiteSparse-5.10.1/GraphBLAS/Test/
H A Dirand.m1 function I = irand (imin, imax, m, n)
5 % in the range imin:imax, inclusive
7 % I = irand (imin, imax, m, n)
9 % if imin > imax, the ranges are swapped.
22 if (imin > imax)
24 imin = imax ;
25 imax = t ; variable
28 if (imin == imax)
32 I = uint64 (floor ((imax-imin+1) * x) + imin) ;
36 assert (max (max (I)) <= imax) ;

12345678910>>...208