<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>DSDP: src/vecmat/sdpnfac.c Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doxygen.css" rel="stylesheet" type="text/css"/>
</head>
<body>
<!-- Generated by Doxygen 1.7.4 -->
<div id="top">
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td style="padding-left: 0.5em;">
<div id="projectname">DSDP</div>
</td>
</tr>
</tbody>
</table>
</div>
<div id="navrow1" class="tabs">
<ul class="tablist">
<li><a href="index.html"><span>Main Page</span></a></li>
<li><a href="pages.html"><span>Related Pages</span></a></li>
<li><a href="modules.html"><span>Modules</span></a></li>
<li><a href="annotated.html"><span>Data Structures</span></a></li>
<li class="current"><a href="files.html"><span>Files</span></a></li>
<li><a href="dirs.html"><span>Directories</span></a></li>
</ul>
</div>
<div id="navrow2" class="tabs2">
<ul class="tablist">
<li><a href="files.html"><span>File List</span></a></li>
<li><a href="globals.html"><span>Globals</span></a></li>
</ul>
</div>
<div id="nav-path" class="navpath">
<ul>
<li class="navelem"><a class="el" href="dir_23046874d7fed141927c769a66d8e3a5.html">src</a> </li>
<li class="navelem"><a class="el" href="dir_9706e2f7b84d8f85001c7784fc3e51fe.html">vecmat</a> </li>
</ul>
</div>
</div>
<div class="header">
<div class="headertitle">
<div class="title">sdpnfac.c</div> </div>
</div>
<div class="contents">
<div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="preprocessor">#include "numchol.h"</span>
<a name="l00002"></a>00002
<a name="l00003"></a>00003 <span class="keyword">static</span> <span class="keywordtype">void</span> UpdSnode(<span class="keywordtype">int</span> m,
<a name="l00004"></a>00004 <span class="keywordtype">int</span> n,
<a name="l00005"></a>00005 <span class="keywordtype">int</span> s,
<a name="l00006"></a>00006 <span class="keywordtype">double</span> diaga[],
<a name="l00007"></a>00007 <span class="keywordtype">double</span> *a,
<a name="l00008"></a>00008 <span class="keywordtype">int</span> fira[],
<a name="l00009"></a>00009 <span class="keywordtype">double</span> diagb[],
<a name="l00010"></a>00010 <span class="keywordtype">double</span> *b,
<a name="l00011"></a>00011 <span class="keywordtype">int</span> firb[])
<a name="l00012"></a>00012 {
<a name="l00013"></a>00013 <span class="keywordtype">int</span> i,k,t,sze;
<a name="l00014"></a>00014 <span class="keywordtype">double</span> rtemp1, rtemp2, rtemp3, rtemp4,
<a name="l00015"></a>00015 rtemp5, rtemp6, rtemp7, rtemp8,
<a name="l00016"></a>00016 rtemp9, rtemp10,rtemp11,rtemp12,
<a name="l00017"></a>00017 rtemp13,rtemp14,rtemp15,rtemp16,
<a name="l00018"></a>00018 *a1,*a2, *a3, *a4, *a5, *a6, *a7, *a8,
<a name="l00019"></a>00019 *a9,*a10,*a11,*a12,*a13,*a14,*a15,*a16,
<a name="l00020"></a>00020 *b00,*b1,*b0;
<a name="l00021"></a>00021
<a name="l00022"></a>00022 <span class="keywordflow">for</span>(i=0; i+1<s; i+=2) {
<a name="l00023"></a>00023 b00 = b+firb[i];
<a name="l00024"></a>00024 b0 = b00+1;
<a name="l00025"></a>00025 b1 = b+firb[i+1];
<a name="l00026"></a>00026 sze = m-i-2;
<a name="l00027"></a>00027 k = 0;
<a name="l00028"></a>00028
<a name="l00029"></a>00029 <span class="keywordflow">for</span>(; k+3<n; k+=4) {
<a name="l00030"></a>00030 a1 = a+(fira[k+0 ]+i);
<a name="l00031"></a>00031 a2 = a+(fira[k+1 ]+i);
<a name="l00032"></a>00032 a3 = a+(fira[k+2 ]+i);
<a name="l00033"></a>00033 a4 = a+(fira[k+3 ]+i);
<a name="l00034"></a>00034
<a name="l00035"></a>00035 rtemp1 = a1[0]/diaga[k+0];
<a name="l00036"></a>00036 rtemp2 = a2[0]/diaga[k+1];
<a name="l00037"></a>00037 rtemp3 = a3[0]/diaga[k+2];
<a name="l00038"></a>00038 rtemp4 = a4[0]/diaga[k+3];
<a name="l00039"></a>00039
<a name="l00040"></a>00040 diagb[i] -= rtemp1 * a1[0]
<a name="l00041"></a>00041 + rtemp2 * a2[0]
<a name="l00042"></a>00042 + rtemp3 * a3[0]
<a name="l00043"></a>00043 + rtemp4 * a4[0];
<a name="l00044"></a>00044
<a name="l00045"></a>00045 ++ a1;
<a name="l00046"></a>00046 ++ a2;
<a name="l00047"></a>00047 ++ a3;
<a name="l00048"></a>00048 ++ a4;
<a name="l00049"></a>00049
<a name="l00050"></a>00050 rtemp5 = a1[0]/diaga[k+0];
<a name="l00051"></a>00051 rtemp6 = a2[0]/diaga[k+1];
<a name="l00052"></a>00052 rtemp7 = a3[0]/diaga[k+2];
<a name="l00053"></a>00053 rtemp8 = a4[0]/diaga[k+3];
<a name="l00054"></a>00054
<a name="l00055"></a>00055 b00[0] -= rtemp1 * a1[0]
<a name="l00056"></a>00056 + rtemp2 * a2[0]
<a name="l00057"></a>00057 + rtemp3 * a3[0]
<a name="l00058"></a>00058 + rtemp4 * a4[0];
<a name="l00059"></a>00059
<a name="l00060"></a>00060 diagb[i+1] -= rtemp5 * a1[0]
<a name="l00061"></a>00061 + rtemp6 * a2[0]
<a name="l00062"></a>00062 + rtemp7 * a3[0]
<a name="l00063"></a>00063 + rtemp8 * a4[0];
<a name="l00064"></a>00064
<a name="l00065"></a>00065 ++ a1;
<a name="l00066"></a>00066 ++ a2;
<a name="l00067"></a>00067 ++ a3;
<a name="l00068"></a>00068 ++ a4;
<a name="l00069"></a>00069
<a name="l00070"></a>00070 <span class="keywordflow">for</span>(t=0; t<sze; ++t) {
<a name="l00071"></a>00071 b0[t] -= rtemp1 * a1[t]
<a name="l00072"></a>00072 + rtemp2 * a2[t]
<a name="l00073"></a>00073 + rtemp3 * a3[t]
<a name="l00074"></a>00074 + rtemp4 * a4[t];
<a name="l00075"></a>00075
<a name="l00076"></a>00076 b1[t] -= rtemp5 * a1[t]
<a name="l00077"></a>00077 + rtemp6 * a2[t]
<a name="l00078"></a>00078 + rtemp7 * a3[t]
<a name="l00079"></a>00079 + rtemp8 * a4[t];
<a name="l00080"></a>00080 }
<a name="l00081"></a>00081 }
<a name="l00082"></a>00082
<a name="l00083"></a>00083 <span class="keywordflow">for</span>(; k+1<n; k+=2) {
<a name="l00084"></a>00084 a1 = a+(fira[k+0 ]+i);
<a name="l00085"></a>00085 a2 = a+(fira[k+1 ]+i);
<a name="l00086"></a>00086
<a name="l00087"></a>00087 rtemp1 = a1[0] / diaga[k+0];
<a name="l00088"></a>00088 rtemp2 = a2[0] / diaga[k+1];
<a name="l00089"></a>00089
<a name="l00090"></a>00090 diagb[i] -= a1[0] * rtemp1
<a name="l00091"></a>00091 + a2[0] * rtemp2;
<a name="l00092"></a>00092
<a name="l00093"></a>00093 ++ a1;
<a name="l00094"></a>00094 ++ a2;
<a name="l00095"></a>00095
<a name="l00096"></a>00096 rtemp5 = a1[0] / diaga[k+0];
<a name="l00097"></a>00097 rtemp6 = a2[0] / diaga[k+1];
<a name="l00098"></a>00098
<a name="l00099"></a>00099 b00[0] -= a1[0] * rtemp1
<a name="l00100"></a>00100 + a2[0] * rtemp2;
<a name="l00101"></a>00101
<a name="l00102"></a>00102 diagb[i+1] -= a1[0] * rtemp5
<a name="l00103"></a>00103 + a2[0] * rtemp6;
<a name="l00104"></a>00104
<a name="l00105"></a>00105
<a name="l00106"></a>00106 ++ a1;
<a name="l00107"></a>00107 ++ a2;
<a name="l00108"></a>00108
<a name="l00109"></a>00109 <span class="keywordflow">for</span>(t=0; t<sze; ++t) {
<a name="l00110"></a>00110 b0[t] -= a1[t] * rtemp1
<a name="l00111"></a>00111 + a2[t] * rtemp2;
<a name="l00112"></a>00112
<a name="l00113"></a>00113 b1[t] -= a1[t] * rtemp5
<a name="l00114"></a>00114 + a2[t] * rtemp6;
<a name="l00115"></a>00115 }
<a name="l00116"></a>00116 }
<a name="l00117"></a>00117
<a name="l00118"></a>00118 <span class="keywordflow">for</span>(; k<n; ++k) {
<a name="l00119"></a>00119 a1 = a+(fira[k+0 ]+i);
<a name="l00120"></a>00120
<a name="l00121"></a>00121 rtemp1 = a1[0] / diaga[k+0];
<a name="l00122"></a>00122
<a name="l00123"></a>00123 diagb[i] -= a1[0] * rtemp1;
<a name="l00124"></a>00124
<a name="l00125"></a>00125 ++ a1;
<a name="l00126"></a>00126
<a name="l00127"></a>00127 rtemp5 = a1[0] / diaga[k+0];
<a name="l00128"></a>00128
<a name="l00129"></a>00129 diagb[i+1] -= a1[0] * rtemp5;
<a name="l00130"></a>00130
<a name="l00131"></a>00131 b00[0] -= a1[0] * rtemp1;
<a name="l00132"></a>00132
<a name="l00133"></a>00133 ++ a1;
<a name="l00134"></a>00134
<a name="l00135"></a>00135 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00136"></a>00136 {
<a name="l00137"></a>00137 b0[t] -= rtemp1 * a1[t];
<a name="l00138"></a>00138 b1[t] -= rtemp5 * a1[t];
<a name="l00139"></a>00139 }
<a name="l00140"></a>00140 }
<a name="l00141"></a>00141 }
<a name="l00142"></a>00142
<a name="l00143"></a>00143 <span class="keywordflow">for</span>(; i<s; ++i) {
<a name="l00144"></a>00144
<a name="l00145"></a>00145 b0 = b+firb[i];
<a name="l00146"></a>00146 sze = m-i-1;
<a name="l00147"></a>00147 k = 0;
<a name="l00148"></a>00148
<a name="l00149"></a>00149 <span class="keywordflow">for</span>(; k+15<n; k+=16) {
<a name="l00150"></a>00150 a1 = a+(fira[k+0 ]+i);
<a name="l00151"></a>00151 a2 = a+(fira[k+1 ]+i);
<a name="l00152"></a>00152 a3 = a+(fira[k+2 ]+i);
<a name="l00153"></a>00153 a4 = a+(fira[k+3 ]+i);
<a name="l00154"></a>00154 a5 = a+(fira[k+4 ]+i);
<a name="l00155"></a>00155 a6 = a+(fira[k+5 ]+i);
<a name="l00156"></a>00156 a7 = a+(fira[k+6 ]+i);
<a name="l00157"></a>00157 a8 = a+(fira[k+7 ]+i);
<a name="l00158"></a>00158 a9 = a+(fira[k+8 ]+i);
<a name="l00159"></a>00159 a10 = a+(fira[k+9 ]+i);
<a name="l00160"></a>00160 a11 = a+(fira[k+10]+i);
<a name="l00161"></a>00161 a12 = a+(fira[k+11]+i);
<a name="l00162"></a>00162 a13 = a+(fira[k+12]+i);
<a name="l00163"></a>00163 a14 = a+(fira[k+13]+i);
<a name="l00164"></a>00164 a15 = a+(fira[k+14]+i);
<a name="l00165"></a>00165 a16 = a+(fira[k+15]+i);
<a name="l00166"></a>00166
<a name="l00167"></a>00167 rtemp1 = *a1/diaga[k+0];
<a name="l00168"></a>00168 rtemp2 = *a2/diaga[k+1];
<a name="l00169"></a>00169 rtemp3 = *a3/diaga[k+2];
<a name="l00170"></a>00170 rtemp4 = *a4/diaga[k+3];
<a name="l00171"></a>00171 rtemp5 = *a5/diaga[k+4];
<a name="l00172"></a>00172 rtemp6 = *a6/diaga[k+5];
<a name="l00173"></a>00173 rtemp7 = *a7/diaga[k+6];
<a name="l00174"></a>00174 rtemp8 = *a8/diaga[k+7];
<a name="l00175"></a>00175 rtemp9 = *a9/diaga[k+8];
<a name="l00176"></a>00176 rtemp10 = *a10/diaga[k+9];
<a name="l00177"></a>00177 rtemp11 = *a11/diaga[k+10];
<a name="l00178"></a>00178 rtemp12 = *a12/diaga[k+11];
<a name="l00179"></a>00179 rtemp13 = *a13/diaga[k+12];
<a name="l00180"></a>00180 rtemp14 = *a14/diaga[k+13];
<a name="l00181"></a>00181 rtemp15 = *a15/diaga[k+14];
<a name="l00182"></a>00182 rtemp16 = *a16/diaga[k+15];
<a name="l00183"></a>00183
<a name="l00184"></a>00184 diagb[i] -= rtemp1 * (*a1)
<a name="l00185"></a>00185 + rtemp2 * (*a2)
<a name="l00186"></a>00186 + rtemp3 * (*a3)
<a name="l00187"></a>00187 + rtemp4 * (*a4)
<a name="l00188"></a>00188 + rtemp5 * (*a5)
<a name="l00189"></a>00189 + rtemp6 * (*a6)
<a name="l00190"></a>00190 + rtemp7 * (*a7)
<a name="l00191"></a>00191 + rtemp8 * (*a8)
<a name="l00192"></a>00192 + rtemp9 * (*a9)
<a name="l00193"></a>00193 + rtemp10 * (*a10)
<a name="l00194"></a>00194 + rtemp11 * (*a11)
<a name="l00195"></a>00195 + rtemp12 * (*a12)
<a name="l00196"></a>00196 + rtemp13 * (*a13)
<a name="l00197"></a>00197 + rtemp14 * (*a14)
<a name="l00198"></a>00198 + rtemp15 * (*a15)
<a name="l00199"></a>00199 + rtemp16 * (*a16);
<a name="l00200"></a>00200
<a name="l00201"></a>00201
<a name="l00202"></a>00202 ++ a1;
<a name="l00203"></a>00203 ++ a2;
<a name="l00204"></a>00204 ++ a3;
<a name="l00205"></a>00205 ++ a4;
<a name="l00206"></a>00206 ++ a5;
<a name="l00207"></a>00207 ++ a6;
<a name="l00208"></a>00208 ++ a7;
<a name="l00209"></a>00209 ++ a8;
<a name="l00210"></a>00210 ++ a9;
<a name="l00211"></a>00211 ++ a10;
<a name="l00212"></a>00212 ++ a11;
<a name="l00213"></a>00213 ++ a12;
<a name="l00214"></a>00214 ++ a13;
<a name="l00215"></a>00215 ++ a14;
<a name="l00216"></a>00216 ++ a15;
<a name="l00217"></a>00217 ++ a16;
<a name="l00218"></a>00218
<a name="l00219"></a>00219 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00220"></a>00220 b0[t] -= rtemp1 * a1[t]
<a name="l00221"></a>00221 + rtemp2 * a2[t]
<a name="l00222"></a>00222 + rtemp3 * a3[t]
<a name="l00223"></a>00223 + rtemp4 * a4[t]
<a name="l00224"></a>00224 + rtemp5 * a5[t]
<a name="l00225"></a>00225 + rtemp6 * a6[t]
<a name="l00226"></a>00226 + rtemp7 * a7[t]
<a name="l00227"></a>00227 + rtemp8 * a8[t]
<a name="l00228"></a>00228 + rtemp9 * a9[t]
<a name="l00229"></a>00229 + rtemp10 * a10[t]
<a name="l00230"></a>00230 + rtemp11 * a11[t]
<a name="l00231"></a>00231 + rtemp12 * a12[t]
<a name="l00232"></a>00232 + rtemp13 * a13[t]
<a name="l00233"></a>00233 + rtemp14 * a14[t]
<a name="l00234"></a>00234 + rtemp15 * a15[t]
<a name="l00235"></a>00235 + rtemp16 * a16[t];
<a name="l00236"></a>00236
<a name="l00237"></a>00237 }
<a name="l00238"></a>00238
<a name="l00239"></a>00239 <span class="keywordflow">for</span>(; k+11<n; k+=12) {
<a name="l00240"></a>00240 a1 = a+(fira[k+0 ]+i);
<a name="l00241"></a>00241 a2 = a+(fira[k+1 ]+i);
<a name="l00242"></a>00242 a3 = a+(fira[k+2 ]+i);
<a name="l00243"></a>00243 a4 = a+(fira[k+3 ]+i);
<a name="l00244"></a>00244 a5 = a+(fira[k+4 ]+i);
<a name="l00245"></a>00245 a6 = a+(fira[k+5 ]+i);
<a name="l00246"></a>00246 a7 = a+(fira[k+6 ]+i);
<a name="l00247"></a>00247 a8 = a+(fira[k+7 ]+i);
<a name="l00248"></a>00248 a9 = a+(fira[k+8 ]+i);
<a name="l00249"></a>00249 a10 = a+(fira[k+9 ]+i);
<a name="l00250"></a>00250 a11 = a+(fira[k+10]+i);
<a name="l00251"></a>00251 a12 = a+(fira[k+11]+i);
<a name="l00252"></a>00252
<a name="l00253"></a>00253 rtemp1 = *a1/diaga[k+0];
<a name="l00254"></a>00254 rtemp2 = *a2/diaga[k+1];
<a name="l00255"></a>00255 rtemp3 = *a3/diaga[k+2];
<a name="l00256"></a>00256 rtemp4 = *a4/diaga[k+3];
<a name="l00257"></a>00257 rtemp5 = *a5/diaga[k+4];
<a name="l00258"></a>00258 rtemp6 = *a6/diaga[k+5];
<a name="l00259"></a>00259 rtemp7 = *a7/diaga[k+6];
<a name="l00260"></a>00260 rtemp8 = *a8/diaga[k+7];
<a name="l00261"></a>00261 rtemp9 = *a9/diaga[k+8];
<a name="l00262"></a>00262 rtemp10 = *a10/diaga[k+9];
<a name="l00263"></a>00263 rtemp11 = *a11/diaga[k+10];
<a name="l00264"></a>00264 rtemp12 = *a12/diaga[k+11];
<a name="l00265"></a>00265
<a name="l00266"></a>00266 diagb[i] -= rtemp1 * (*a1)
<a name="l00267"></a>00267 + rtemp2 * (*a2)
<a name="l00268"></a>00268 + rtemp3 * (*a3)
<a name="l00269"></a>00269 + rtemp4 * (*a4)
<a name="l00270"></a>00270 + rtemp5 * (*a5)
<a name="l00271"></a>00271 + rtemp6 * (*a6)
<a name="l00272"></a>00272 + rtemp7 * (*a7)
<a name="l00273"></a>00273 + rtemp8 * (*a8)
<a name="l00274"></a>00274 + rtemp9 * (*a9)
<a name="l00275"></a>00275 + rtemp10 * (*a10)
<a name="l00276"></a>00276 + rtemp11 * (*a11)
<a name="l00277"></a>00277 + rtemp12 * (*a12);
<a name="l00278"></a>00278
<a name="l00279"></a>00279 ++ a1;
<a name="l00280"></a>00280 ++ a2;
<a name="l00281"></a>00281 ++ a3;
<a name="l00282"></a>00282 ++ a4;
<a name="l00283"></a>00283 ++ a5;
<a name="l00284"></a>00284 ++ a6;
<a name="l00285"></a>00285 ++ a7;
<a name="l00286"></a>00286 ++ a8;
<a name="l00287"></a>00287 ++ a9;
<a name="l00288"></a>00288 ++ a10;
<a name="l00289"></a>00289 ++ a11;
<a name="l00290"></a>00290 ++ a12;
<a name="l00291"></a>00291
<a name="l00292"></a>00292 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00293"></a>00293 b0[t] -= rtemp1 * a1[t]
<a name="l00294"></a>00294 + rtemp2 * a2[t]
<a name="l00295"></a>00295 + rtemp3 * a3[t]
<a name="l00296"></a>00296 + rtemp4 * a4[t]
<a name="l00297"></a>00297 + rtemp5 * a5[t]
<a name="l00298"></a>00298 + rtemp6 * a6[t]
<a name="l00299"></a>00299 + rtemp7 * a7[t]
<a name="l00300"></a>00300 + rtemp8 * a8[t]
<a name="l00301"></a>00301 + rtemp9 * a9[t]
<a name="l00302"></a>00302 + rtemp10 * a10[t]
<a name="l00303"></a>00303 + rtemp11 * a11[t]
<a name="l00304"></a>00304 + rtemp12 * a12[t];
<a name="l00305"></a>00305
<a name="l00306"></a>00306 }
<a name="l00307"></a>00307
<a name="l00308"></a>00308 <span class="keywordflow">for</span>(; k+7<n; k+=8) {
<a name="l00309"></a>00309 a1 = a+(fira[k+0 ]+i);
<a name="l00310"></a>00310 a2 = a+(fira[k+1 ]+i);
<a name="l00311"></a>00311 a3 = a+(fira[k+2 ]+i);
<a name="l00312"></a>00312 a4 = a+(fira[k+3 ]+i);
<a name="l00313"></a>00313 a5 = a+(fira[k+4 ]+i);
<a name="l00314"></a>00314 a6 = a+(fira[k+5 ]+i);
<a name="l00315"></a>00315 a7 = a+(fira[k+6 ]+i);
<a name="l00316"></a>00316 a8 = a+(fira[k+7 ]+i);
<a name="l00317"></a>00317
<a name="l00318"></a>00318 rtemp1 = *a1/diaga[k+0];
<a name="l00319"></a>00319 rtemp2 = *a2/diaga[k+1];
<a name="l00320"></a>00320 rtemp3 = *a3/diaga[k+2];
<a name="l00321"></a>00321 rtemp4 = *a4/diaga[k+3];
<a name="l00322"></a>00322 rtemp5 = *a5/diaga[k+4];
<a name="l00323"></a>00323 rtemp6 = *a6/diaga[k+5];
<a name="l00324"></a>00324 rtemp7 = *a7/diaga[k+6];
<a name="l00325"></a>00325 rtemp8 = *a8/diaga[k+7];
<a name="l00326"></a>00326
<a name="l00327"></a>00327 diagb[i] -= rtemp1 * (*a1)
<a name="l00328"></a>00328 + rtemp2 * (*a2)
<a name="l00329"></a>00329 + rtemp3 * (*a3)
<a name="l00330"></a>00330 + rtemp4 * (*a4)
<a name="l00331"></a>00331 + rtemp5 * (*a5)
<a name="l00332"></a>00332 + rtemp6 * (*a6)
<a name="l00333"></a>00333 + rtemp7 * (*a7)
<a name="l00334"></a>00334 + rtemp8 * (*a8);
<a name="l00335"></a>00335
<a name="l00336"></a>00336 ++ a1;
<a name="l00337"></a>00337 ++ a2;
<a name="l00338"></a>00338 ++ a3;
<a name="l00339"></a>00339 ++ a4;
<a name="l00340"></a>00340 ++ a5;
<a name="l00341"></a>00341 ++ a6;
<a name="l00342"></a>00342 ++ a7;
<a name="l00343"></a>00343 ++ a8;
<a name="l00344"></a>00344
<a name="l00345"></a>00345 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00346"></a>00346 b0[t] -= rtemp1 * a1[t]
<a name="l00347"></a>00347 + rtemp2 * a2[t]
<a name="l00348"></a>00348 + rtemp3 * a3[t]
<a name="l00349"></a>00349 + rtemp4 * a4[t]
<a name="l00350"></a>00350 + rtemp5 * a5[t]
<a name="l00351"></a>00351 + rtemp6 * a6[t]
<a name="l00352"></a>00352 + rtemp7 * a7[t]
<a name="l00353"></a>00353 + rtemp8 * a8[t];
<a name="l00354"></a>00354
<a name="l00355"></a>00355 }
<a name="l00356"></a>00356
<a name="l00357"></a>00357 <span class="keywordflow">for</span>(; k+3<n; k+=4) {
<a name="l00358"></a>00358 a1 = a+(fira[k+0 ]+i);
<a name="l00359"></a>00359 a2 = a+(fira[k+1 ]+i);
<a name="l00360"></a>00360 a3 = a+(fira[k+2 ]+i);
<a name="l00361"></a>00361 a4 = a+(fira[k+3 ]+i);
<a name="l00362"></a>00362
<a name="l00363"></a>00363 rtemp1 = *a1/diaga[k+0];
<a name="l00364"></a>00364 rtemp2 = *a2/diaga[k+1];
<a name="l00365"></a>00365 rtemp3 = *a3/diaga[k+2];
<a name="l00366"></a>00366 rtemp4 = *a4/diaga[k+3];
<a name="l00367"></a>00367
<a name="l00368"></a>00368 diagb[i] -= rtemp1 * (*a1)
<a name="l00369"></a>00369 + rtemp2 * (*a2)
<a name="l00370"></a>00370 + rtemp3 * (*a3)
<a name="l00371"></a>00371 + rtemp4 * (*a4);
<a name="l00372"></a>00372
<a name="l00373"></a>00373 ++ a1;
<a name="l00374"></a>00374 ++ a2;
<a name="l00375"></a>00375 ++ a3;
<a name="l00376"></a>00376 ++ a4;
<a name="l00377"></a>00377
<a name="l00378"></a>00378 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00379"></a>00379 b0[t] -= rtemp1 * a1[t]
<a name="l00380"></a>00380 + rtemp2 * a2[t]
<a name="l00381"></a>00381 + rtemp3 * a3[t]
<a name="l00382"></a>00382 + rtemp4 * a4[t];
<a name="l00383"></a>00383
<a name="l00384"></a>00384 }
<a name="l00385"></a>00385
<a name="l00386"></a>00386 <span class="keywordflow">for</span>(; k+1<n; k+=2) {
<a name="l00387"></a>00387 a1 = a+(fira[k+0 ]+i);
<a name="l00388"></a>00388 a2 = a+(fira[k+1 ]+i);
<a name="l00389"></a>00389
<a name="l00390"></a>00390 rtemp1 = *a1/diaga[k+0];
<a name="l00391"></a>00391 rtemp2 = *a2/diaga[k+1];
<a name="l00392"></a>00392
<a name="l00393"></a>00393 diagb[i] -= rtemp1 * (*a1)
<a name="l00394"></a>00394 + rtemp2 * (*a2);
<a name="l00395"></a>00395
<a name="l00396"></a>00396 ++ a1;
<a name="l00397"></a>00397 ++ a2;
<a name="l00398"></a>00398
<a name="l00399"></a>00399 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00400"></a>00400 b0[t] -= rtemp1 * a1[t]
<a name="l00401"></a>00401 + rtemp2 * a2[t];
<a name="l00402"></a>00402 }
<a name="l00403"></a>00403
<a name="l00404"></a>00404 <span class="keywordflow">for</span>(; k<n; ++k) {
<a name="l00405"></a>00405 a1 = a+(fira[k+0 ]+i);
<a name="l00406"></a>00406
<a name="l00407"></a>00407 rtemp1 = *a1/diaga[k+0];
<a name="l00408"></a>00408
<a name="l00409"></a>00409 diagb[i] -= rtemp1 * (*a1);
<a name="l00410"></a>00410
<a name="l00411"></a>00411 ++ a1;
<a name="l00412"></a>00412
<a name="l00413"></a>00413 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00414"></a>00414 b0[t] -= rtemp1 * a1[t];
<a name="l00415"></a>00415 }
<a name="l00416"></a>00416 }
<a name="l00417"></a>00417 } <span class="comment">/* UpdSnode */</span>
<a name="l00418"></a>00418
<a name="l00419"></a>00419 <span class="keyword">static</span> <span class="keywordtype">void</span> iUpdSnode(chfac *cf,
<a name="l00420"></a>00420 <span class="keywordtype">int</span> snde,
<a name="l00421"></a>00421 <span class="keywordtype">int</span> f,
<a name="l00422"></a>00422 <span class="keywordtype">int</span> l,
<a name="l00423"></a>00423 <span class="keywordtype">int</span> uf,
<a name="l00424"></a>00424 <span class="keywordtype">int</span> ul,
<a name="l00425"></a>00425 <span class="keywordtype">int</span> iw[])
<a name="l00426"></a>00426 {
<a name="l00427"></a>00427 <span class="keywordtype">int</span> k,
<a name="l00428"></a>00428 *ujsze=cf->ujsze,*uhead=cf->uhead,*subg=cf->subg;
<a name="l00429"></a>00429 <span class="keywordtype">double</span> *diag=cf->diag,*uval=cf->uval;
<a name="l00430"></a>00430
<a name="l00431"></a>00431 <span class="keywordflow">if</span> (f==l || uf==ul)
<a name="l00432"></a>00432 <span class="keywordflow">return</span>;
<a name="l00433"></a>00433
<a name="l00434"></a>00434 f += subg[snde];
<a name="l00435"></a>00435 l += subg[snde];
<a name="l00436"></a>00436 uf += subg[snde];
<a name="l00437"></a>00437 ul += subg[snde];
<a name="l00438"></a>00438
<a name="l00439"></a>00439 <span class="keywordflow">for</span>(k=f; k<l; ++k)
<a name="l00440"></a>00440 iw[k-f] = uhead[k]+uf-k-1;
<a name="l00441"></a>00441
<a name="l00442"></a>00442 UpdSnode(1+ujsze[uf],l-f,ul-uf,diag+f,uval,iw,diag+uf,uval,uhead+uf);
<a name="l00443"></a>00443 } <span class="comment">/* iUpdSnode */</span>
<a name="l00444"></a>00444
<a name="l00445"></a>00445 <span class="keyword">static</span> <span class="keywordtype">int</span> DiagUpdate(<span class="keywordtype">double</span> *dii,
<a name="l00446"></a>00446 <span class="keywordtype">int</span> mode)
<a name="l00447"></a>00447 {
<a name="l00448"></a>00448 <span class="keywordtype">int</span> <span class="keywordtype">id</span>=TRUE;
<a name="l00449"></a>00449
<a name="l00450"></a>00450 <span class="keywordflow">if</span> (mode) {
<a name="l00451"></a>00451 <span class="keywordflow">if</span> (*dii<1.0e-13)
<a name="l00452"></a>00452 <span class="keywordflow">return</span> FALSE;
<a name="l00453"></a>00453 }
<a name="l00454"></a>00454 <span class="keywordflow">else</span> {
<a name="l00455"></a>00455 <span class="keywordflow">if</span> (fabs(*dii)<1.0e-35) {
<a name="l00456"></a>00456 printf(<span class="stringliteral">" diagonal nearly zero: %5.1e.\n"</span>,(*dii));
<a name="l00457"></a>00457 <span class="keywordflow">return</span> FALSE;
<a name="l00458"></a>00458 }
<a name="l00459"></a>00459 }
<a name="l00460"></a>00460 <span class="keywordflow">return</span> id;
<a name="l00461"></a>00461 } <span class="comment">/* DiagUpdate */</span>
<a name="l00462"></a>00462
<a name="l00463"></a>00463 <span class="keyword">static</span> <span class="keywordtype">int</span> FacSnode(chfac *cf,
<a name="l00464"></a>00464 <span class="keywordtype">int</span> snde,
<a name="l00465"></a>00465 <span class="keywordtype">int</span> f,
<a name="l00466"></a>00466 <span class="keywordtype">int</span> l,
<a name="l00467"></a>00467 <span class="keywordtype">int</span> iw[],
<a name="l00468"></a>00468 <span class="keywordtype">int</span> mode)
<a name="l00469"></a>00469 {
<a name="l00470"></a>00470 <span class="keywordtype">int</span> itemp,k;
<a name="l00471"></a>00471
<a name="l00472"></a>00472 <span class="keywordflow">if</span> (f==l)
<a name="l00473"></a>00473 <span class="keywordflow">return</span> (CfcOk);
<a name="l00474"></a>00474
<a name="l00475"></a>00475 itemp = cf->subg[snde]+f;
<a name="l00476"></a>00476
<a name="l00477"></a>00477 <span class="keywordflow">if</span> (!DiagUpdate(cf->diag+itemp,
<a name="l00478"></a>00478 mode))
<a name="l00479"></a>00479 <span class="keywordflow">return</span> (CfcIndef);
<a name="l00480"></a>00480
<a name="l00481"></a>00481 <span class="keywordflow">if</span> (fabs(cf->diag[itemp])<=cf->tolpiv) {
<a name="l00482"></a>00482 printf(<span class="stringliteral">"Singular d[%d]=%e\n"</span>,
<a name="l00483"></a>00483 cf->subg[snde]+f,cf->diag[cf->subg[snde]+f]);
<a name="l00484"></a>00484 <span class="keywordflow">return</span> (CfcIndef);
<a name="l00485"></a>00485 }
<a name="l00486"></a>00486
<a name="l00487"></a>00487 <span class="keywordflow">for</span>(k=f+1; k<l; ++k) {
<a name="l00488"></a>00488 iUpdSnode(cf,snde,f,k,k,k+1,iw);
<a name="l00489"></a>00489
<a name="l00490"></a>00490 itemp = cf->subg[snde]+k;
<a name="l00491"></a>00491
<a name="l00492"></a>00492 <span class="keywordflow">if</span> (!DiagUpdate(&cf->diag[itemp],
<a name="l00493"></a>00493 mode))
<a name="l00494"></a>00494 <span class="keywordflow">return</span> (CfcIndef);
<a name="l00495"></a>00495
<a name="l00496"></a>00496 <span class="keywordflow">if</span> (fabs(cf->diag[itemp])<=cf->tolpiv) {
<a name="l00497"></a>00497 printf(<span class="stringliteral">" singular d[%d]=%e\n"</span>,
<a name="l00498"></a>00498 cf->subg[snde]+k,cf->diag[cf->subg[snde]+k]);
<a name="l00499"></a>00499
<a name="l00500"></a>00500 <span class="keywordflow">return</span> (CfcIndef);
<a name="l00501"></a>00501 }
<a name="l00502"></a>00502 }
<a name="l00503"></a>00503
<a name="l00504"></a>00504 <span class="keywordflow">return</span> CfcOk;
<a name="l00505"></a>00505 } <span class="comment">/* FacSnode */</span>
<a name="l00506"></a>00506
<a name="l00507"></a>00507 <span class="keyword">static</span> <span class="keywordtype">void</span> UpdSnodes(<span class="keywordtype">int</span> m,
<a name="l00508"></a>00508 <span class="keywordtype">int</span> n,
<a name="l00509"></a>00509 <span class="keywordtype">int</span> s,
<a name="l00510"></a>00510 <span class="keywordtype">double</span> diaga[],
<a name="l00511"></a>00511 <span class="keywordtype">double</span> *a,
<a name="l00512"></a>00512 <span class="keywordtype">int</span> fira[],
<a name="l00513"></a>00513 <span class="keywordtype">double</span> diagb[],
<a name="l00514"></a>00514 <span class="keywordtype">double</span> *b,
<a name="l00515"></a>00515 <span class="keywordtype">int</span> firb[],
<a name="l00516"></a>00516 <span class="keywordtype">int</span> subb[])
<a name="l00517"></a>00517 {
<a name="l00518"></a>00518 <span class="keywordtype">int</span> i,j,k,t,u,sze,delay,
<a name="l00519"></a>00519 *ls;
<a name="l00520"></a>00520 <span class="keywordtype">double</span> rtemp1,rtemp2,rtemp3,rtemp4,
<a name="l00521"></a>00521 rtemp5,rtemp6,rtemp7,rtemp8,
<a name="l00522"></a>00522 rtemp9,rtemp10,rtemp11,rtemp12,
<a name="l00523"></a>00523 rtemp13,rtemp14,rtemp15,rtemp16,
<a name="l00524"></a>00524 *a1,*a2,*a3,*a4,*a5,*a6,*a7,*a8,
<a name="l00525"></a>00525 *a9,*a10,*a11,*a12,*a13,*a14,*a15,*a16,
<a name="l00526"></a>00526 *b0;
<a name="l00527"></a>00527
<a name="l00528"></a>00528 <span class="keywordflow">if</span> (m<s)
<a name="l00529"></a>00529 exit(0);
<a name="l00530"></a>00530
<a name="l00531"></a>00531 <span class="keywordflow">if</span> (m==0 || n==0)
<a name="l00532"></a>00532 <span class="keywordflow">return</span>;
<a name="l00533"></a>00533
<a name="l00534"></a>00534 <span class="keywordflow">for</span>(i=0; i<s; ++i) {
<a name="l00535"></a>00535 j = subb[i];
<a name="l00536"></a>00536 u = j-subb[0];
<a name="l00537"></a>00537
<a name="l00538"></a>00538 b0 = b+firb[u];
<a name="l00539"></a>00539
<a name="l00540"></a>00540 delay = j+1;
<a name="l00541"></a>00541 sze = m-i-1;
<a name="l00542"></a>00542 ls = subb+i+1;
<a name="l00543"></a>00543
<a name="l00544"></a>00544 k = 0;
<a name="l00545"></a>00545
<a name="l00546"></a>00546 <span class="keywordflow">for</span>(; k+15<n; k+=16) {
<a name="l00547"></a>00547 a1 = a+(fira[k+0 ]+i);
<a name="l00548"></a>00548 a2 = a+(fira[k+1 ]+i);
<a name="l00549"></a>00549 a3 = a+(fira[k+2 ]+i);
<a name="l00550"></a>00550 a4 = a+(fira[k+3 ]+i);
<a name="l00551"></a>00551 a5 = a+(fira[k+4 ]+i);
<a name="l00552"></a>00552 a6 = a+(fira[k+5 ]+i);
<a name="l00553"></a>00553 a7 = a+(fira[k+6 ]+i);
<a name="l00554"></a>00554 a8 = a+(fira[k+7 ]+i);
<a name="l00555"></a>00555 a9 = a+(fira[k+8 ]+i);
<a name="l00556"></a>00556 a10 = a+(fira[k+9 ]+i);
<a name="l00557"></a>00557 a11 = a+(fira[k+10]+i);
<a name="l00558"></a>00558 a12 = a+(fira[k+11]+i);
<a name="l00559"></a>00559 a13 = a+(fira[k+12]+i);
<a name="l00560"></a>00560 a14 = a+(fira[k+13]+i);
<a name="l00561"></a>00561 a15 = a+(fira[k+14]+i);
<a name="l00562"></a>00562 a16 = a+(fira[k+15]+i);
<a name="l00563"></a>00563
<a name="l00564"></a>00564 rtemp1 = *a1/diaga[k+0];
<a name="l00565"></a>00565 rtemp2 = *a2/diaga[k+1];
<a name="l00566"></a>00566 rtemp3 = *a3/diaga[k+2];
<a name="l00567"></a>00567 rtemp4 = *a4/diaga[k+3];
<a name="l00568"></a>00568 rtemp5 = *a5/diaga[k+4];
<a name="l00569"></a>00569 rtemp6 = *a6/diaga[k+5];
<a name="l00570"></a>00570 rtemp7 = *a7/diaga[k+6];
<a name="l00571"></a>00571 rtemp8 = *a8/diaga[k+7];
<a name="l00572"></a>00572 rtemp9 = *a9/diaga[k+8];
<a name="l00573"></a>00573 rtemp10 = *a10/diaga[k+9];
<a name="l00574"></a>00574 rtemp11 = *a11/diaga[k+10];
<a name="l00575"></a>00575 rtemp12 = *a12/diaga[k+11];
<a name="l00576"></a>00576 rtemp13 = *a13/diaga[k+12];
<a name="l00577"></a>00577 rtemp14 = *a14/diaga[k+13];
<a name="l00578"></a>00578 rtemp15 = *a15/diaga[k+14];
<a name="l00579"></a>00579 rtemp16 = *a16/diaga[k+15];
<a name="l00580"></a>00580
<a name="l00581"></a>00581 diagb[u] -= rtemp1 * (*a1)
<a name="l00582"></a>00582 + rtemp2 * (*a2)
<a name="l00583"></a>00583 + rtemp3 * (*a3)
<a name="l00584"></a>00584 + rtemp4 * (*a4)
<a name="l00585"></a>00585 + rtemp5 * (*a5)
<a name="l00586"></a>00586 + rtemp6 * (*a6)
<a name="l00587"></a>00587 + rtemp7 * (*a7)
<a name="l00588"></a>00588 + rtemp8 * (*a8)
<a name="l00589"></a>00589 + rtemp9 * (*a9)
<a name="l00590"></a>00590 + rtemp10 * (*a10)
<a name="l00591"></a>00591 + rtemp11 * (*a11)
<a name="l00592"></a>00592 + rtemp12 * (*a12)
<a name="l00593"></a>00593 + rtemp13 * (*a13)
<a name="l00594"></a>00594 + rtemp14 * (*a14)
<a name="l00595"></a>00595 + rtemp15 * (*a15)
<a name="l00596"></a>00596 + rtemp16 * (*a16);
<a name="l00597"></a>00597
<a name="l00598"></a>00598
<a name="l00599"></a>00599 ++ a1;
<a name="l00600"></a>00600 ++ a2;
<a name="l00601"></a>00601 ++ a3;
<a name="l00602"></a>00602 ++ a4;
<a name="l00603"></a>00603 ++ a5;
<a name="l00604"></a>00604 ++ a6;
<a name="l00605"></a>00605 ++ a7;
<a name="l00606"></a>00606 ++ a8;
<a name="l00607"></a>00607 ++ a9;
<a name="l00608"></a>00608 ++ a10;
<a name="l00609"></a>00609 ++ a11;
<a name="l00610"></a>00610 ++ a12;
<a name="l00611"></a>00611 ++ a13;
<a name="l00612"></a>00612 ++ a14;
<a name="l00613"></a>00613 ++ a15;
<a name="l00614"></a>00614 ++ a16;
<a name="l00615"></a>00615
<a name="l00616"></a>00616 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00617"></a>00617 b0[ls[t]-delay] -= rtemp1 * a1[t]
<a name="l00618"></a>00618 + rtemp2 * a2[t]
<a name="l00619"></a>00619 + rtemp3 * a3[t]
<a name="l00620"></a>00620 + rtemp4 * a4[t]
<a name="l00621"></a>00621 + rtemp5 * a5[t]
<a name="l00622"></a>00622 + rtemp6 * a6[t]
<a name="l00623"></a>00623 + rtemp7 * a7[t]
<a name="l00624"></a>00624 + rtemp8 * a8[t]
<a name="l00625"></a>00625 + rtemp9 * a9[t]
<a name="l00626"></a>00626 + rtemp10 * a10[t]
<a name="l00627"></a>00627 + rtemp11 * a11[t]
<a name="l00628"></a>00628 + rtemp12 * a12[t]
<a name="l00629"></a>00629 + rtemp13 * a13[t]
<a name="l00630"></a>00630 + rtemp14 * a14[t]
<a name="l00631"></a>00631 + rtemp15 * a15[t]
<a name="l00632"></a>00632 + rtemp16 * a16[t];
<a name="l00633"></a>00633 }
<a name="l00634"></a>00634
<a name="l00635"></a>00635 <span class="keywordflow">for</span>(; k+11<n; k+=12) {
<a name="l00636"></a>00636 a1 = a+(fira[k+0 ]+i);
<a name="l00637"></a>00637 a2 = a+(fira[k+1 ]+i);
<a name="l00638"></a>00638 a3 = a+(fira[k+2 ]+i);
<a name="l00639"></a>00639 a4 = a+(fira[k+3 ]+i);
<a name="l00640"></a>00640 a5 = a+(fira[k+4 ]+i);
<a name="l00641"></a>00641 a6 = a+(fira[k+5 ]+i);
<a name="l00642"></a>00642 a7 = a+(fira[k+6 ]+i);
<a name="l00643"></a>00643 a8 = a+(fira[k+7 ]+i);
<a name="l00644"></a>00644 a9 = a+(fira[k+8 ]+i);
<a name="l00645"></a>00645 a10 = a+(fira[k+9 ]+i);
<a name="l00646"></a>00646 a11 = a+(fira[k+10]+i);
<a name="l00647"></a>00647 a12 = a+(fira[k+11]+i);
<a name="l00648"></a>00648
<a name="l00649"></a>00649 rtemp1 = *a1/diaga[k+0];
<a name="l00650"></a>00650 rtemp2 = *a2/diaga[k+1];
<a name="l00651"></a>00651 rtemp3 = *a3/diaga[k+2];
<a name="l00652"></a>00652 rtemp4 = *a4/diaga[k+3];
<a name="l00653"></a>00653 rtemp5 = *a5/diaga[k+4];
<a name="l00654"></a>00654 rtemp6 = *a6/diaga[k+5];
<a name="l00655"></a>00655 rtemp7 = *a7/diaga[k+6];
<a name="l00656"></a>00656 rtemp8 = *a8/diaga[k+7];
<a name="l00657"></a>00657 rtemp9 = *a9/diaga[k+8];
<a name="l00658"></a>00658 rtemp10 = *a10/diaga[k+9];
<a name="l00659"></a>00659 rtemp11 = *a11/diaga[k+10];
<a name="l00660"></a>00660 rtemp12 = *a12/diaga[k+11];
<a name="l00661"></a>00661
<a name="l00662"></a>00662 diagb[u] -= rtemp1 * (*a1)
<a name="l00663"></a>00663 + rtemp2 * (*a2)
<a name="l00664"></a>00664 + rtemp3 * (*a3)
<a name="l00665"></a>00665 + rtemp4 * (*a4)
<a name="l00666"></a>00666 + rtemp5 * (*a5)
<a name="l00667"></a>00667 + rtemp6 * (*a6)
<a name="l00668"></a>00668 + rtemp7 * (*a7)
<a name="l00669"></a>00669 + rtemp8 * (*a8)
<a name="l00670"></a>00670 + rtemp9 * (*a9)
<a name="l00671"></a>00671 + rtemp10 * (*a10)
<a name="l00672"></a>00672 + rtemp11 * (*a11)
<a name="l00673"></a>00673 + rtemp12 * (*a12);
<a name="l00674"></a>00674
<a name="l00675"></a>00675 ++ a1;
<a name="l00676"></a>00676 ++ a2;
<a name="l00677"></a>00677 ++ a3;
<a name="l00678"></a>00678 ++ a4;
<a name="l00679"></a>00679 ++ a5;
<a name="l00680"></a>00680 ++ a6;
<a name="l00681"></a>00681 ++ a7;
<a name="l00682"></a>00682 ++ a8;
<a name="l00683"></a>00683 ++ a9;
<a name="l00684"></a>00684 ++ a10;
<a name="l00685"></a>00685 ++ a11;
<a name="l00686"></a>00686 ++ a12;
<a name="l00687"></a>00687
<a name="l00688"></a>00688 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00689"></a>00689 b0[ls[t]-delay] -= rtemp1 * a1[t]
<a name="l00690"></a>00690 + rtemp2 * a2[t]
<a name="l00691"></a>00691 + rtemp3 * a3[t]
<a name="l00692"></a>00692 + rtemp4 * a4[t]
<a name="l00693"></a>00693 + rtemp5 * a5[t]
<a name="l00694"></a>00694 + rtemp6 * a6[t]
<a name="l00695"></a>00695 + rtemp7 * a7[t]
<a name="l00696"></a>00696 + rtemp8 * a8[t]
<a name="l00697"></a>00697 + rtemp9 * a9[t]
<a name="l00698"></a>00698 + rtemp10 * a10[t]
<a name="l00699"></a>00699 + rtemp11 * a11[t]
<a name="l00700"></a>00700 + rtemp12 * a12[t];
<a name="l00701"></a>00701 }
<a name="l00702"></a>00702
<a name="l00703"></a>00703 <span class="keywordflow">for</span>(; k+7<n; k+=8) {
<a name="l00704"></a>00704 a1 = a+(fira[k+0 ]+i);
<a name="l00705"></a>00705 a2 = a+(fira[k+1 ]+i);
<a name="l00706"></a>00706 a3 = a+(fira[k+2 ]+i);
<a name="l00707"></a>00707 a4 = a+(fira[k+3 ]+i);
<a name="l00708"></a>00708 a5 = a+(fira[k+4 ]+i);
<a name="l00709"></a>00709 a6 = a+(fira[k+5 ]+i);
<a name="l00710"></a>00710 a7 = a+(fira[k+6 ]+i);
<a name="l00711"></a>00711 a8 = a+(fira[k+7 ]+i);
<a name="l00712"></a>00712
<a name="l00713"></a>00713 rtemp1 = *a1/diaga[k+0];
<a name="l00714"></a>00714 rtemp2 = *a2/diaga[k+1];
<a name="l00715"></a>00715 rtemp3 = *a3/diaga[k+2];
<a name="l00716"></a>00716 rtemp4 = *a4/diaga[k+3];
<a name="l00717"></a>00717 rtemp5 = *a5/diaga[k+4];
<a name="l00718"></a>00718 rtemp6 = *a6/diaga[k+5];
<a name="l00719"></a>00719 rtemp7 = *a7/diaga[k+6];
<a name="l00720"></a>00720 rtemp8 = *a8/diaga[k+7];
<a name="l00721"></a>00721
<a name="l00722"></a>00722 diagb[u] -= rtemp1 * (*a1)
<a name="l00723"></a>00723 + rtemp2 * (*a2)
<a name="l00724"></a>00724 + rtemp3 * (*a3)
<a name="l00725"></a>00725 + rtemp4 * (*a4)
<a name="l00726"></a>00726 + rtemp5 * (*a5)
<a name="l00727"></a>00727 + rtemp6 * (*a6)
<a name="l00728"></a>00728 + rtemp7 * (*a7)
<a name="l00729"></a>00729 + rtemp8 * (*a8);
<a name="l00730"></a>00730
<a name="l00731"></a>00731 ++ a1;
<a name="l00732"></a>00732 ++ a2;
<a name="l00733"></a>00733 ++ a3;
<a name="l00734"></a>00734 ++ a4;
<a name="l00735"></a>00735 ++ a5;
<a name="l00736"></a>00736 ++ a6;
<a name="l00737"></a>00737 ++ a7;
<a name="l00738"></a>00738 ++ a8;
<a name="l00739"></a>00739
<a name="l00740"></a>00740 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00741"></a>00741 b0[ls[t]-delay] -= rtemp1 * a1[t]
<a name="l00742"></a>00742 + rtemp2 * a2[t]
<a name="l00743"></a>00743 + rtemp3 * a3[t]
<a name="l00744"></a>00744 + rtemp4 * a4[t]
<a name="l00745"></a>00745 + rtemp5 * a5[t]
<a name="l00746"></a>00746 + rtemp6 * a6[t]
<a name="l00747"></a>00747 + rtemp7 * a7[t]
<a name="l00748"></a>00748 + rtemp8 * a8[t];
<a name="l00749"></a>00749
<a name="l00750"></a>00750 }
<a name="l00751"></a>00751
<a name="l00752"></a>00752 <span class="keywordflow">for</span>(; k+3<n; k+=4) {
<a name="l00753"></a>00753 a1 = a+(fira[k+0 ]+i);
<a name="l00754"></a>00754 a2 = a+(fira[k+1 ]+i);
<a name="l00755"></a>00755 a3 = a+(fira[k+2 ]+i);
<a name="l00756"></a>00756 a4 = a+(fira[k+3 ]+i);
<a name="l00757"></a>00757
<a name="l00758"></a>00758 rtemp1 = *a1/diaga[k+0];
<a name="l00759"></a>00759 rtemp2 = *a2/diaga[k+1];
<a name="l00760"></a>00760 rtemp3 = *a3/diaga[k+2];
<a name="l00761"></a>00761 rtemp4 = *a4/diaga[k+3];
<a name="l00762"></a>00762
<a name="l00763"></a>00763 diagb[u]-= rtemp1 * (*a1)
<a name="l00764"></a>00764 +rtemp2 * (*a2)
<a name="l00765"></a>00765 +rtemp3 * (*a3)
<a name="l00766"></a>00766 +rtemp4 * (*a4);
<a name="l00767"></a>00767
<a name="l00768"></a>00768 ++ a1;
<a name="l00769"></a>00769 ++ a2;
<a name="l00770"></a>00770 ++ a3;
<a name="l00771"></a>00771 ++ a4;
<a name="l00772"></a>00772
<a name="l00773"></a>00773 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00774"></a>00774 b0[ls[t]-delay] -= rtemp1 * a1[t]
<a name="l00775"></a>00775 + rtemp2 * a2[t]
<a name="l00776"></a>00776 + rtemp3 * a3[t]
<a name="l00777"></a>00777 + rtemp4 * a4[t];
<a name="l00778"></a>00778
<a name="l00779"></a>00779 }
<a name="l00780"></a>00780
<a name="l00781"></a>00781 <span class="keywordflow">for</span>(; k+1<n; k+=2) {
<a name="l00782"></a>00782 a1 = a+(fira[k+0 ]+i);
<a name="l00783"></a>00783 a2 = a+(fira[k+1 ]+i);
<a name="l00784"></a>00784
<a name="l00785"></a>00785 rtemp1 = *a1/diaga[k+0];
<a name="l00786"></a>00786 rtemp2 = *a2/diaga[k+1];
<a name="l00787"></a>00787
<a name="l00788"></a>00788 diagb[u] -= rtemp1 * (*a1)
<a name="l00789"></a>00789 + rtemp2 * (*a2);
<a name="l00790"></a>00790
<a name="l00791"></a>00791 ++ a1;
<a name="l00792"></a>00792 ++ a2;
<a name="l00793"></a>00793
<a name="l00794"></a>00794 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00795"></a>00795 b0[ls[t]-delay] -= rtemp1 * a1[t]
<a name="l00796"></a>00796 + rtemp2 * a2[t];
<a name="l00797"></a>00797 }
<a name="l00798"></a>00798
<a name="l00799"></a>00799 <span class="keywordflow">for</span>(; k<n; ++k) {
<a name="l00800"></a>00800 a1 = a+(fira[k+0 ]+i);
<a name="l00801"></a>00801
<a name="l00802"></a>00802 rtemp1 = *a1/diaga[k+0];
<a name="l00803"></a>00803
<a name="l00804"></a>00804 diagb[u] -= rtemp1 * (*a1);
<a name="l00805"></a>00805
<a name="l00806"></a>00806 ++ a1;
<a name="l00807"></a>00807
<a name="l00808"></a>00808 <span class="keywordflow">for</span>(t=0; t<sze; ++t)
<a name="l00809"></a>00809 b0[ls[t]-delay] -= rtemp1 * a1[t];
<a name="l00810"></a>00810 }
<a name="l00811"></a>00811 }
<a name="l00812"></a>00812 } <span class="comment">/* UpdSnodes */</span>
<a name="l00813"></a>00813
<a name="l00814"></a>00814 <span class="keyword">static</span> <span class="keywordtype">void</span> ExtUpdSnode(chfac *cf,
<a name="l00815"></a>00815 <span class="keywordtype">int</span> snde,
<a name="l00816"></a>00816 <span class="keywordtype">int</span> usnde,
<a name="l00817"></a>00817 <span class="keywordtype">int</span> f,
<a name="l00818"></a>00818 <span class="keywordtype">int</span> l,
<a name="l00819"></a>00819 <span class="keywordtype">int</span> start,
<a name="l00820"></a>00820 <span class="keywordtype">int</span> iw[])
<a name="l00821"></a>00821 {
<a name="l00822"></a>00822 <span class="keywordtype">int</span> k,sze,
<a name="l00823"></a>00823 *ls,
<a name="l00824"></a>00824 *subg=cf->subg,
<a name="l00825"></a>00825 *ujsze=cf->ujsze,*usub=cf->usub,*ujbeg=cf->ujbeg,*uhead=cf->uhead;
<a name="l00826"></a>00826 <span class="keywordtype">double</span> *diag=cf->diag,*uval=cf->uval;
<a name="l00827"></a>00827
<a name="l00828"></a>00828 f += subg[snde];
<a name="l00829"></a>00829 l += subg[snde];
<a name="l00830"></a>00830
<a name="l00831"></a>00831 <span class="keywordflow">if</span> (usnde==cf->nsnds-1) {
<a name="l00832"></a>00832 <span class="keywordflow">if</span> (usub[ujbeg[f]+start]<subg[usnde]) {
<a name="l00833"></a>00833 printf(<span class="stringliteral">"\n Index error"</span>);
<a name="l00834"></a>00834 exit(0);
<a name="l00835"></a>00835 }
<a name="l00836"></a>00836
<a name="l00837"></a>00837 <span class="keywordflow">if</span> (cf->sdens)
<a name="l00838"></a>00838 exit(0);
<a name="l00839"></a>00839
<a name="l00840"></a>00840 ls = usub+ujbeg[f]+start;
<a name="l00841"></a>00841 sze = ujsze[f]-start;
<a name="l00842"></a>00842
<a name="l00843"></a>00843 <span class="keywordflow">for</span>(k=f; k<l; ++k)
<a name="l00844"></a>00844 iw[k-f] =uhead[k]+start-(k-f);
<a name="l00845"></a>00845
<a name="l00846"></a>00846 UpdSnodes(sze,l-f,sze,diag+f,uval,iw,diag+ls[0],uval,uhead+ls[0],ls);
<a name="l00847"></a>00847 }
<a name="l00848"></a>00848 <span class="keywordflow">else</span>
<a name="l00849"></a>00849 exit(0);
<a name="l00850"></a>00850 } <span class="comment">/* ExtUpdSnode */</span>
<a name="l00851"></a>00851
<a name="l00852"></a>00852 <span class="keyword">static</span> <span class="keywordtype">void</span> PushFward(chfac *cf,
<a name="l00853"></a>00853 <span class="keywordtype">int</span> snde,
<a name="l00854"></a>00854 <span class="keywordtype">int</span> f,
<a name="l00855"></a>00855 <span class="keywordtype">int</span> l,
<a name="l00856"></a>00856 <span class="keywordtype">int</span> iw[])
<a name="l00857"></a>00857 {
<a name="l00858"></a>00858 <span class="keywordtype">int</span> j,s,t,u,k,stops,offset,sze,itemp,
<a name="l00859"></a>00859 *ls0,*ls1,
<a name="l00860"></a>00860 *map=iw,*subg=cf->subg,
<a name="l00861"></a>00861 *ujsze=cf->ujsze,*uhead=cf->uhead,*ujbeg=cf->ujbeg,*usub=cf->usub;
<a name="l00862"></a>00862 <span class="keywordtype">double</span> rtemp1,*l0,*l1,
<a name="l00863"></a>00863 *diag=cf->diag,*uval=cf->uval;
<a name="l00864"></a>00864
<a name="l00865"></a>00865 <span class="keywordflow">if</span> (f>subg[snde+1]-subg[snde]) {
<a name="l00866"></a>00866 printf(<span class="stringliteral">"\n PushFward"</span>);
<a name="l00867"></a>00867 exit(0);
<a name="l00868"></a>00868 }
<a name="l00869"></a>00869
<a name="l00870"></a>00870 <span class="keywordflow">if</span> (f==l)
<a name="l00871"></a>00871 <span class="keywordflow">return</span>;
<a name="l00872"></a>00872
<a name="l00873"></a>00873 f += subg[snde];
<a name="l00874"></a>00874 l += subg[snde];
<a name="l00875"></a>00875
<a name="l00876"></a>00876 offset = subg[snde+1]-f-1;
<a name="l00877"></a>00877 sze = ujsze[f] - offset;
<a name="l00878"></a>00878 ls1 = usub+ujbeg[f]+offset;
<a name="l00879"></a>00879
<a name="l00880"></a>00880 <span class="keywordflow">if</span> (f+1==l) {
<a name="l00881"></a>00881 l1 = uval+uhead[f]+offset;
<a name="l00882"></a>00882
<a name="l00883"></a>00883 stops = sze;
<a name="l00884"></a>00884 <span class="keywordflow">for</span>(t=0; t<sze; ++t) {
<a name="l00885"></a>00885 j = ls1[0];
<a name="l00886"></a>00886
<a name="l00887"></a>00887 <span class="keywordflow">if</span> (j>=subg[cf->nsnds-1])
<a name="l00888"></a>00888 <span class="keywordflow">break</span>;
<a name="l00889"></a>00889
<a name="l00890"></a>00890 rtemp1 = l1[0]/diag[f];
<a name="l00891"></a>00891 diag[j] -= rtemp1*l1[0];
<a name="l00892"></a>00892 ++ l1;
<a name="l00893"></a>00893
<a name="l00894"></a>00894 l0 = uval+uhead[j];
<a name="l00895"></a>00895 ls0 = usub+ujbeg[j];
<a name="l00896"></a>00896
<a name="l00897"></a>00897 ++ ls1;
<a name="l00898"></a>00898 -- stops;
<a name="l00899"></a>00899
<a name="l00900"></a>00900 <span class="keywordflow">if</span> (stops && ls1[stops-1]==ls0[stops-1]) {
<a name="l00901"></a>00901 <span class="keywordflow">for</span>(s=0; s<stops; ++s)
<a name="l00902"></a>00902 l0[s] -= rtemp1 * l1[s];
<a name="l00903"></a>00903 }
<a name="l00904"></a>00904
<a name="l00905"></a>00905 <span class="keywordflow">else</span> {
<a name="l00906"></a>00906 <span class="keywordflow">for</span>(s=0, u=0; s<stops; ++u) {
<a name="l00907"></a>00907 <span class="keywordflow">if</span> (ls0[u]==ls1[s]) {
<a name="l00908"></a>00908 l0[u] -= rtemp1 * l1[s];
<a name="l00909"></a>00909 ++ s;
<a name="l00910"></a>00910 }
<a name="l00911"></a>00911 }
<a name="l00912"></a>00912 }
<a name="l00913"></a>00913 }
<a name="l00914"></a>00914
<a name="l00915"></a>00915 <span class="keywordflow">if</span> (t<sze && !cf->sdens)
<a name="l00916"></a>00916 ExtUpdSnode(cf,snde,cf->nsnds-1,f-subg[snde],l-subg[snde],t,iw);
<a name="l00917"></a>00917 }
<a name="l00918"></a>00918
<a name="l00919"></a>00919 <span class="keywordflow">else</span> {
<a name="l00920"></a>00920 stops = sze;
<a name="l00921"></a>00921 <span class="keywordflow">for</span>(t=0; t<sze; ++t, ++offset) {
<a name="l00922"></a>00922 j = ls1[0];
<a name="l00923"></a>00923
<a name="l00924"></a>00924 <span class="keywordflow">if</span> (j>=subg[cf->nsnds-1]) {
<a name="l00925"></a>00925 <span class="keywordflow">if</span> (!cf->sdens)
<a name="l00926"></a>00926 ExtUpdSnode(cf,snde,cf->nsnds-1,f-subg[snde],
<a name="l00927"></a>00927 l-subg[snde],offset,iw);
<a name="l00928"></a>00928 <span class="keywordflow">break</span>;
<a name="l00929"></a>00929 }
<a name="l00930"></a>00930
<a name="l00931"></a>00931 ls0 = usub+ujbeg[j];
<a name="l00932"></a>00932 l0 = uval+uhead[j];
<a name="l00933"></a>00933
<a name="l00934"></a>00934 ++ ls1;
<a name="l00935"></a>00935 -- stops;
<a name="l00936"></a>00936
<a name="l00937"></a>00937 k = f;
<a name="l00938"></a>00938 itemp = offset+f;
<a name="l00939"></a>00939
<a name="l00940"></a>00940 <span class="keywordflow">if</span> (stops && ls1[stops-1]==ls0[stops-1]) {
<a name="l00941"></a>00941 <span class="keywordflow">for</span>(k=f; k<l; ++k)
<a name="l00942"></a>00942 map[k-f] = uhead[k]+itemp-k;
<a name="l00943"></a>00943
<a name="l00944"></a>00944 UpdSnode(1+stops,l-f,1,diag+f,uval,map,diag+j,uval,uhead+j);
<a name="l00945"></a>00945 }
<a name="l00946"></a>00946
<a name="l00947"></a>00947 <span class="keywordflow">else</span> {
<a name="l00948"></a>00948 map[l] = 0;
<a name="l00949"></a>00949 <span class="keywordflow">for</span>(s=0, u=0; s<stops; ++u) {
<a name="l00950"></a>00950 <span class="keywordflow">if</span> (ls1[s]==ls0[u]) {
<a name="l00951"></a>00951 map[1+l+s] = 1+u;
<a name="l00952"></a>00952 ++ s;
<a name="l00953"></a>00953 }
<a name="l00954"></a>00954 }
<a name="l00955"></a>00955
<a name="l00956"></a>00956 <span class="keywordflow">for</span>(k=f; k<l; ++k)
<a name="l00957"></a>00957 map[k-f] = uhead[k]+itemp-k;
<a name="l00958"></a>00958
<a name="l00959"></a>00959 UpdSnodes(1+stops,l-f,1,diag+f,uval,map,diag+j,uval,uhead+j,map+l);
<a name="l00960"></a>00960 }
<a name="l00961"></a>00961 }
<a name="l00962"></a>00962 }
<a name="l00963"></a>00963 } <span class="comment">/* PushFwardard */</span>
<a name="l00964"></a>00964
<a name="l00965"></a>00965 <span class="keyword">static</span> <span class="keywordtype">int</span> FacDenNode(chfac *cf,
<a name="l00966"></a>00966 <span class="keywordtype">int</span> iw[],
<a name="l00967"></a>00967 <span class="keywordtype">double</span> rw[],
<a name="l00968"></a>00968 <span class="keywordtype">int</span> mode)
<a name="l00969"></a>00969 {
<a name="l00970"></a>00970 <span class="keywordtype">int</span> c,d,j,s,t,sncl,k,k0,m,cacsze,sze,offset,
<a name="l00971"></a>00971 *subg=cf->subg,*ujsze=cf->ujsze,
<a name="l00972"></a>00972 *ujbeg=cf->ujbeg,*uhead=cf->uhead,
<a name="l00973"></a>00973 *usub=cf->usub,*dhead=cf->dhead,
<a name="l00974"></a>00974 *dsub=cf->dsub,*dbeg=cf->dbeg,*ls;
<a name="l00975"></a>00975 <span class="keywordtype">double</span> *diag=cf->diag,*uval=cf->uval;
<a name="l00976"></a>00976 <span class="keywordtype">int</span> sresp;
<a name="l00977"></a>00977
<a name="l00978"></a>00978 cacsze = cf->cachesize*cf->cacheunit;
<a name="l00979"></a>00979
<a name="l00980"></a>00980 <span class="keywordflow">if</span> (cf->sdens) {
<a name="l00981"></a>00981 <span class="keywordflow">for</span>(d=0; d<cf->ndens; ++d) {
<a name="l00982"></a>00982 c = 0;
<a name="l00983"></a>00983 <span class="keywordflow">for</span>(k=dhead[d]; k<dhead[d+1]; ++k) {
<a name="l00984"></a>00984 offset = dbeg[k];
<a name="l00985"></a>00985 s = dsub[k];
<a name="l00986"></a>00986 <span class="keywordflow">if</span> (usub[ujbeg[subg[s]]+offset]<subg[cf->nsnds-1]) {
<a name="l00987"></a>00987 printf(<span class="stringliteral">"\nindex error1"</span>);
<a name="l00988"></a>00988 exit(0);
<a name="l00989"></a>00989 }
<a name="l00990"></a>00990
<a name="l00991"></a>00991 <span class="keywordflow">for</span>(j=subg[s]; j<subg[s+1]; ++c, ++j) {
<a name="l00992"></a>00992 rw[c] = diag[j];
<a name="l00993"></a>00993 iw[c] = uhead[j]+offset-(j-subg[s]);
<a name="l00994"></a>00994
<a name="l00995"></a>00995 <span class="keywordflow">if</span> (usub[ujbeg[j]+offset-(j-subg[s])]<subg[cf->nsnds-1]) {
<a name="l00996"></a>00996 printf(<span class="stringliteral">"\nindex error"</span>);
<a name="l00997"></a>00997 exit(0);
<a name="l00998"></a>00998 }
<a name="l00999"></a>00999 }
<a name="l01000"></a>01000 }
<a name="l01001"></a>01001
<a name="l01002"></a>01002 <span class="keywordflow">if</span> (c) {
<a name="l01003"></a>01003 k = dhead[d];
<a name="l01004"></a>01004 s = dsub[k];
<a name="l01005"></a>01005 m = ujsze[subg[s]]-dbeg[k];
<a name="l01006"></a>01006 ls = usub+ujbeg[subg[s]]+dbeg[k];
<a name="l01007"></a>01007 <span class="keywordflow">if</span> (m) {
<a name="l01008"></a>01008 <span class="keywordflow">for</span>(k=0; k<c;) {
<a name="l01009"></a>01009 t = cacsze/(m*<span class="keyword">sizeof</span>(double));
<a name="l01010"></a>01010 t = max(t,1);
<a name="l01011"></a>01011 t = min(c-k,t);
<a name="l01012"></a>01012
<a name="l01013"></a>01013 UpdSnodes(m,t,m,rw+k,uval,iw+k,
<a name="l01014"></a>01014 diag+ls[0],uval,uhead+ls[0],ls);
<a name="l01015"></a>01015 k+=t;
<a name="l01016"></a>01016 }
<a name="l01017"></a>01017 }
<a name="l01018"></a>01018 }
<a name="l01019"></a>01019 }
<a name="l01020"></a>01020 }
<a name="l01021"></a>01021
<a name="l01022"></a>01022 s = cf->nsnds-1;
<a name="l01023"></a>01023
<a name="l01024"></a>01024 sncl = cf->subg[s+1]-cf->subg[s];
<a name="l01025"></a>01025 <span class="keywordflow">for</span>(k=0; k<sncl;) {
<a name="l01026"></a>01026 k0 = k;
<a name="l01027"></a>01027 <span class="keywordflow">for</span>(sze=0; sze<cacsze && k<sncl; ++k)
<a name="l01028"></a>01028 sze += ujsze[subg[s]+k] * <span class="keyword">sizeof</span>(<span class="keywordtype">double</span>);
<a name="l01029"></a>01029
<a name="l01030"></a>01030 <span class="keywordflow">if</span> (k==k0)
<a name="l01031"></a>01031 ++k;
<a name="l01032"></a>01032 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (k>=k0+2 && sze>cacsze)
<a name="l01033"></a>01033 --k;
<a name="l01034"></a>01034
<a name="l01035"></a>01035 <span class="keywordflow">if</span> (k>sncl)
<a name="l01036"></a>01036 exit(0);
<a name="l01037"></a>01037
<a name="l01038"></a>01038 sresp = FacSnode(cf,s,k0,k,iw,mode);
<a name="l01039"></a>01039 <span class="keywordflow">if</span> (sresp!=CfcOk)
<a name="l01040"></a>01040 <span class="keywordflow">return</span> (sresp);
<a name="l01041"></a>01041
<a name="l01042"></a>01042 iUpdSnode(cf,s,k0,k,k,sncl,iw);
<a name="l01043"></a>01043
<a name="l01044"></a>01044 }
<a name="l01045"></a>01045 <span class="keywordflow">return</span> (CfcOk);
<a name="l01046"></a>01046 } <span class="comment">/* FacDenNode */</span>
<a name="l01047"></a>01047
<a name="l01048"></a>01048 <span class="keywordtype">int</span> ChlFact(chfac *cf,
<a name="l01049"></a>01049 <span class="keywordtype">int</span> *iw,
<a name="l01050"></a>01050 <span class="keywordtype">double</span> *rw,
<a name="l01051"></a>01051 <span class="keywordtype">int</span> mode)
<a name="l01052"></a>01052 {
<a name="l01053"></a>01053 <span class="keywordtype">int</span> s,sncl,k,k0,cacsze,sze,
<a name="l01054"></a>01054 *subg=cf->subg,*ujsze=cf->ujsze;
<a name="l01055"></a>01055 <span class="keywordtype">int</span> cid;
<a name="l01056"></a>01056
<a name="l01057"></a>01057 cacsze=cf->cachesize*cf->cacheunit;
<a name="l01058"></a>01058
<a name="l01059"></a>01059 <span class="keywordflow">for</span>(s=0; s+1<cf->nsnds; ++s) {
<a name="l01060"></a>01060 sncl = cf->subg[s+1]-cf->subg[s];
<a name="l01061"></a>01061
<a name="l01062"></a>01062 <span class="keywordflow">for</span>(k=0; k<sncl;) {
<a name="l01063"></a>01063 k0 = k;
<a name="l01064"></a>01064 <span class="keywordflow">for</span>(sze=0; sze<=cacsze && k<sncl; ++k)
<a name="l01065"></a>01065 sze += ujsze[subg[s]+k]*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>);
<a name="l01066"></a>01066
<a name="l01067"></a>01067 <span class="keywordflow">if</span> (k==k0)
<a name="l01068"></a>01068 ++k;
<a name="l01069"></a>01069 <span class="keywordflow">else</span> <span class="keywordflow">if</span> (k>=k0+2 && sze>cacsze)
<a name="l01070"></a>01070 --k;
<a name="l01071"></a>01071
<a name="l01072"></a>01072 <span class="keywordflow">if</span> (k>sncl)
<a name="l01073"></a>01073 exit(0);
<a name="l01074"></a>01074
<a name="l01075"></a>01075 cid=FacSnode(cf,s,k0,k,iw,mode);
<a name="l01076"></a>01076 <span class="keywordflow">if</span> (cid!=CfcOk)
<a name="l01077"></a>01077 <span class="keywordflow">return</span> (cid);
<a name="l01078"></a>01078
<a name="l01079"></a>01079 iUpdSnode(cf,s,k0,k,k,sncl,iw);
<a name="l01080"></a>01080
<a name="l01081"></a>01081 PushFward(cf,s,k0,k,iw);
<a name="l01082"></a>01082 }
<a name="l01083"></a>01083 }
<a name="l01084"></a>01084
<a name="l01085"></a>01085 cid=FacDenNode(cf,iw,rw,mode);
<a name="l01086"></a>01086
<a name="l01087"></a>01087 <span class="keywordflow">for</span> (k=0;k<cf->nrow;k++){
<a name="l01088"></a>01088 cf->sqrtdiag[k]=sqrt(fabs(cf->diag[k]));
<a name="l01089"></a>01089 }
<a name="l01090"></a>01090
<a name="l01091"></a>01091 <span class="keywordflow">return</span> cid;
<a name="l01092"></a>01092 } <span class="comment">/* ChlFact */</span>
</pre></div></div>
</div>
<hr class="footer"/><address class="footer"><small>Generated on Wed Jun 8 2011 for DSDP by 
<a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.7.4 </small></address>
</body>
</html>
