/dports/benchmarks/hpl/hpl-2.3/src/blas/ |
H A D | HPL_idamax.c | 100 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 D | apvt.h | 152 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 D | zhpfa.f | 120 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 D | fac_iterfor.cc | 18 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 D | Interval.cpp | 33 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 D | prev.f | 11 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 D | dsytf2_rook.c | 196 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 D | ssytf2_rook.c | 196 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 D | pr101254.c | 6 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 D | gcntr.c | 510 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 D | prtri.F | 15 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 D | iprtri.F | 15 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 D | prtri.F | 15 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 D | iprtri.F | 15 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 D | mtlb_int_uint.tst | 24 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 D | prtri.f | 11 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 D | ff-descriptor-2.f90 | 12 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 D | irand.m | 1 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 D | irand.m | 1 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 D | irand.m | 1 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 D | irand.m | 1 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 D | irand.m | 1 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 D | irand.m | 1 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 D | irand.m | 1 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 D | irand.m | 1 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) ;
|