| /dports/science/py-scipy/scipy-1.7.1/scipy/sparse/linalg/dsolve/SuperLU/SRC/ |
| H A D | cpivotL.c | 89 int *lsub_ptr; in cpivotL() local
107 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in cpivotL()
113 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in cpivotL()
131 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in cpivotL()
132 if ( lsub_ptr[isub] == diagind ) diag = isub; in cpivotL()
140 *pivrow = lsub_ptr[pivptr]; in cpivotL()
146 *pivrow = lsub_ptr[pivptr]; in cpivotL()
172 *pivrow = lsub_ptr[pivptr]; in cpivotL()
180 itemp = lsub_ptr[pivptr]; in cpivotL()
181 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in cpivotL()
[all …]
|
| H A D | zpivotL.c | 89 int *lsub_ptr; in zpivotL() local
107 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in zpivotL()
113 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in zpivotL()
131 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in zpivotL()
132 if ( lsub_ptr[isub] == diagind ) diag = isub; in zpivotL()
140 *pivrow = lsub_ptr[pivptr]; in zpivotL()
146 *pivrow = lsub_ptr[pivptr]; in zpivotL()
172 *pivrow = lsub_ptr[pivptr]; in zpivotL()
180 itemp = lsub_ptr[pivptr]; in zpivotL()
181 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in zpivotL()
[all …]
|
| H A D | spivotL.c | 88 int *lsub_ptr; in spivotL() local
106 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in spivotL()
112 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in spivotL()
130 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in spivotL()
131 if ( lsub_ptr[isub] == diagind ) diag = isub; in spivotL()
139 *pivrow = lsub_ptr[pivptr]; in spivotL()
145 *pivrow = lsub_ptr[pivptr]; in spivotL()
171 *pivrow = lsub_ptr[pivptr]; in spivotL()
179 itemp = lsub_ptr[pivptr]; in spivotL()
180 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in spivotL()
[all …]
|
| H A D | dpivotL.c | 88 int *lsub_ptr; in dpivotL() local
106 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in dpivotL()
112 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in dpivotL()
130 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in dpivotL()
131 if ( lsub_ptr[isub] == diagind ) diag = isub; in dpivotL()
139 *pivrow = lsub_ptr[pivptr]; in dpivotL()
145 *pivrow = lsub_ptr[pivptr]; in dpivotL()
171 *pivrow = lsub_ptr[pivptr]; in dpivotL()
179 itemp = lsub_ptr[pivptr]; in dpivotL()
180 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in dpivotL()
[all …]
|
| /dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/SRC/ |
| H A D | spivotL.c | 78 int *lsub_ptr; in spivotL() local
96 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in spivotL()
102 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in spivotL()
120 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in spivotL()
121 if ( lsub_ptr[isub] == diagind ) diag = isub; in spivotL()
127 *pivrow = lsub_ptr[pivptr]; in spivotL()
152 *pivrow = lsub_ptr[pivptr]; in spivotL()
160 itemp = lsub_ptr[pivptr]; in spivotL()
161 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in spivotL()
162 lsub_ptr[nsupc] = itemp; in spivotL()
|
| H A D | dpivotL.c | 78 int *lsub_ptr; in dpivotL() local
96 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in dpivotL()
102 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in dpivotL()
120 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in dpivotL()
121 if ( lsub_ptr[isub] == diagind ) diag = isub; in dpivotL()
127 *pivrow = lsub_ptr[pivptr]; in dpivotL()
152 *pivrow = lsub_ptr[pivptr]; in dpivotL()
160 itemp = lsub_ptr[pivptr]; in dpivotL()
161 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in dpivotL()
162 lsub_ptr[nsupc] = itemp; in dpivotL()
|
| H A D | zpivotL.c | 79 int *lsub_ptr; in zpivotL() local
97 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in zpivotL()
103 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in zpivotL()
121 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in zpivotL()
122 if ( lsub_ptr[isub] == diagind ) diag = isub; in zpivotL()
128 *pivrow = lsub_ptr[pivptr]; in zpivotL()
153 *pivrow = lsub_ptr[pivptr]; in zpivotL()
161 itemp = lsub_ptr[pivptr]; in zpivotL()
162 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in zpivotL()
163 lsub_ptr[nsupc] = itemp; in zpivotL()
|
| H A D | cpivotL.c | 79 int *lsub_ptr; in cpivotL() local
97 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in cpivotL()
103 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in cpivotL()
121 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in cpivotL()
122 if ( lsub_ptr[isub] == diagind ) diag = isub; in cpivotL()
128 *pivrow = lsub_ptr[pivptr]; in cpivotL()
153 *pivrow = lsub_ptr[pivptr]; in cpivotL()
161 itemp = lsub_ptr[pivptr]; in cpivotL()
162 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in cpivotL()
163 lsub_ptr[nsupc] = itemp; in cpivotL()
|
| H A D | ilu_dpivotL.c | 80 int *lsub_ptr; in ilu_dpivotL() local
110 if (marker[lsub_ptr[isub]] > jcol) 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()
143 *pivrow = lsub_ptr[pivptr = diag]; in ilu_dpivotL()
145 *pivrow = lsub_ptr[pivptr = ptr0]; in ilu_dpivotL()
161 if ( lsub_ptr[isub] == *pivrow ) { pivptr = isub; break; } in ilu_dpivotL()
211 *pivrow = lsub_ptr[pivptr]; in ilu_dpivotL()
245 itemp = lsub_ptr[pivptr]; in ilu_dpivotL()
246 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in ilu_dpivotL()
[all …]
|
| H A D | ilu_spivotL.c | 80 int *lsub_ptr; in ilu_spivotL() local
110 if (marker[lsub_ptr[isub]] > jcol) 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()
143 *pivrow = lsub_ptr[pivptr = diag]; in ilu_spivotL()
145 *pivrow = lsub_ptr[pivptr = ptr0]; in ilu_spivotL()
161 if ( lsub_ptr[isub] == *pivrow ) { pivptr = isub; break; } in ilu_spivotL()
211 *pivrow = lsub_ptr[pivptr]; in ilu_spivotL()
245 itemp = lsub_ptr[pivptr]; in ilu_spivotL()
246 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in ilu_spivotL()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/SUPERLU/ |
| H A D | spivotL.c | 88 int *lsub_ptr; in spivotL() local
106 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in spivotL()
112 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in spivotL()
130 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in spivotL()
131 if ( lsub_ptr[isub] == diagind ) diag = isub; in spivotL()
137 *pivrow = lsub_ptr[pivptr]; in spivotL()
162 *pivrow = lsub_ptr[pivptr]; in spivotL()
170 itemp = lsub_ptr[pivptr]; in spivotL()
171 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in spivotL()
172 lsub_ptr[nsupc] = itemp; in spivotL()
|
| H A D | dpivotL.c | 88 int *lsub_ptr; in dpivotL() local
106 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in dpivotL()
112 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in dpivotL()
130 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in dpivotL()
131 if ( lsub_ptr[isub] == diagind ) diag = isub; in dpivotL()
137 *pivrow = lsub_ptr[pivptr]; in dpivotL()
162 *pivrow = lsub_ptr[pivptr]; in dpivotL()
170 itemp = lsub_ptr[pivptr]; in dpivotL()
171 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in dpivotL()
172 lsub_ptr[nsupc] = itemp; in dpivotL()
|
| H A D | zpivotL.c | 89 int *lsub_ptr; in zpivotL() local
107 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in zpivotL()
113 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in zpivotL()
131 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in zpivotL()
132 if ( lsub_ptr[isub] == diagind ) diag = isub; in zpivotL()
138 *pivrow = lsub_ptr[pivptr]; in zpivotL()
163 *pivrow = lsub_ptr[pivptr]; in zpivotL()
171 itemp = lsub_ptr[pivptr]; in zpivotL()
172 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in zpivotL()
173 lsub_ptr[nsupc] = itemp; in zpivotL()
|
| H A D | cpivotL.c | 89 int *lsub_ptr; in cpivotL() local
107 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in cpivotL()
113 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in cpivotL()
131 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in cpivotL()
132 if ( lsub_ptr[isub] == diagind ) diag = isub; in cpivotL()
138 *pivrow = lsub_ptr[pivptr]; in cpivotL()
163 *pivrow = lsub_ptr[pivptr]; in cpivotL()
171 itemp = lsub_ptr[pivptr]; in cpivotL()
172 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in cpivotL()
173 lsub_ptr[nsupc] = itemp; in cpivotL()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/superlu/ |
| H A D | spivotL.c | 78 int *lsub_ptr; in spivotL() local
96 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in spivotL()
102 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in spivotL()
120 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in spivotL()
121 if ( lsub_ptr[isub] == diagind ) diag = isub; in spivotL()
126 *pivrow = lsub_ptr[pivptr]; in spivotL()
148 *pivrow = lsub_ptr[pivptr]; in spivotL()
156 itemp = lsub_ptr[pivptr]; in spivotL()
157 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in spivotL()
158 lsub_ptr[nsupc] = itemp; in spivotL()
|
| H A D | dpivotL.c | 78 int *lsub_ptr; in dpivotL() local
96 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in dpivotL()
102 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in dpivotL()
120 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in dpivotL()
121 if ( lsub_ptr[isub] == diagind ) diag = isub; in dpivotL()
126 *pivrow = lsub_ptr[pivptr]; in dpivotL()
148 *pivrow = lsub_ptr[pivptr]; in dpivotL()
156 itemp = lsub_ptr[pivptr]; in dpivotL()
157 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in dpivotL()
158 lsub_ptr[nsupc] = itemp; in dpivotL()
|
| H A D | zpivotL.c | 79 int *lsub_ptr; in zpivotL() local
97 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in zpivotL()
103 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in zpivotL()
121 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in zpivotL()
122 if ( lsub_ptr[isub] == diagind ) diag = isub; in zpivotL()
127 *pivrow = lsub_ptr[pivptr]; in zpivotL()
149 *pivrow = lsub_ptr[pivptr]; in zpivotL()
157 itemp = lsub_ptr[pivptr]; in zpivotL()
158 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in zpivotL()
159 lsub_ptr[nsupc] = itemp; in zpivotL()
|
| H A D | cpivotL.c | 79 int *lsub_ptr; in cpivotL() local
97 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in cpivotL()
103 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in cpivotL()
121 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in cpivotL()
122 if ( lsub_ptr[isub] == diagind ) diag = isub; in cpivotL()
127 *pivrow = lsub_ptr[pivptr]; in cpivotL()
149 *pivrow = lsub_ptr[pivptr]; in cpivotL()
157 itemp = lsub_ptr[pivptr]; in cpivotL()
158 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in cpivotL()
159 lsub_ptr[nsupc] = itemp; in cpivotL()
|
| /dports/math/algae/algae-4.3.6/superlu/ |
| H A D | dpivotL.c | 72 int *lsub_ptr; in dpivotL() local
91 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in dpivotL()
97 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in dpivotL()
115 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in dpivotL()
116 if ( lsub_ptr[isub] == diagind ) diag = isub; in dpivotL()
121 *pivrow = lsub_ptr[pivptr]; in dpivotL()
143 *pivrow = lsub_ptr[pivptr]; in dpivotL()
151 itemp = lsub_ptr[pivptr]; in dpivotL()
152 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in dpivotL()
153 lsub_ptr[nsupc] = itemp; in dpivotL()
|
| H A D | zpivotL.c | 73 int *lsub_ptr; in zpivotL() local
92 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in zpivotL()
98 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in zpivotL()
116 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in zpivotL()
117 if ( lsub_ptr[isub] == diagind ) diag = isub; in zpivotL()
122 *pivrow = lsub_ptr[pivptr]; in zpivotL()
144 *pivrow = lsub_ptr[pivptr]; in zpivotL()
152 itemp = lsub_ptr[pivptr]; in zpivotL()
153 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in zpivotL()
154 lsub_ptr[nsupc] = itemp; in zpivotL()
|
| /dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/hotint/HotInt_V1/SuperLU/ |
| H A D | dpivotL.c | 73 int *lsub_ptr; in dpivotL() local
91 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in dpivotL()
97 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in dpivotL()
115 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in dpivotL()
116 if ( lsub_ptr[isub] == diagind ) diag = isub; in dpivotL()
121 *pivrow = lsub_ptr[pivptr]; in dpivotL()
143 *pivrow = lsub_ptr[pivptr]; in dpivotL()
151 itemp = lsub_ptr[pivptr]; in dpivotL()
152 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in dpivotL()
153 lsub_ptr[nsupc] = itemp; in dpivotL()
|
| /dports/math/superlu/superlu-5.2.2/SRC/ |
| H A D | spivotL.c | 88 int *lsub_ptr; in spivotL() local
106 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in spivotL()
112 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in spivotL()
130 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in spivotL()
131 if ( lsub_ptr[isub] == diagind ) diag = isub; in spivotL()
137 *pivrow = lsub_ptr[pivptr]; in spivotL()
162 *pivrow = lsub_ptr[pivptr]; in spivotL()
170 itemp = lsub_ptr[pivptr]; in spivotL()
171 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in spivotL()
172 lsub_ptr[nsupc] = itemp; in spivotL()
|
| H A D | dpivotL.c | 88 int *lsub_ptr; in dpivotL() local
106 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in dpivotL()
112 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in dpivotL()
130 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in dpivotL()
131 if ( lsub_ptr[isub] == diagind ) diag = isub; in dpivotL()
137 *pivrow = lsub_ptr[pivptr]; in dpivotL()
162 *pivrow = lsub_ptr[pivptr]; in dpivotL()
170 itemp = lsub_ptr[pivptr]; in dpivotL()
171 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in dpivotL()
172 lsub_ptr[nsupc] = itemp; in dpivotL()
|
| H A D | cpivotL.c | 89 int *lsub_ptr; in cpivotL() local
107 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in cpivotL()
113 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in cpivotL()
131 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in cpivotL()
132 if ( lsub_ptr[isub] == diagind ) diag = isub; in cpivotL()
138 *pivrow = lsub_ptr[pivptr]; in cpivotL()
163 *pivrow = lsub_ptr[pivptr]; in cpivotL()
171 itemp = lsub_ptr[pivptr]; in cpivotL()
172 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in cpivotL()
173 lsub_ptr[nsupc] = itemp; in cpivotL()
|
| H A D | zpivotL.c | 89 int *lsub_ptr; in zpivotL() local
107 lsub_ptr = &lsub[lptr]; /* start of row indices of the supernode */ in zpivotL()
113 printf(" lu[%d] %f\n", lsub_ptr[k], lu_col_ptr[k]); in zpivotL()
131 if ( *usepr && lsub_ptr[isub] == *pivrow ) old_pivptr = isub; in zpivotL()
132 if ( lsub_ptr[isub] == diagind ) diag = isub; in zpivotL()
138 *pivrow = lsub_ptr[pivptr]; in zpivotL()
163 *pivrow = lsub_ptr[pivptr]; in zpivotL()
171 itemp = lsub_ptr[pivptr]; in zpivotL()
172 lsub_ptr[pivptr] = lsub_ptr[nsupc]; in zpivotL()
173 lsub_ptr[nsupc] = itemp; in zpivotL()
|