Home
last modified time | relevance | path

Searched refs:imax (Results 76 – 100 of 4686) sorted by relevance

12345678910>>...188

/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Dcbbcsd.c591 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 Ddbbcsd.c582 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 Dcsifa.f100 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 Dzsifa.f104 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 Ddsifa.f98 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 Dchifa.f101 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 Dssifa.f98 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 Dzhifa.f105 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 Droots2.f98 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 Dcf-out-descriptor-4.f9040 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 Dintpol2.c31 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 DGB_ijproperties.c69 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 …]

12345678910>>...188