/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/src/tpx/ |
H A D | utils.cpp | 45 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 D | slatm2.c | 17 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 D | dlatm2.c | 17 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 D | dlatm2.c | 17 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 D | slatm2.c | 17 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 D | ilu_dpivotL.c | 81 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 D | ilu_spivotL.c | 81 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 D | ilu_zpivotL.c | 81 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 D | ilu_cpivotL.c | 81 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 D | ilu_dpivotL.c | 91 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 D | ilu_spivotL.c | 91 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 D | ilu_cpivotL.c | 91 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 D | ilu_zpivotL.c | 91 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 D | ilu_dpivotL.c | 91 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 D | ilu_spivotL.c | 91 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 D | ilu_zpivotL.c | 91 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 D | ilu_cpivotL.c | 91 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 D | ilu_dpivotL.c | 91 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 D | ilu_spivotL.c | 91 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 D | ilu_cpivotL.c | 91 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 D | ilu_zpivotL.c | 91 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 D | ajreg.c | 466 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 D | ia10.f | 50 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 D | ga_it2.F | 713 $ 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 D | ga_it2.F | 713 $ 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 …]
|