/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | cbbcsd.c | 591 b12d[imax] = sin(theta[imax]); in cbbcsd_() 592 b22d[imax] = cos(theta[imax]); in cbbcsd_() 1002 x1 = sin(theta[imax - 1]) * b11e[imax - 1] + cos(theta[imax - 1]) * b21e[imax - 1]; in cbbcsd_() 1003 y1 = sin(theta[imax - 1]) * b12d[imax - 1] + cos(theta[imax - 1]) * b22d[imax - 1]; in cbbcsd_() 1045 temp = rwork[iv2tcs + imax - 2] * b12e[imax - 1] + rwork[iv2tsn + imax - 2] * b12d[imax]; in cbbcsd_() 1046 … b12d[imax] = rwork[iv2tcs + imax - 2] * b12d[imax] - rwork[iv2tsn + imax - 2] * b12e[imax - 1]; in cbbcsd_() 1048 temp = rwork[iv2tcs + imax - 2] * b22e[imax - 1] + rwork[iv2tsn + imax - 2] * b22d[imax]; in cbbcsd_() 1049 … b22d[imax] = rwork[iv2tcs + imax - 2] * b22d[imax] - rwork[iv2tsn + imax - 2] * b22e[imax - 1]; in cbbcsd_() 1111 b11d[imax] = -b11d[imax]; in cbbcsd_() 1126 x1 = cos(phi[imax - 1]) * b11d[imax] + sin(phi[imax - 1]) * b12e[imax - 1]; in cbbcsd_() [all …]
|
H A D | dbbcsd.c | 582 b12d[imax] = sin(theta[imax]); in dbbcsd_() 583 b22d[imax] = cos(theta[imax]); in dbbcsd_() 993 x1 = sin(theta[imax - 1]) * b11e[imax - 1] + cos(theta[imax - 1]) * b21e[imax - 1]; in dbbcsd_() 994 y1 = sin(theta[imax - 1]) * b12d[imax - 1] + cos(theta[imax - 1]) * b22d[imax - 1]; in dbbcsd_() 1036 temp = work[iv2tcs + imax - 2] * b12e[imax - 1] + work[iv2tsn + imax - 2] * b12d[imax]; in dbbcsd_() 1037 … b12d[imax] = work[iv2tcs + imax - 2] * b12d[imax] - work[iv2tsn + imax - 2] * b12e[imax - 1]; in dbbcsd_() 1039 temp = work[iv2tcs + imax - 2] * b22e[imax - 1] + work[iv2tsn + imax - 2] * b22d[imax]; in dbbcsd_() 1040 … b22d[imax] = work[iv2tcs + imax - 2] * b22d[imax] - work[iv2tsn + imax - 2] * b22e[imax - 1]; in dbbcsd_() 1102 b11d[imax] = -b11d[imax]; in dbbcsd_() 1117 x1 = cos(phi[imax - 1]) * b11d[imax] + sin(phi[imax - 1]) * b12e[imax - 1]; in dbbcsd_() [all …]
|
/dports/math/linpack/linpack-1.0_14/ |
H A D | csifa.f | 100 colmax = cabs1(a(imax,k)) 111 imaxp1 = imax + 1 116 jmax = icamax(imax-1,a(1,imax),1) 119 if (cabs1(a(imax,imax)) .lt. alpha*rowmax) go to 60 130 swap = imax .ne. km1 149 call cswap(imax,a(1,imax),1,a(1,k),1) 150 do 110 jj = imax, k 154 a(imax,j) = t 181 call cswap(imax,a(1,imax),1,a(1,k-1),1) 186 a(imax,j) = t [all …]
|
H A D | zsifa.f | 104 colmax = cabs1(a(imax,k)) 115 imaxp1 = imax + 1 120 jmax = izamax(imax-1,a(1,imax),1) 123 if (cabs1(a(imax,imax)) .lt. alpha*rowmax) go to 60 134 swap = imax .ne. km1 153 call zswap(imax,a(1,imax),1,a(1,k),1) 154 do 110 jj = imax, k 158 a(imax,j) = t 185 call zswap(imax,a(1,imax),1,a(1,k-1),1) 190 a(imax,j) = t [all …]
|
H A D | dsifa.f | 98 colmax = dabs(a(imax,k)) 109 imaxp1 = imax + 1 114 jmax = idamax(imax-1,a(1,imax),1) 117 if (dabs(a(imax,imax)) .lt. alpha*rowmax) go to 60 128 swap = imax .ne. km1 147 call dswap(imax,a(1,imax),1,a(1,k),1) 148 do 110 jj = imax, k 152 a(imax,j) = t 179 call dswap(imax,a(1,imax),1,a(1,k-1),1) 184 a(imax,j) = t [all …]
|
H A D | chifa.f | 101 colmax = cabs1(a(imax,k)) 112 imaxp1 = imax + 1 117 jmax = icamax(imax-1,a(1,imax),1) 120 if (cabs1(a(imax,imax)) .lt. alpha*rowmax) go to 60 131 swap = imax .ne. km1 150 call cswap(imax,a(1,imax),1,a(1,k),1) 151 do 110 jj = imax, k 155 a(imax,j) = t 183 call cswap(imax,a(1,imax),1,a(1,k-1),1) 188 a(imax,j) = t [all …]
|
H A D | ssifa.f | 98 colmax = abs(a(imax,k)) 109 imaxp1 = imax + 1 114 jmax = isamax(imax-1,a(1,imax),1) 117 if (abs(a(imax,imax)) .lt. alpha*rowmax) go to 60 128 swap = imax .ne. km1 147 call sswap(imax,a(1,imax),1,a(1,k),1) 148 do 110 jj = imax, k 152 a(imax,j) = t 179 call sswap(imax,a(1,imax),1,a(1,k-1),1) 184 a(imax,j) = t [all …]
|
H A D | zhifa.f | 105 colmax = cabs1(a(imax,k)) 116 imaxp1 = imax + 1 121 jmax = izamax(imax-1,a(1,imax),1) 124 if (cabs1(a(imax,imax)) .lt. alpha*rowmax) go to 60 135 swap = imax .ne. km1 154 call zswap(imax,a(1,imax),1,a(1,k),1) 155 do 110 jj = imax, k 159 a(imax,j) = t 187 call zswap(imax,a(1,imax),1,a(1,k-1),1) 192 a(imax,j) = t [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
H A D | roots2.f | 98 imax = 0 114 imax = i 117 imax=istuck 119 imax=iunstuck 140 180 if((abs(g0(imax)).eq.zero).or.(abs(g1(imax)).eq.zero)) then 143 x2 = x1 - (x1-x0)*g1(imax)/(g1(imax) - alpha*g0(imax)) 171 200 imxold = imax 172 imax = 0 191 imax=istuck 193 imax=iunstuck [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/c-interop/ |
H A D | cf-out-descriptor-4.f90 | 40 do i = 1, imax 49 do i = 1, imax 57 do i = 1, imax 85 do i = 1, imax 98 do i = 1, imax 110 do i = 1, imax 122 do i = 1, imax 161 do i = 1, imax 174 do i = 1, imax 186 do i = 1, imax [all …]
|
/dports/cad/calculix/CalculiX/cgx_2.18/src/ |
H A D | intpol2.c | 31 imax=n-1; in intpol2() 32 xsort[0]=x[isort[imax]]; in intpol2() 33 ysort[0]=y[isort[imax]]; in intpol2() 39 xsort[i]=x[isort[imax-j]]; in intpol2() 40 ysort[i]=y[isort[imax-j]]; in intpol2() 45 imax=n-1; in intpol2() 54 imax = 1; in intpol2() 60 imax = n; in intpol2() 65 imax=0; in intpol2() 66 while (xsort[imax]<x0) imax++; in intpol2() [all …]
|
/dports/math/suitesparse-config/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-klu/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-amd/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-rbio/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-ldl/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-mongoose/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-colamd/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-spqr/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-slip_lu/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-camd/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-ccolamd/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-btf/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-cholmod/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|
/dports/math/suitesparse-umfpack/SuiteSparse-5.10.1/GraphBLAS/Source/ |
H A D | GB_ijproperties.c | 69 int64_t imin, imax ; in GB_ijproperties() local 89 imax = limit-1 ; in GB_ijproperties() 105 imax = Icolon [GxB_END ] ; in GB_ijproperties() 107 if (imin > imax) in GB_ijproperties() 111 imax = -1 ; in GB_ijproperties() 139 imax = -1 ; in GB_ijproperties() 154 if (imin > imax) in GB_ijproperties() 158 imax = -1 ; in GB_ijproperties() 199 imax = -1 ; in GB_ijproperties() 264 imax = GB_IMAX (imax, Work_imax [tid]) ; in GB_ijproperties() [all …]
|