Home
last modified time | relevance | path

Searched refs:isub (Results 1 – 25 of 1420) sorted by relevance

12345678910>>...57

/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/src/tpx/
H A Dutils.cpp45 Substance* GetSub(int isub) in GetSub() argument
47 if (isub == 0) { in GetSub()
49 } else if (isub == 1) { in GetSub()
51 } else if (isub == 2) { in GetSub()
53 } else if (isub == 3) { in GetSub()
55 } else if (isub == 4) { in GetSub()
57 } else if (isub == 5) { in GetSub()
59 } else if (isub == 7) { in GetSub()
61 } else if (isub == 8) { in GetSub()
65 "known for id '{}'.", isub); in GetSub()
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/TESTING/MATGEN/
H A Dslatm2.c17 static integer isub, jsub; in slatm2_() local
204 isub = *i; in slatm2_()
207 isub = iwork[*i]; in slatm2_()
210 isub = *i; in slatm2_()
213 isub = iwork[*i]; in slatm2_()
219 if (isub == jsub) { in slatm2_()
220 temp = d[isub]; in slatm2_()
225 temp *= dl[isub]; in slatm2_()
229 temp = temp * dl[isub] * dr[jsub]; in slatm2_()
231 temp = temp * dl[isub] / dl[jsub]; in slatm2_()
[all …]
H A Ddlatm2.c17 static integer isub, jsub; in dlatm2_() local
204 isub = *i; in dlatm2_()
207 isub = iwork[*i]; in dlatm2_()
210 isub = *i; in dlatm2_()
213 isub = iwork[*i]; in dlatm2_()
219 if (isub == jsub) { in dlatm2_()
220 temp = d[isub]; in dlatm2_()
225 temp *= dl[isub]; in dlatm2_()
229 temp = temp * dl[isub] * dr[jsub]; in dlatm2_()
231 temp = temp * dl[isub] / dl[jsub]; in dlatm2_()
[all …]
/dports/math/superlu/superlu-5.2.2/TESTING/MATGEN/
H A Ddlatm2.c17 static integer isub, jsub; in dlatm2_slu() local
204 isub = *i; in dlatm2_slu()
207 isub = iwork[*i]; in dlatm2_slu()
210 isub = *i; in dlatm2_slu()
213 isub = iwork[*i]; in dlatm2_slu()
219 if (isub == jsub) { in dlatm2_slu()
220 temp = d[isub]; in dlatm2_slu()
225 temp *= dl[isub]; in dlatm2_slu()
229 temp = temp * dl[isub] * dr[jsub]; in dlatm2_slu()
231 temp = temp * dl[isub] / dl[jsub]; in dlatm2_slu()
[all …]
H A Dslatm2.c17 static integer isub, jsub; in slatm2_slu() local
204 isub = *i; in slatm2_slu()
207 isub = iwork[*i]; in slatm2_slu()
210 isub = *i; in slatm2_slu()
213 isub = iwork[*i]; in slatm2_slu()
219 if (isub == jsub) { in slatm2_slu()
220 temp = d[isub]; in slatm2_slu()
225 temp *= dl[isub]; in slatm2_slu()
229 temp = temp * dl[isub] * dr[jsub]; in slatm2_slu()
231 temp = temp * dl[isub] / dl[jsub]; in slatm2_slu()
[all …]
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/SRC/
H A Dilu_dpivotL.c81 register int isub, icol, k, itemp; in ilu_dpivotL() local
109 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_dpivotL()
110 if (marker[lsub_ptr[isub]] > jcol) in ilu_dpivotL()
115 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_dpivotL()
120 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
124 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
128 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_dpivotL()
129 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_dpivotL()
130 if (ptr0 == EMPTY) ptr0 = isub; in ilu_dpivotL()
160 for (isub = nsupc; isub < nsupr; ++isub) in ilu_dpivotL()
[all …]
H A Dilu_spivotL.c81 register int isub, icol, k, itemp; in ilu_spivotL() local
109 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_spivotL()
110 if (marker[lsub_ptr[isub]] > jcol) in ilu_spivotL()
115 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_spivotL()
120 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
124 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
128 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_spivotL()
129 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_spivotL()
130 if (ptr0 == EMPTY) ptr0 = isub; in ilu_spivotL()
160 for (isub = nsupc; isub < nsupr; ++isub) in ilu_spivotL()
[all …]
H A Dilu_zpivotL.c81 register int isub, icol, k, itemp; in ilu_zpivotL() local
110 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_zpivotL()
111 if (marker[lsub_ptr[isub]] > jcol) in ilu_zpivotL()
122 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
126 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
129 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_zpivotL()
130 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_zpivotL()
131 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_zpivotL()
132 if (ptr0 == EMPTY) ptr0 = isub; in ilu_zpivotL()
162 for (isub = nsupc; isub < nsupr; ++isub) in ilu_zpivotL()
[all …]
H A Dilu_cpivotL.c81 register int isub, icol, k, itemp; in ilu_cpivotL() local
110 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_cpivotL()
111 if (marker[lsub_ptr[isub]] > jcol) in ilu_cpivotL()
122 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
126 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
129 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_cpivotL()
130 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_cpivotL()
131 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_cpivotL()
132 if (ptr0 == EMPTY) ptr0 = isub; in ilu_cpivotL()
162 for (isub = nsupc; isub < nsupr; ++isub) in ilu_cpivotL()
[all …]
/dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/SUPERLU/
H A Dilu_dpivotL.c91 register int isub, icol, k, itemp; in ilu_dpivotL() local
119 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_dpivotL()
120 if (marker[lsub_ptr[isub]] > jcol) in ilu_dpivotL()
125 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_dpivotL()
130 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
134 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
138 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_dpivotL()
139 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_dpivotL()
140 if (ptr0 == EMPTY) ptr0 = isub; in ilu_dpivotL()
170 for (isub = nsupc; isub < nsupr; ++isub) in ilu_dpivotL()
[all …]
H A Dilu_spivotL.c91 register int isub, icol, k, itemp; in ilu_spivotL() local
119 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_spivotL()
120 if (marker[lsub_ptr[isub]] > jcol) in ilu_spivotL()
125 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_spivotL()
130 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
134 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
138 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_spivotL()
139 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_spivotL()
140 if (ptr0 == EMPTY) ptr0 = isub; in ilu_spivotL()
170 for (isub = nsupc; isub < nsupr; ++isub) in ilu_spivotL()
[all …]
H A Dilu_cpivotL.c91 register int isub, icol, k, itemp; in ilu_cpivotL() local
120 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_cpivotL()
121 if (marker[lsub_ptr[isub]] > jcol) in ilu_cpivotL()
132 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
136 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
139 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_cpivotL()
140 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_cpivotL()
141 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_cpivotL()
142 if (ptr0 == EMPTY) ptr0 = isub; in ilu_cpivotL()
172 for (isub = nsupc; isub < nsupr; ++isub) in ilu_cpivotL()
[all …]
H A Dilu_zpivotL.c91 register int isub, icol, k, itemp; in ilu_zpivotL() local
120 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_zpivotL()
121 if (marker[lsub_ptr[isub]] > jcol) in ilu_zpivotL()
132 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
136 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
139 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_zpivotL()
140 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_zpivotL()
141 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_zpivotL()
142 if (ptr0 == EMPTY) ptr0 = isub; in ilu_zpivotL()
172 for (isub = nsupc; isub < nsupr; ++isub) in ilu_zpivotL()
[all …]
/dports/science/py-scipy/scipy-1.7.1/scipy/sparse/linalg/dsolve/SuperLU/SRC/
H A Dilu_dpivotL.c91 register int isub, icol, k, itemp; in ilu_dpivotL() local
119 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_dpivotL()
120 if (marker[lsub_ptr[isub]] > jcol) in ilu_dpivotL()
125 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_dpivotL()
130 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
134 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
138 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_dpivotL()
139 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_dpivotL()
140 if (ptr0 == EMPTY) ptr0 = isub; in ilu_dpivotL()
178 for (isub = nsupc; isub < nsupr; ++isub) in ilu_dpivotL()
[all …]
H A Dilu_spivotL.c91 register int isub, icol, k, itemp; in ilu_spivotL() local
119 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_spivotL()
120 if (marker[lsub_ptr[isub]] > jcol) in ilu_spivotL()
125 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_spivotL()
130 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
134 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
138 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_spivotL()
139 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_spivotL()
140 if (ptr0 == EMPTY) ptr0 = isub; in ilu_spivotL()
178 for (isub = nsupc; isub < nsupr; ++isub) in ilu_spivotL()
[all …]
H A Dilu_zpivotL.c91 register int isub, icol, k, itemp; in ilu_zpivotL() local
120 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_zpivotL()
121 if (marker[lsub_ptr[isub]] > jcol) in ilu_zpivotL()
132 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
136 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
139 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_zpivotL()
140 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_zpivotL()
141 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_zpivotL()
142 if (ptr0 == EMPTY) ptr0 = isub; in ilu_zpivotL()
180 for (isub = nsupc; isub < nsupr; ++isub) in ilu_zpivotL()
[all …]
H A Dilu_cpivotL.c91 register int isub, icol, k, itemp; in ilu_cpivotL() local
120 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_cpivotL()
121 if (marker[lsub_ptr[isub]] > jcol) in ilu_cpivotL()
132 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
136 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
139 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_cpivotL()
140 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_cpivotL()
141 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_cpivotL()
142 if (ptr0 == EMPTY) ptr0 = isub; in ilu_cpivotL()
180 for (isub = nsupc; isub < nsupr; ++isub) in ilu_cpivotL()
[all …]
/dports/math/superlu/superlu-5.2.2/SRC/
H A Dilu_dpivotL.c91 register int isub, icol, k, itemp; in ilu_dpivotL() local
119 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_dpivotL()
120 if (marker[lsub_ptr[isub]] > jcol) in ilu_dpivotL()
125 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_dpivotL()
130 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
134 rtemp = fabs(lu_col_ptr[isub]); in ilu_dpivotL()
138 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_dpivotL()
139 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_dpivotL()
140 if (ptr0 == EMPTY) ptr0 = isub; in ilu_dpivotL()
170 for (isub = nsupc; isub < nsupr; ++isub) in ilu_dpivotL()
[all …]
H A Dilu_spivotL.c91 register int isub, icol, k, itemp; in ilu_spivotL() local
119 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_spivotL()
120 if (marker[lsub_ptr[isub]] > jcol) in ilu_spivotL()
125 rtemp = fabs(lu_col_ptr[isub] + drop_sum); in ilu_spivotL()
130 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
134 rtemp = fabs(lu_col_ptr[isub]); in ilu_spivotL()
138 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_spivotL()
139 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_spivotL()
140 if (ptr0 == EMPTY) ptr0 = isub; in ilu_spivotL()
170 for (isub = nsupc; isub < nsupr; ++isub) in ilu_spivotL()
[all …]
H A Dilu_cpivotL.c91 register int isub, icol, k, itemp; in ilu_cpivotL() local
120 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_cpivotL()
121 if (marker[lsub_ptr[isub]] > jcol) in ilu_cpivotL()
132 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
136 rtemp = c_abs1(&lu_col_ptr[isub]); in ilu_cpivotL()
139 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_cpivotL()
140 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_cpivotL()
141 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_cpivotL()
142 if (ptr0 == EMPTY) ptr0 = isub; in ilu_cpivotL()
172 for (isub = nsupc; isub < nsupr; ++isub) in ilu_cpivotL()
[all …]
H A Dilu_zpivotL.c91 register int isub, icol, k, itemp; in ilu_zpivotL() local
120 for (isub = nsupc; isub < nsupr; ++isub) { in ilu_zpivotL()
121 if (marker[lsub_ptr[isub]] > jcol) in ilu_zpivotL()
132 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
136 rtemp = z_abs1(&lu_col_ptr[isub]); in ilu_zpivotL()
139 if (rtemp > pivmax) { pivmax = rtemp; pivptr = isub; } in ilu_zpivotL()
140 if (*usepr && lsub_ptr[isub] == *pivrow) old_pivptr = isub; in ilu_zpivotL()
141 if (lsub_ptr[isub] == diagind) diag = isub; in ilu_zpivotL()
142 if (ptr0 == EMPTY) ptr0 = isub; in ilu_zpivotL()
172 for (isub = nsupc; isub < nsupr; ++isub) in ilu_zpivotL()
[all …]
/dports/biology/emboss/EMBOSS-6.6.0/ajax/core/
H A Dajreg.c466 if(isub < 0) in ajRegOffsetI()
495 istart = 2*isub; in ajRegLenI()
498 if(isub < 0) in ajRegLenI()
501 if(isub >= rp->ovecsize) in ajRegLenI()
631 istart = 2*isub; in ajRegSubI()
634 if(isub < 0) in ajRegSubI()
737 ajint isub; in ajRegTrace() local
749 for(isub=0; isub < rexp->ovecsize; isub++) in ajRegTrace()
751 istart = 2*isub; in ajRegTrace()
756 if(!isub) in ajRegTrace()
[all …]
/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/
H A Dia10.f50 rslts(7) = isub(100, i20) + isub(100, i20)
51 rslts(8) = isub(isub(100, i20), isub(i20,100)) + 1
52 rslts(9) = isub(i1 + 100, i20) - isub(i3 + 100, i20)
65 function isub(i, j) function
68 isub = i - j
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/
H A Dga_it2.F713 $ g_y, 1, n, isub-nvec, isub-1)
936 a(isub,jsub) = a(isub,jsub)
947 za(isub,jsub) = za(isub,jsub)
1009 call ga_add_patch( c(isub), g_y, 1, n, isub, isub,
1011 call ga_add_patch(-c(isub), g_Ay, 1, n, isub, isub,
1022 call ga_add_patch( zc(isub), g_y, 1, n, isub, isub,
1024 call ga_add_patch(-zc(isub), g_Ay, 1, n, isub, isub,
1049 $ g_Ay, 1, n, isub, isub,
1053 $ g_Ay, 1, n, isub-1, isub-1)
1056 $ g_y, 1, n, isub, isub,
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/
H A Dga_it2.F713 $ g_y, 1, n, isub-nvec, isub-1)
936 a(isub,jsub) = a(isub,jsub)
947 za(isub,jsub) = za(isub,jsub)
1009 call ga_add_patch( c(isub), g_y, 1, n, isub, isub,
1011 call ga_add_patch(-c(isub), g_Ay, 1, n, isub, isub,
1022 call ga_add_patch( zc(isub), g_y, 1, n, isub, isub,
1024 call ga_add_patch(-zc(isub), g_Ay, 1, n, isub, isub,
1049 $ g_Ay, 1, n, isub, isub,
1053 $ g_Ay, 1, n, isub-1, isub-1)
1056 $ g_y, 1, n, isub, isub,
[all …]

12345678910>>...57