work_dim1 (reference) in projects: dports

Project(s)

Full Search
Definition
Symbol
File Path
History
Type

Searched refs:work_dim1 (Results 1 – 25 of 113) sorted by relevance

12 3 4 5

/dports/science/siconos/siconos-4.4.0/externals/netlib/dctemplates/
H A D	QMR.c	206 work_dim1 = ldw; 290 (psolvetransq)(&work[z * work_dim1 + 1], &work[wtld * work_dim1 + 1], 334 (psolvetransq)(&work[ztld work_dim1 + 1], &work[z * work_dim1 + 1], 342 dcopy_(n, &work[ytld * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1] 347 dcopy_(n, &work[ztld * work_dim1 + 1], &c__1, &work[q * work_dim1 + 1] 352 dcopy_(n, &work[ytld * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1] 354 dcopy_(n, &work[ztld * work_dim1 + 1], &c__1, &work[q * work_dim1 + 1] 361 eps = ddot_(n, &work[q * work_dim1 + 1], &c__1, &work[ptld * work_dim1 + 377 daxpy_(n, &d__1, &work[v * work_dim1 + 1], &c__1, &work[vtld * work_dim1 390 (psolvetransq)(&work[z work_dim1 + 1], &work[wtld * work_dim1 + 1], [all …]
H A D	CGS.c	147 work_dim1 = ldw; 228 rho = ddot_(n, &work[rtld work_dim1 + 1], &c__1, &work[r * work_dim1 + 243 dcopy_(n, &work[r * work_dim1 + 1], &c__1, &work[u * work_dim1 + 1], & 245 daxpy_(n, &beta, &work[q * work_dim1 + 1], &c__1, &work[u * work_dim1 254 daxpy_(n, &beta, &work[q * work_dim1 + 1], &c__1, &work[p * work_dim1 256 daxpy_(n, &c_b6, &work[u * work_dim1 + 1], &c__1, &work[p * work_dim1 261 dcopy_(n, &work[r * work_dim1 + 1], &c__1, &work[u * work_dim1 + 1], & 263 dcopy_(n, &work[u * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1], & 269 (psolve)(&work[phat work_dim1 + 1], &work[p * work_dim1 + 1]); 275 dcopy_(n, &work[u * work_dim1 + 1], &c__1, &work[q * work_dim1 + 1], & [all …]
H A D	BiCGSTAB.c	158 work_dim1 = ldw; 216 dcopy_(n, &work[r work_dim1 + 1], &c__1, &work[rtld * work_dim1 + 1], & 233 rho = ddot_(n, &work[rtld * work_dim1 + 1], &c__1, &work[r * work_dim1 + 246 daxpy_(n, &d__1, &work[v * work_dim1 + 1], &c__1, &work[p * work_dim1 249 daxpy_(n, &c_b6, &work[r * work_dim1 + 1], &c__1, &work[p * work_dim1 254 dcopy_(n, &work[r * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1], & 260 (psolve)(&work[phat work_dim1 + 1], &work[p * work_dim1 + 1]); 271 dcopy_(n, &work[r * work_dim1 + 1], &c__1, &work[s * work_dim1 + 1], & 284 (psolve)(&work[shat work_dim1 + 1], &work[s * work_dim1 + 1]); 287 omega = ddot_(n, &work[t * work_dim1 + 1], &c__1, &work[s * work_dim1 [all …]
H A D	BiCG.c	182 work_dim1 = ldw; 240 dcopy_(n, &work[r work_dim1 + 1], &c__1, &work[rtld * work_dim1 + 1], & 258 (psolve)(&work[z work_dim1 + 1], &work[r * work_dim1 + 1]); 259 (psolvetrans)(&work[ztld work_dim1 + 1], &work[rtld * work_dim1 + 1]); 261 rho = ddot_(n, &work[z * work_dim1 + 1], &c__1, &work[rtld * work_dim1 + 271 daxpy_(n, &beta, &work[p * work_dim1 + 1], &c__1, &work[z * work_dim1 275 dcopy_(n, &work[z * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1], & 277 dcopy_(n, &work[ztld * work_dim1 + 1], &c__1, &work[ptld * work_dim1 282 dcopy_(n, &work[z * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1], & 284 dcopy_(n, &work[ztld * work_dim1 + 1], &c__1, &work[ptld * work_dim1 [all …]
H A D	CG.c	121 integer work_dim1, work_offset; local 138 work_dim1 = ldw; 139 work_offset = work_dim1 + 1; 204 (psolve)(&work[z * work_dim1 + 1], &work[r * work_dim1 + 1]); 206 rho = ddot_(n, &work[r * work_dim1 + 1], &c__1, &work[z * work_dim1 + 1], 214 daxpy_(n, &beta, &work[p * work_dim1 + 1], &c__1, &work[z * work_dim1 216 dcopy_(n, &work[z * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1], & 221 dcopy_(n, &work[z * work_dim1 + 1], &c__1, &work[p * work_dim1 + 1], & 227 (matvec)(&c_b6, &work[p work_dim1 + 1], &c_b20, &work[q * work_dim1 + 230 work_dim1 + 1], &c__1); [all …]
H A D	GMRES.c	150 work_dim1 = ldw; 210 (psolve)(&work[r * work_dim1 + 1], &work[av * work_dim1 + 1]); 229 dcopy_(n, &work[r * work_dim1 + 1], &c__1, &work[v * work_dim1 + 1], & 251 work_dim1 + 1]); 252 (psolve)(&work[w work_dim1 + 1], &work[av * work_dim1 + 1]); 258 work_dim1 + 1]); 287 drot_(&c__1, &work[i + s * work_dim1], ldw, &work[i + 1 + s * work_dim1], 293 work[s * work_dim1 + 1], &work[v * work_dim1 + 1], ldw); 310 work[s * work_dim1 + 1], &work[v * work_dim1 + 1], ldw); 318 (psolve)(&work[r work_dim1 + 1], &work[av * work_dim1 + 1]); [all …]
H A D	SOR.c	127 integer work_dim1, work_offset; local 144 work_dim1 = ldw; 145 work_offset = work_dim1 + 1; 167 else if(work[work_dim1 + 1] <= 0. \|\| work[work_dim1 + 1] >= 2.) 187 omega = work[work_dim1 + 1]; 195 dcopy_(n, &b[1], &c__1, &work[x1 work_dim1 + 1], &c__1); 198 (matvec)(&c_b5, &x[1], &c_b6, &work[x1 work_dim1 + 1]); 199 if(dnrm2_(n, &work[x1 * work_dim1 + 1], &c__1) < tol) 225 dcopy_(n, &x[1], &c__1, &work[x1 * work_dim1 + 1], &c__1); 229 dcopy_(n, &b[1], &c__1, &work[temp * work_dim1 + 1], &c__1); [all …]
/dports/astro/pykep/pykep-2.6/src/third_party/cspice/
H A D	hrmesp.c	324 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmesp_() 331 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmesp_() 361 work[(i__2 = prev + (work_dim1 << 1) - work_offset) < work_dim1 << 1 in hrmesp_() 371 work[(i__2 = this__ + (work_dim1 << 1) - work_offset) < work_dim1 << in hrmesp_() 383 temp = work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << in hrmesp_() 386 + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= i__3 ? in hrmesp_() 388 work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 in hrmesp_() 395 work[(i__2 = prev + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmesp_() 456 work_dim1 - work_offset) < work_dim1 << 1 && 0 <= i__6 ? in hrmesp_() 458 work[(i__7 = i__ + work_dim1 - work_offset) < work_dim1 << in hrmesp_() [all …]
H A D	hrmint.c	295 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmint_() 344 work[(i__2 = prev + (work_dim1 << 1) - work_offset) < work_dim1 << 1 in hrmint_() 354 work[(i__2 = this__ + (work_dim1 << 1) - work_offset) < work_dim1 << in hrmint_() 366 temp = work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << in hrmint_() 370 ]) + work[(i__4 = prev + work_dim1 - work_offset) < work_dim1 in hrmint_() 373 work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 in hrmint_() 380 work[(i__2 = prev + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmint_() 399 i__4 = (*n << 1) - 1 + work_dim1 - work_offset) < work_dim1 << 1 in hrmint_() 462 work_dim1 - work_offset) < work_dim1 << 1 && 0 <= i__6 ? in hrmint_() 464 work[(i__7 = i__ + work_dim1 - work_offset) < work_dim1 << in hrmint_() [all …]
H A D	zzgfrelx.c	931 (udrepi)(&work[(i__1 = work_dim1 3 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 954 wnfetd_(&work[(i__2 = work_dim1 * 3 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1050 copyd_(&work[(i__1 = (work_dim1 << 1) - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1060 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1070 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1104 ftnlen)991)] * work_dim1 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1262 * work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && 0 in zzgfrelx_() 1273 * work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && in zzgfrelx_() 1321 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1335 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() [all …]
H A D	zzgfrel.c	926 (udrepi)(&work[(i__1 = work_dim1 3 - 5 - work_offset) < work_dim1 * in zzgfrel_() 949 wnfetd_(&work[(i__2 = work_dim1 * 3 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1045 copyd_(&work[(i__1 = (work_dim1 << 1) - 5 - work_offset) < work_dim1 * in zzgfrel_() 1055 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1065 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1099 ftnlen)986)] * work_dim1 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1257 * work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && 0 <= in zzgfrel_() 1268 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && in zzgfrel_() 1316 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1330 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() [all …]
H A D	lgrind.c	271 work_dim1 = n; in lgrind_() 272 work_offset = work_dim1 + 1; in lgrind_() 385 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in lgrind_() 389 work[(i__2 = i__ + (work_dim1 << 1) - work_offset) < work_dim1 << 1 && in lgrind_() 427 work[(i__3 = i__ + (work_dim1 << 1) - work_offset) < work_dim1 << in lgrind_() 432 (i__5 = i__ + 1 + (work_dim1 << 1) - work_offset) < in lgrind_() 437 i__7 = i__ + 1 + work_dim1 - work_offset) < work_dim1 << in lgrind_() 443 work[(i__3 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 in lgrind_() 448 1 + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in lgrind_() 456 p = work[(i__1 = work_dim1 + 1 - work_offset) < work_dim1 << 1 && 0 <= in lgrind_() [all …]
H A D	zzgflong.c	2422 left * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2656 i__3 = top * work_dim1 - 5 - work_offset) < work_dim1 in zzgflong_() 2659 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() 2675 i__4 = q2 * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2694 i__4 = q3 * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2710 i__3 = bot * work_dim1 - 5 - work_offset) < work_dim1 in zzgflong_() 2713 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() 2831 i__3 = f1 * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2866 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() 2991 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() [all …]
/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/
H A D	hrmesp.c	324 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmesp_() 331 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmesp_() 361 work[(i__2 = prev + (work_dim1 << 1) - work_offset) < work_dim1 << 1 in hrmesp_() 371 work[(i__2 = this__ + (work_dim1 << 1) - work_offset) < work_dim1 << in hrmesp_() 383 temp = work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << in hrmesp_() 386 + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= i__3 ? in hrmesp_() 388 work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 in hrmesp_() 395 work[(i__2 = prev + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmesp_() 456 work_dim1 - work_offset) < work_dim1 << 1 && 0 <= i__6 ? in hrmesp_() 458 work[(i__7 = i__ + work_dim1 - work_offset) < work_dim1 << in hrmesp_() [all …]
H A D	hrmint.c	295 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmint_() 344 work[(i__2 = prev + (work_dim1 << 1) - work_offset) < work_dim1 << 1 in hrmint_() 354 work[(i__2 = this__ + (work_dim1 << 1) - work_offset) < work_dim1 << in hrmint_() 366 temp = work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << in hrmint_() 370 ]) + work[(i__4 = prev + work_dim1 - work_offset) < work_dim1 in hrmint_() 373 work[(i__2 = this__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 in hrmint_() 380 work[(i__2 = prev + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in hrmint_() 399 i__4 = (*n << 1) - 1 + work_dim1 - work_offset) < work_dim1 << 1 in hrmint_() 462 work_dim1 - work_offset) < work_dim1 << 1 && 0 <= i__6 ? in hrmint_() 464 work[(i__7 = i__ + work_dim1 - work_offset) < work_dim1 << in hrmint_() [all …]
H A D	zzgfrel.c	926 (udrepi)(&work[(i__1 = work_dim1 3 - 5 - work_offset) < work_dim1 * in zzgfrel_() 949 wnfetd_(&work[(i__2 = work_dim1 * 3 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1045 copyd_(&work[(i__1 = (work_dim1 << 1) - 5 - work_offset) < work_dim1 * in zzgfrel_() 1055 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1065 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1099 ftnlen)986)] * work_dim1 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1257 * work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && 0 <= in zzgfrel_() 1268 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && in zzgfrel_() 1316 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() 1330 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrel_() [all …]
H A D	zzgfrelx.c	931 (udrepi)(&work[(i__1 = work_dim1 3 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 954 wnfetd_(&work[(i__2 = work_dim1 * 3 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1050 copyd_(&work[(i__1 = (work_dim1 << 1) - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1060 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1070 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1104 ftnlen)991)] * work_dim1 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1262 * work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && 0 in zzgfrelx_() 1273 * work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 && in zzgfrelx_() 1321 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() 1335 copyd_(&work[(i__1 = work_dim1 * 5 - 5 - work_offset) < work_dim1 * in zzgfrelx_() [all …]
H A D	lgrind.c	271 work_dim1 = n; in lgrind_() 272 work_offset = work_dim1 + 1; in lgrind_() 385 work[(i__2 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in lgrind_() 389 work[(i__2 = i__ + (work_dim1 << 1) - work_offset) < work_dim1 << 1 && in lgrind_() 427 work[(i__3 = i__ + (work_dim1 << 1) - work_offset) < work_dim1 << in lgrind_() 432 (i__5 = i__ + 1 + (work_dim1 << 1) - work_offset) < in lgrind_() 437 i__7 = i__ + 1 + work_dim1 - work_offset) < work_dim1 << in lgrind_() 443 work[(i__3 = i__ + work_dim1 - work_offset) < work_dim1 << 1 && 0 in lgrind_() 448 1 + work_dim1 - work_offset) < work_dim1 << 1 && 0 <= in lgrind_() 456 p = work[(i__1 = work_dim1 + 1 - work_offset) < work_dim1 << 1 && 0 <= in lgrind_() [all …]
H A D	zzgflong.c	2422 left * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2656 i__3 = top * work_dim1 - 5 - work_offset) < work_dim1 in zzgflong_() 2659 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() 2675 i__4 = q2 * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2694 i__4 = q3 * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2710 i__3 = bot * work_dim1 - 5 - work_offset) < work_dim1 in zzgflong_() 2713 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() 2831 i__3 = f1 * work_dim1 - 5 - work_offset) < work_dim1 * in zzgflong_() 2866 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() 2991 work_dim1 - 5 - work_offset) < work_dim1 * work_dim2 in zzgflong_() [all …]
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A D	ssytri2x.c	169 work_dim1 = n + nb + 1; in ssytri2x_() 170 work_offset = 1 + work_dim1; in ssytri2x_() 347 … work[i__ + j * work_dim1] = work[i__ + invd * work_dim1] * work[i__ + j * work_dim1]; in ssytri2x_() 360 …work[i__ + j * work_dim1] = work[i__ + invd * work_dim1] * u01_i_j__ + work[i__ + (invd + 1) * wor… in ssytri2x_() 361 …work[i__ + 1 + j * work_dim1] = work[i__ + 1 + invd * work_dim1] * u01_i_j__ + work[i__ + 1 + (inv… in ssytri2x_() 377 …work[u11 + i__ + j * work_dim1] = work[cut + i__ + invd * work_dim1] * work[u11 + i__ + j * work_d… in ssytri2x_() 390 …work_dim1] = work[cut + i__ + invd * work_dim1] * work[u11 + i__ + j * work_dim1] + work[cut + i__… in ssytri2x_() 591 … work[i__ + j * work_dim1] = work[cut + nnb + i__ + invd * work_dim1] * work[i__ + j * work_dim1]; in ssytri2x_() 604 …work[i__ + j * work_dim1] = work[cut + nnb + i__ + invd * work_dim1] * u01_i_j__ + work[cut + nnb … in ssytri2x_() 621 …work[u11 + i__ + j * work_dim1] = work[cut + i__ + invd * work_dim1] * work[u11 + i__ + j * work_d… in ssytri2x_() [all …]
H A D	dsytri2x.c	167 work_dim1 = n + nb + 1; in dsytri2x_() 168 work_offset = 1 + work_dim1; in dsytri2x_() 345 … work[i__ + j * work_dim1] = work[i__ + invd * work_dim1] * work[i__ + j * work_dim1]; in dsytri2x_() 358 …work[i__ + j * work_dim1] = work[i__ + invd * work_dim1] * u01_i_j__ + work[i__ + (invd + 1) * wor… in dsytri2x_() 359 …work[i__ + 1 + j * work_dim1] = work[i__ + 1 + invd * work_dim1] * u01_i_j__ + work[i__ + 1 + (inv… in dsytri2x_() 375 …work[u11 + i__ + j * work_dim1] = work[cut + i__ + invd * work_dim1] * work[u11 + i__ + j * work_d… in dsytri2x_() 388 …work_dim1] = work[cut + i__ + invd * work_dim1] * work[u11 + i__ + j * work_dim1] + work[cut + i__… in dsytri2x_() 589 … work[i__ + j * work_dim1] = work[cut + nnb + i__ + invd * work_dim1] * work[i__ + j * work_dim1]; in dsytri2x_() 602 …work[i__ + j * work_dim1] = work[cut + nnb + i__ + invd * work_dim1] * u01_i_j__ + work[cut + nnb … in dsytri2x_() 619 …work[u11 + i__ + j * work_dim1] = work[cut + i__ + invd * work_dim1] * work[u11 + i__ + j * work_d… in dsytri2x_() [all …]
/dports/science/cdcl/dcl-5.4.8-C/src/math2/odelib/
H A D	odrkgr.c	44 work_dim1 = n; in odrkgr_() 45 work_offset = 1 + work_dim1; in odrkgr_() 59 work[i__ + work_dim1] = work[i__ + (work_dim1 << 1)]; in odrkgr_() 64 work_dim1 3 + 1], &work[work_dim1 * 5 + 1]); in odrkgr_() 67 work[i__ + work_dim1] = work[i__ + (work_dim1 << 1)]; in odrkgr_() 71 work_dim1 << 2) + 1], &work[work_dim1 * 5 + 1]); in odrkgr_() 73 (fcn)(n, t, &work[(work_dim1 << 2) + 1], &work[work_dim1 + 1]); in odrkgr_() 74 odrkg_(n, (S_fp)fcn, t, dt, &work[(work_dim1 << 2) + 1], &work[work_dim1 in odrkgr_() 75 + 1], &work[(work_dim1 << 2) + 1], &work[work_dim1 5 + 1]); in odrkgr_() 81 work[i__ + work_dim1] = work[i__ + (work_dim1 << 2)] - work[i__ + in odrkgr_() [all …]
H A D	odrk4.c	25 integer work_dim1, work_offset, i__1; in odrk4_() local 32 work_dim1 = n; in odrk4_() 33 work_offset = 1 + work_dim1; in odrk4_() 47 (fcn)(n, &tt, &work[work_dim1 + 1], &work[(work_dim1 << 1) + 1]); in odrk4_() 50 work[i__ + work_dim1] = x[i__] + dtt * work[i__ + (work_dim1 << 1)]; in odrk4_() 53 (fcn)(n, &tt, &work[work_dim1 + 1], &work[work_dim1 3 + 1]); in odrk4_() 57 work[i__ + work_dim1] = x[i__] + dt work[i__ + work_dim1 * 3]; in odrk4_() 58 work[i__ + work_dim1 * 3] = work[i__ + (work_dim1 << 1)] + work[i__ + in odrk4_() 59 work_dim1 * 3]; in odrk4_() 62 (*fcn)(n, &tt, &work[work_dim1 + 1], &work[(work_dim1 << 1) + 1]); in odrk4_() [all …]
H A D	odrk4r.c	26 integer work_dim1, work_offset, i__1; in odrk4r_() local 44 work_dim1 = n; in odrk4r_() 45 work_offset = 1 + work_dim1; in odrk4r_() 59 work_dim1 << 1) + 1], &work[work_dim1 5 + 1]); in odrk4r_() 61 work_dim1 << 2) + 1], &work[work_dim1 * 5 + 1]); in odrk4r_() 63 (fcn)(n, t, &work[(work_dim1 << 2) + 1], &work[work_dim1 3 + 1]); in odrk4r_() 64 odrk4_(n, (S_fp)fcn, t, dt, &work[(work_dim1 << 2) + 1], &work[work_dim1 * in odrk4r_() 65 3 + 1], &work[(work_dim1 << 2) + 1], &work[work_dim1 * 5 + 1]); in odrk4r_() 71 work[i__ + work_dim1 * 3] = work[i__ + (work_dim1 << 2)] - work[i__ + in odrk4r_() 72 (work_dim1 << 1)]; in odrk4r_() [all …]
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/bem/src/
H A D	gmres.c	177 work_dim1 = ldw; 236 (psolve)(&work[r * work_dim1 + 1], &work[av * work_dim1 + 1]); 254 dcopy_(n, &work[r * work_dim1 + 1], &c__1, &work[v * work_dim1 + 1], & 284 work_dim1 + 1]); 292 (psolve)(&work[w work_dim1 + 1], &work[av * work_dim1 + 1]); 298 work_dim1 + 1]); 326 drot_(&c__1, &work[i + s * work_dim1], ldw, &work[i + 1 + s * work_dim1], 334 work[s * work_dim1 + 1], &work[v * work_dim1 + 1], ldw); 349 work[s * work_dim1 + 1], &work[v * work_dim1 + 1], ldw); 359 (psolve)(&work[r work_dim1 + 1], &work[av * work_dim1 + 1]); [all …]

12 3 4 5