<!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/dufull.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">dufull.c</div> </div> </div> <div class="contents"> <a href="dufull_8c.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="preprocessor">#include "<a class="code" href="dsdpsys_8h.html" title="Error handling, printing, and profiling.">dsdpsys.h</a>"</span> <a name="l00002"></a>00002 <span class="preprocessor">#include "<a class="code" href="dsdpvec_8h.html" title="Vector operations used by the solver.">dsdpvec.h</a>"</span> <a name="l00003"></a>00003 <span class="preprocessor">#include "<a class="code" href="dsdplapack_8h.html" title="DSDP uses BLAS and LAPACK for many of its operations.">dsdplapack.h</a>"</span> <a name="l00004"></a>00004 <span class="preprocessor">#include "<a class="code" href="dsdpdatamat__impl_8h.html" title="Structure of function pointers that each SDP data matrix type (sparse, dense, constant, identity, ...) must implement.">dsdpdatamat_impl.h</a>"</span> <a name="l00005"></a>00005 <a name="l00011"></a>00011 <span class="keyword">typedef</span> <span class="keyword">enum</span> { <a name="l00012"></a>00012 Init=0, <a name="l00013"></a>00013 Assemble=1, <a name="l00014"></a>00014 Factored=2, <span class="comment">/* fail to allocate required space */</span> <a name="l00015"></a>00015 Inverted=3, <span class="comment">/* indefinity is detected */</span> <a name="l00016"></a>00016 ISymmetric=4 <a name="l00017"></a>00017 } MatStatus; <a name="l00018"></a>00018 <a name="l00019"></a>00019 <span class="keyword">typedef</span> <span class="keyword">struct</span>{ <a name="l00020"></a>00020 <span class="keywordtype">char</span> UPLO; <a name="l00021"></a>00021 <span class="keywordtype">int</span> LDA; <a name="l00022"></a>00022 <span class="keywordtype">double</span> *val,*v2; <a name="l00023"></a>00023 <span class="keywordtype">double</span> *sscale; <a name="l00024"></a>00024 <span class="keywordtype">double</span> *workn; <a name="l00025"></a>00025 <span class="keywordtype">int</span> scaleit; <a name="l00026"></a>00026 <span class="keywordtype">int</span> n; <a name="l00027"></a>00027 <span class="keywordtype">int</span> owndata; <a name="l00028"></a>00028 MatStatus status; <a name="l00029"></a>00029 } dtrumat; <a name="l00030"></a>00030 <a name="l00031"></a>00031 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatView(<span class="keywordtype">void</span>*); <a name="l00032"></a>00032 <a name="l00033"></a>00033 <a name="l00034"></a>00034 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00035"></a>00035 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPLAPACKROUTINE"</span> <a name="l00036"></a>00036 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">void</span> dtruscalevec(<span class="keywordtype">double</span> alpha, <span class="keywordtype">double</span> v1[], <span class="keywordtype">double</span> v2[], <span class="keywordtype">double</span> v3[], <span class="keywordtype">int</span> n){ <a name="l00037"></a>00037 <span class="keywordtype">int</span> i; <a name="l00038"></a>00038 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l00039"></a>00039 v3[i] = (alpha*v1[i]*v2[i]); <a name="l00040"></a>00040 } <a name="l00041"></a>00041 <span class="keywordflow">return</span>; <a name="l00042"></a>00042 } <a name="l00043"></a>00043 <a name="l00044"></a>00044 <span class="keyword">static</span> <span class="keywordtype">void</span> dsydadd(<span class="keywordtype">double</span> x[], <span class="keywordtype">double</span> s[], <span class="keywordtype">double</span> y[],<span class="keywordtype">int</span> n){ <a name="l00045"></a>00045 <span class="keywordtype">int</span> i; <a name="l00046"></a>00046 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l00047"></a>00047 y[i] += x[i]*(1/(s[i]*s[i])-2); <a name="l00048"></a>00048 } <a name="l00049"></a>00049 <span class="keywordflow">return</span>; <a name="l00050"></a>00050 } <a name="l00051"></a>00051 <a name="l00052"></a>00052 <a name="l00053"></a>00053 <span class="keyword">static</span> <span class="keywordtype">void</span> dtruscalemat(<span class="keywordtype">double</span> vv[], <span class="keywordtype">double</span> ss[], <span class="keywordtype">int</span> n,<span class="keywordtype">int</span> LDA){ <a name="l00054"></a>00054 <span class="keywordtype">int</span> i; <a name="l00055"></a>00055 <span class="keywordflow">for</span> (i=0;i<n;i++,vv+=LDA){ <a name="l00056"></a>00056 dtruscalevec(ss[i],vv,ss,vv,i+1); <a name="l00057"></a>00057 } <a name="l00058"></a>00058 <span class="keywordflow">return</span>; <a name="l00059"></a>00059 } <a name="l00060"></a>00060 <a name="l00061"></a>00061 <span class="keyword">static</span> <span class="keywordtype">void</span> DTRUMatOwnData(<span class="keywordtype">void</span>* A, <span class="keywordtype">int</span> owndata){ <a name="l00062"></a>00062 dtrumat* AA=(dtrumat*)A; <a name="l00063"></a>00063 AA->owndata=owndata; <a name="l00064"></a>00064 <span class="keywordflow">return</span>; <a name="l00065"></a>00065 } <a name="l00066"></a>00066 <a name="l00067"></a>00067 <span class="keyword">static</span> <span class="keywordtype">int</span> SUMatGetLDA(<span class="keywordtype">int</span> n){ <a name="l00068"></a>00068 <span class="keywordtype">int</span> nlda=n; <a name="l00069"></a>00069 <span class="keywordflow">if</span> (n>8 && nlda%2==1){ nlda++;} <a name="l00070"></a>00070 <span class="keywordflow">if</span> (n>100){ <a name="l00071"></a>00071 <span class="keywordflow">while</span> (nlda%8!=0){ nlda++;} <a name="l00072"></a>00072 } <a name="l00073"></a>00073 <span class="comment">/*</span> <a name="l00074"></a>00074 <span class="comment"> printf("LDA: %d %d %d \n",n,nlda,(int)sizeof(double));</span> <a name="l00075"></a>00075 <span class="comment"> */</span> <a name="l00076"></a>00076 <span class="keywordflow">return</span> (nlda); <a name="l00077"></a>00077 } <a name="l00078"></a>00078 <a name="l00079"></a>00079 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatCreateWData(<span class="keywordtype">int</span> n,<span class="keywordtype">int</span> LDA,<span class="keywordtype">double</span> nz[], <span class="keywordtype">int</span> nnz, dtrumat**M){ <a name="l00080"></a>00080 <span class="keywordtype">int</span> i,info; <a name="l00081"></a>00081 dtrumat*M23; <a name="l00082"></a>00082 <span class="keywordflow">if</span> (nnz<n*n){DSDPSETERR1(2,<span class="stringliteral">"Array must have length of : %d \n"</span>,n*n);} <a name="l00083"></a>00083 DSDPCALLOC1(&M23,dtrumat,&info);DSDPCHKERR(info); <a name="l00084"></a>00084 DSDPCALLOC2(&M23->sscale,<span class="keywordtype">double</span>,n,&info);DSDPCHKERR(info); <a name="l00085"></a>00085 DSDPCALLOC2(&M23->workn,<span class="keywordtype">double</span>,n,&info);DSDPCHKERR(info); <a name="l00086"></a>00086 M23->owndata=0; M23->val=nz; M23->n=n; M23->UPLO=<span class="charliteral">'U'</span>;M23->LDA=n; <a name="l00087"></a>00087 M23->status=Init; <a name="l00088"></a>00088 <span class="keywordflow">for</span> (i=0;i<n;i++)M23->sscale[i]=1.0; <a name="l00089"></a>00089 M23->scaleit=1; <a name="l00090"></a>00090 M23->LDA=LDA; <a name="l00091"></a>00091 if (n<=0){M23->LDA=1;} <a name="l00092"></a>00092 *M=M23; <a name="l00093"></a>00093 <span class="keywordflow">return</span> 0; <a name="l00094"></a>00094 } <a name="l00095"></a>00095 <a name="l00096"></a>00096 <a name="l00097"></a>00097 <a name="l00098"></a>00098 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00099"></a>00099 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPGetEigs"</span> <a name="l00100"></a>00100 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPGetEigs(<span class="keywordtype">double</span> A[],<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> AA[], <span class="keywordtype">int</span> nn0, <span class="keywordtype">long</span> <span class="keywordtype">int</span> IA[], <span class="keywordtype">int</span> nn1, <a name="l00101"></a>00101 <span class="keywordtype">double</span> W[],<span class="keywordtype">int</span> n2, <a name="l00102"></a>00102 <span class="keywordtype">double</span> WORK[],<span class="keywordtype">int</span> nd, <span class="keywordtype">int</span> LLWORK[], <span class="keywordtype">int</span> ni){ <a name="l00103"></a>00103 ffinteger N=n,LDA=n,LDZ=n,LWORK=nd,INFO=0; <a name="l00104"></a>00104 <span class="keywordtype">char</span> UPLO=<span class="charliteral">'U'</span>,JOBZ=<span class="charliteral">'V'</span>,RANGE=<span class="charliteral">'A'</span>; <a name="l00105"></a>00105 <span class="comment">/* Faster, but returns more error codes. ie. INFO>0 sometimes*/</span> <a name="l00106"></a>00106 <a name="l00107"></a>00107 LDA=DSDPMax(1,n); <a name="l00108"></a>00108 LDZ=DSDPMax(1,n); <a name="l00109"></a>00109 <span class="keywordflow">if</span> ( n2/2.5 > n || (ni<10*n+1) || (nd<26*n+1) || (nn0 < n*LDA) || (nn1<LDZ*n) ){ <a name="l00110"></a>00110 <span class="comment">/*</span> <a name="l00111"></a>00111 <span class="comment"> printf("n: %d, ni: %d, nd: %d\n",n,ni/n,nd/n);</span> <a name="l00112"></a>00112 <span class="comment"> printf("SLOW VERSION\n");</span> <a name="l00113"></a>00113 <span class="comment"> */</span> <a name="l00114"></a>00114 dsyev(&JOBZ,&UPLO,&N,A,&LDA,W,WORK,&LWORK,&INFO); <a name="l00115"></a>00115 } <span class="keywordflow">else</span> { <a name="l00116"></a>00116 <a name="l00117"></a>00117 <span class="keywordtype">int</span> i; <a name="l00118"></a>00118 ffinteger M,IL=1,IU=n,*ISUPPZ=(ffinteger*)IA; <a name="l00119"></a>00119 ffinteger *IWORK=(ffinteger*)LLWORK,LIWORK=(ffinteger)ni; <a name="l00120"></a>00120 <span class="keywordtype">double</span> *Z=AA,VL=-1e10,VU=1e10,ABSTOL=0; <a name="l00121"></a>00121 <span class="comment">/* ABSTOL=dlamch_("Safe minimum" ); */</span> <a name="l00122"></a>00122 <span class="keywordflow">if</span> (0==1){ <a name="l00123"></a>00123 dtrumat*M; <a name="l00124"></a>00124 DTRUMatCreateWData(n,n,A,n*n,&M); <a name="l00125"></a>00125 DTRUMatView((<span class="keywordtype">void</span>*)M); <a name="l00126"></a>00126 } <a name="l00127"></a>00127 <span class="comment">/*</span> <a name="l00128"></a>00128 <span class="comment"> printf("N: %d N2: %d , ",n,n2);</span> <a name="l00129"></a>00129 <span class="comment"> */</span> <a name="l00130"></a>00130 <span class="comment">/*</span> <a name="l00131"></a>00131 <span class="comment"> LWORK=26*n; LIWORK=10*n;</span> <a name="l00132"></a>00132 <span class="comment"> */</span> <a name="l00133"></a>00133 <span class="comment">/*</span> <a name="l00134"></a>00134 <span class="comment"> printf("JOBZ: %c, RANGE: %c, UPLO: %c, N: %d LDA: %d \n",</span> <a name="l00135"></a>00135 <span class="comment"> JOBZ,RANGE,UPLO, N,LDA);</span> <a name="l00136"></a>00136 <span class="comment"> printf("VL: %4.4e, VU: %4.4e, IL: %d, IU: %d, ABSTOL: %4.4e, LDZ: %d\n",</span> <a name="l00137"></a>00137 <span class="comment"> VL,VU,IL,IU,ABSTOL,LDZ);</span> <a name="l00138"></a>00138 <span class="comment"> printf("LWORK: %d, LIWORK: %d\n",LWORK,LIWORK);</span> <a name="l00139"></a>00139 <span class="comment"> */</span> <a name="l00140"></a>00140 <a name="l00141"></a>00141 dsyevr(&JOBZ,&RANGE,&UPLO,&N,A,&LDA,&VL,&VU,&IL,&IU,&ABSTOL,&M,W,Z,&LDZ,ISUPPZ,WORK,&LWORK,IWORK,&LIWORK,&INFO); <a name="l00142"></a>00142 <span class="keywordflow">for</span> (i=0;i<N*N;i++){A[i]=Z[i];} <a name="l00143"></a>00143 <a name="l00144"></a>00144 } <a name="l00145"></a>00145 <span class="keywordflow">return</span> INFO; <a name="l00146"></a>00146 } <a name="l00147"></a>00147 <a name="l00148"></a>00148 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00149"></a>00149 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPGetEigsSTEP"</span> <a name="l00150"></a>00150 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPGetEigsSTEP(<span class="keywordtype">double</span> A[],<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> AA[], <span class="keywordtype">int</span> nn0, <span class="keywordtype">long</span> <span class="keywordtype">int</span> IA[], <span class="keywordtype">int</span> nn1, <a name="l00151"></a>00151 <span class="keywordtype">double</span> W[],<span class="keywordtype">int</span> n2, <a name="l00152"></a>00152 <span class="keywordtype">double</span> WORK[],<span class="keywordtype">int</span> nd, <span class="keywordtype">int</span> LLWORK[], <span class="keywordtype">int</span> ni){ <a name="l00153"></a>00153 <span class="keywordtype">int</span> info; <a name="l00154"></a>00154 info=DSDPGetEigs(A,n,AA,nn0,IA,nn1,W,n2,WORK,nd,LLWORK,ni); <a name="l00155"></a>00155 <span class="keywordflow">return</span> info; <a name="l00156"></a>00156 } <a name="l00157"></a>00157 <a name="l00158"></a>00158 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00159"></a>00159 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPGetEigs2"</span> <a name="l00160"></a>00160 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPGetEigs2(<span class="keywordtype">double</span> A[],<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> AA[], <span class="keywordtype">int</span> nn0, <span class="keywordtype">long</span> <span class="keywordtype">int</span> IA[], <span class="keywordtype">int</span> nn1, <a name="l00161"></a>00161 <span class="keywordtype">double</span> W[],<span class="keywordtype">int</span> n2, <a name="l00162"></a>00162 <span class="keywordtype">double</span> WORK[],<span class="keywordtype">int</span> nd, <span class="keywordtype">int</span> LLWORK[], <span class="keywordtype">int</span> ni){ <a name="l00163"></a>00163 ffinteger N=n,LDA=n,LDZ=n,LWORK=nd,INFO=0; <a name="l00164"></a>00164 <span class="keywordtype">char</span> UPLO=<span class="charliteral">'U'</span>,JOBZ=<span class="charliteral">'V'</span>; <a name="l00165"></a>00165 <span class="comment">/* Works and uses less memory, but slower by a factor of about 2 or 3 */</span> <a name="l00166"></a>00166 LDA=DSDPMax(1,n); <a name="l00167"></a>00167 LDZ=DSDPMax(1,n); <a name="l00168"></a>00168 <span class="keywordflow">if</span> (0==1){ <a name="l00169"></a>00169 dtrumat*M; <a name="l00170"></a>00170 DTRUMatCreateWData(n,n,A,n*n,&M); <a name="l00171"></a>00171 DTRUMatView((<span class="keywordtype">void</span>*)M); <a name="l00172"></a>00172 } <a name="l00173"></a>00173 dsyev(&JOBZ,&UPLO,&N,A,&LDA,W,WORK,&LWORK,&INFO); <a name="l00174"></a>00174 <span class="keywordflow">return</span> INFO; <a name="l00175"></a>00175 } <a name="l00176"></a>00176 <a name="l00177"></a>00177 <a name="l00178"></a>00178 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00179"></a>00179 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDP FULL SYMMETRIC U LAPACK ROUTINE"</span> <a name="l00180"></a>00180 <span class="preprocessor"></span> <a name="l00181"></a>00181 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatMult(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> x[], <span class="keywordtype">double</span> y[], <span class="keywordtype">int</span> n){ <a name="l00182"></a>00182 dtrumat* A=(dtrumat*) AA; <a name="l00183"></a>00183 ffinteger N=n,LDA=A->LDA,INCX=1,INCY=1; <a name="l00184"></a>00184 <span class="keywordtype">double</span> BETA=0.0,ALPHA=1.0; <a name="l00185"></a>00185 <span class="keywordtype">double</span> *AP=A->val,*Y=y,*X=x; <a name="l00186"></a>00186 <span class="keywordtype">char</span> UPLO=A->UPLO,TRANS=<span class="charliteral">'N'</span>; <a name="l00187"></a>00187 <a name="l00188"></a>00188 <span class="keywordflow">if</span> (A->n != n) <span class="keywordflow">return</span> 1; <a name="l00189"></a>00189 <span class="keywordflow">if</span> (x==0 && n>0) <span class="keywordflow">return</span> 3; <a name="l00190"></a>00190 <span class="keywordflow">if</span> (0==1){ <a name="l00191"></a>00191 dgemv(&TRANS,&N,&N,&ALPHA,AP,&LDA,X,&INCX,&BETA,Y,&INCY); <a name="l00192"></a>00192 } <span class="keywordflow">else</span> { <a name="l00193"></a>00193 dsymv(&UPLO,&N,&ALPHA,AP,&LDA,X,&INCX,&BETA,Y,&INCY); <a name="l00194"></a>00194 } <a name="l00195"></a>00195 <span class="keywordflow">return</span> 0; <a name="l00196"></a>00196 } <a name="l00197"></a>00197 <a name="l00198"></a>00198 <a name="l00199"></a>00199 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatMultR(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> x[], <span class="keywordtype">double</span> y[], <span class="keywordtype">int</span> n){ <a name="l00200"></a>00200 dtrumat* A=(dtrumat*) AA; <a name="l00201"></a>00201 ffinteger N=n,LDA=A->LDA,INCX=1,INCY=1; <a name="l00202"></a>00202 <span class="keywordtype">double</span> ALPHA=1.0; <a name="l00203"></a>00203 <span class="keywordtype">double</span> *AP=A->val,*Y=y,*X=x,*ss=A->sscale,*W=A->workn; <a name="l00204"></a>00204 <span class="keywordtype">char</span> UPLO=A->UPLO,TRANS=<span class="charliteral">'N'</span>,DIAG=<span class="charliteral">'U'</span>; <a name="l00205"></a>00205 <a name="l00206"></a>00206 UPLO=<span class="charliteral">'L'</span>; <a name="l00207"></a>00207 <span class="keywordflow">if</span> (A->n != n) <span class="keywordflow">return</span> 1; <a name="l00208"></a>00208 <span class="keywordflow">if</span> (x==0 && n>0) <span class="keywordflow">return</span> 3; <a name="l00209"></a>00209 <span class="comment">/* dsymv(&UPLO,&N,&ALPHA,AP,&LDA,X,&INCX,&BETA,Y,&INCY); */</span> <a name="l00210"></a>00210 <a name="l00211"></a>00211 memset(y,0,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00212"></a>00212 <a name="l00213"></a>00213 memcpy(W,X,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00214"></a>00214 TRANS=<span class="charliteral">'N'</span>; UPLO=<span class="charliteral">'L'</span>; <a name="l00215"></a>00215 dtrmv(&UPLO,&TRANS,&DIAG,&N,AP,&LDA,W,&INCY); <a name="l00216"></a>00216 daxpy(&N,&ALPHA,W,&INCX,Y,&INCY); <a name="l00217"></a>00217 <a name="l00218"></a>00218 memcpy(W,X,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00219"></a>00219 TRANS=<span class="charliteral">'T'</span>; UPLO=<span class="charliteral">'L'</span>; <a name="l00220"></a>00220 dtrmv(&UPLO,&TRANS,&DIAG,&N,AP,&LDA,W,&INCY); <a name="l00221"></a>00221 daxpy(&N,&ALPHA,W,&INCX,Y,&INCY); <a name="l00222"></a>00222 <a name="l00223"></a>00223 dsydadd(x,ss,y,n); <a name="l00224"></a>00224 <span class="keywordflow">return</span> 0; <a name="l00225"></a>00225 } <a name="l00226"></a>00226 <a name="l00227"></a>00227 <a name="l00228"></a>00228 <span class="keyword">static</span> <span class="keywordtype">void</span> DTRUMatScale(<span class="keywordtype">void</span>*AA){ <a name="l00229"></a>00229 dtrumat* A=(dtrumat*) AA; <a name="l00230"></a>00230 <span class="keywordtype">int</span> i,N=A->n,LDA=A->LDA; <a name="l00231"></a>00231 <span class="keywordtype">double</span> *ss=A->sscale,*v=A->val; <a name="l00232"></a>00232 <span class="keywordflow">for</span> (i=0;i<N;i++){ ss[i]=*v;v+=(LDA+1);} <a name="l00233"></a>00233 <span class="keywordflow">for</span> (i=0;i<N;i++){ <span class="keywordflow">if</span> (ss[i]!=0.0){ss[i]=1.0/sqrt(fabs(ss[i]));} <span class="keywordflow">else</span> {ss[i]=1.0; }} <a name="l00234"></a>00234 dtruscalemat(A->val,ss,N,LDA); <a name="l00235"></a>00235 } <a name="l00236"></a>00236 <a name="l00237"></a>00237 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatCholeskyFactor(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> *flag){ <a name="l00238"></a>00238 dtrumat* A=(dtrumat*) AA; <a name="l00239"></a>00239 ffinteger INFO,LDA=A->LDA,N=A->n; <a name="l00240"></a>00240 <span class="keywordtype">double</span> *AP=A->val; <a name="l00241"></a>00241 <span class="keywordtype">char</span> UPLO=A->UPLO; <a name="l00242"></a>00242 <a name="l00243"></a>00243 <span class="keywordflow">if</span> (A->scaleit){ DTRUMatScale(AA);} <a name="l00244"></a>00244 dpotrf(&UPLO, &N, AP, &LDA, &INFO ); <a name="l00245"></a>00245 *flag=INFO; <a name="l00246"></a>00246 A->status=Factored; <a name="l00247"></a>00247 <span class="keywordflow">return</span> 0; <a name="l00248"></a>00248 } <a name="l00249"></a>00249 <a name="l00250"></a>00250 <a name="l00251"></a>00251 <span class="keywordtype">int</span> dtrsm2(<span class="keywordtype">char</span>*,<span class="keywordtype">char</span>*,<span class="keywordtype">char</span>*,<span class="keywordtype">char</span>*,ffinteger*,ffinteger*,<span class="keywordtype">double</span>*,<span class="keywordtype">double</span>*,ffinteger*,<span class="keywordtype">double</span>*,ffinteger*); <a name="l00252"></a>00252 <a name="l00253"></a>00253 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatSolve(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> b[], <span class="keywordtype">double</span> x[],<span class="keywordtype">int</span> n){ <a name="l00254"></a>00254 dtrumat* A=(dtrumat*) AA; <a name="l00255"></a>00255 ffinteger ierr,INFO=0,NRHS=1,LDA=A->LDA,LDB=A->LDA,N=A->n; <a name="l00256"></a>00256 <span class="keywordtype">double</span> *AP=A->val,*ss=A->sscale,ONE=1.0; <a name="l00257"></a>00257 <span class="keywordtype">char</span> SIDE=<span class="charliteral">'L'</span>,UPLO=A->UPLO,TRANSA=<span class="charliteral">'N'</span>,DIAG=<span class="charliteral">'N'</span>; <a name="l00258"></a>00258 <a name="l00259"></a>00259 dtruscalevec(1.0,ss,b,x,n); <a name="l00260"></a>00260 <a name="l00261"></a>00261 <span class="keywordflow">if</span> (0==1){ <a name="l00262"></a>00262 dpotrs(&UPLO, &N, &NRHS, AP, &LDA, x, &LDB, &INFO ); <a name="l00263"></a>00263 } <span class="keywordflow">else</span> { <a name="l00264"></a>00264 TRANSA=<span class="charliteral">'T'</span>; <a name="l00265"></a>00265 ierr=dtrsm2(&SIDE,&UPLO,&TRANSA,&DIAG,&N, &NRHS, &ONE, AP, &LDA, x, &LDB ); <a name="l00266"></a>00266 TRANSA=<span class="charliteral">'N'</span>; <a name="l00267"></a>00267 ierr=dtrsm2(&SIDE,&UPLO,&TRANSA,&DIAG,&N, &NRHS, &ONE, AP, &LDA, x, &LDB ); <a name="l00268"></a>00268 } <a name="l00269"></a>00269 <a name="l00270"></a>00270 dtruscalevec(1.0,ss,x,x,n); <a name="l00271"></a>00271 <span class="keywordflow">return</span> INFO; <a name="l00272"></a>00272 } <a name="l00273"></a>00273 <a name="l00274"></a>00274 <a name="l00275"></a>00275 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatShiftDiagonal(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> shift){ <a name="l00276"></a>00276 dtrumat* A=(dtrumat*) AA; <a name="l00277"></a>00277 <span class="keywordtype">int</span> i,n=A->n, LDA=A->LDA; <a name="l00278"></a>00278 <span class="keywordtype">double</span> *v=A->val; <a name="l00279"></a>00279 <span class="keywordflow">for</span> (i=0; i<n; i++){ <a name="l00280"></a>00280 v[i*LDA+i]+=shift; <a name="l00281"></a>00281 } <a name="l00282"></a>00282 <span class="keywordflow">return</span> 0; <a name="l00283"></a>00283 } <a name="l00284"></a>00284 <a name="l00285"></a>00285 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatAddRow(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> nrow, <span class="keywordtype">double</span> dd, <span class="keywordtype">double</span> row[], <span class="keywordtype">int</span> n){ <a name="l00286"></a>00286 dtrumat* A=(dtrumat*) AA; <a name="l00287"></a>00287 ffinteger ione=1,LDA=A->LDA,nn,INCX=1,INCY=A->LDA; <a name="l00288"></a>00288 <span class="keywordtype">double</span> *vv=A->val; <a name="l00289"></a>00289 <a name="l00290"></a>00290 nn=nrow; <a name="l00291"></a>00291 daxpy(&nn,&dd,row,&INCX,vv+nrow,&INCY); <a name="l00292"></a>00292 nn=nrow+1; <a name="l00293"></a>00293 daxpy(&nn,&dd,row,&ione,vv+nrow*LDA,&ione); <a name="l00294"></a>00294 <a name="l00295"></a>00295 <span class="keywordflow">return</span> 0; <a name="l00296"></a>00296 } <a name="l00297"></a>00297 <a name="l00298"></a>00298 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatZero(<span class="keywordtype">void</span>* AA){ <a name="l00299"></a>00299 dtrumat* A=(dtrumat*) AA; <a name="l00300"></a>00300 <span class="keywordtype">int</span> mn=A->n*(A->LDA); <a name="l00301"></a>00301 <span class="keywordtype">double</span> *vv=A->val; <a name="l00302"></a>00302 memset((<span class="keywordtype">void</span>*)vv,0,mn*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00303"></a>00303 A->status=Assemble; <a name="l00304"></a>00304 <span class="keywordflow">return</span> 0; <a name="l00305"></a>00305 } <a name="l00306"></a>00306 <a name="l00307"></a>00307 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatGetSize(<span class="keywordtype">void</span> *AA, <span class="keywordtype">int</span> *n){ <a name="l00308"></a>00308 dtrumat* A=(dtrumat*) AA; <a name="l00309"></a>00309 *n=A->n; <a name="l00310"></a>00310 <span class="keywordflow">return</span> 0; <a name="l00311"></a>00311 } <a name="l00312"></a>00312 <a name="l00313"></a>00313 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatDestroy(<span class="keywordtype">void</span>* AA){ <a name="l00314"></a>00314 <span class="keywordtype">int</span> info; <a name="l00315"></a>00315 dtrumat* A=(dtrumat*) AA; <a name="l00316"></a>00316 <span class="keywordflow">if</span> (A && A->owndata){DSDPFREE(&A->val,&info);DSDPCHKERR(info);} <a name="l00317"></a>00317 <span class="keywordflow">if</span> (A && A->sscale) {DSDPFREE(&A->sscale,&info);DSDPCHKERR(info);} <a name="l00318"></a>00318 <span class="keywordflow">if</span> (A && A->workn) {DSDPFREE(&A->workn,&info);DSDPCHKERR(info);} <a name="l00319"></a>00319 <span class="keywordflow">if</span> (A) {DSDPFREE(&A,&info);DSDPCHKERR(info);} <a name="l00320"></a>00320 <span class="keywordflow">return</span> 0; <a name="l00321"></a>00321 } <a name="l00322"></a>00322 <a name="l00323"></a>00323 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatView(<span class="keywordtype">void</span>* AA){ <a name="l00324"></a>00324 dtrumat* M=(dtrumat*) AA; <a name="l00325"></a>00325 <span class="keywordtype">int</span> i,j; <a name="l00326"></a>00326 <span class="keywordtype">double</span> *val=M->val; <a name="l00327"></a>00327 ffinteger LDA=M->LDA; <a name="l00328"></a>00328 <span class="keywordflow">for</span> (i=0; i<M->n; i++){ <a name="l00329"></a>00329 <span class="keywordflow">for</span> (j=0; j<=i; j++){ <a name="l00330"></a>00330 printf(<span class="stringliteral">" %9.2e"</span>,val[i*LDA+j]); <a name="l00331"></a>00331 } <a name="l00332"></a>00332 <span class="keywordflow">for</span> (j=i+1; j<M->LDA; j++){ <a name="l00333"></a>00333 printf(<span class="stringliteral">" %9.1e"</span>,val[i*LDA+j]); <a name="l00334"></a>00334 } <a name="l00335"></a>00335 printf(<span class="stringliteral">"\n"</span>); <a name="l00336"></a>00336 } <a name="l00337"></a>00337 <span class="keywordflow">return</span> 0; <a name="l00338"></a>00338 } <a name="l00339"></a>00339 <a name="l00340"></a>00340 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatView2(<span class="keywordtype">void</span>* AA){ <a name="l00341"></a>00341 dtrumat* M=(dtrumat*) AA; <a name="l00342"></a>00342 <span class="keywordtype">int</span> i,j; <a name="l00343"></a>00343 <span class="keywordtype">double</span> *val=M->v2; <a name="l00344"></a>00344 ffinteger LDA=M->LDA; <a name="l00345"></a>00345 <span class="keywordflow">for</span> (i=0; i<M->n; i++){ <a name="l00346"></a>00346 <span class="keywordflow">for</span> (j=0; j<=i; j++){ <a name="l00347"></a>00347 printf(<span class="stringliteral">" %9.2e"</span>,val[i*LDA+j]); <a name="l00348"></a>00348 } <a name="l00349"></a>00349 <span class="keywordflow">for</span> (j=i+1; j<M->LDA; j++){ <a name="l00350"></a>00350 printf(<span class="stringliteral">" %9.2e"</span>,val[i*LDA+j]); <a name="l00351"></a>00351 } <a name="l00352"></a>00352 printf(<span class="stringliteral">"\n"</span>); <a name="l00353"></a>00353 } <a name="l00354"></a>00354 <span class="keywordflow">return</span> 0; <a name="l00355"></a>00355 } <a name="l00356"></a>00356 <a name="l00357"></a>00357 <a name="l00358"></a>00358 <span class="preprocessor">#include "<a class="code" href="dsdpschurmat__impl_8h.html" title="Function pointers that a Schur complement matrix (dense, sparse, parallel dense) must provide...">dsdpschurmat_impl.h</a>"</span> <a name="l00359"></a>00359 <span class="preprocessor">#include "<a class="code" href="dsdpdualmat__impl_8h.html" title="Structure of function pointers that each symmetric positive definite matrix type (dense, sparse) must implement.">dsdpdualmat_impl.h</a>"</span> <a name="l00360"></a>00360 <span class="preprocessor">#include "<a class="code" href="dsdpdatamat__impl_8h.html" title="Structure of function pointers that each SDP data matrix type (sparse, dense, constant, identity, ...) must implement.">dsdpdatamat_impl.h</a>"</span> <a name="l00361"></a>00361 <span class="preprocessor">#include "<a class="code" href="dsdpxmat__impl_8h.html" title="Structure of function pointers that each dense matrix array type (upper full, packed symmetric...">dsdpxmat_impl.h</a>"</span> <a name="l00362"></a>00362 <span class="preprocessor">#include "<a class="code" href="dsdpdsmat__impl_8h.html" title="Structure of function pointers that each SDP Delta S matrix type (sparse, dense, diagonal, ...) must implement.">dsdpdsmat_impl.h</a>"</span> <a name="l00363"></a>00363 <span class="preprocessor">#include "<a class="code" href="dsdpsys_8h.html" title="Error handling, printing, and profiling.">dsdpsys.h</a>"</span> <a name="l00364"></a>00364 <a name="l00365"></a>00365 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00366"></a>00366 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "Tassemble"</span> <a name="l00367"></a>00367 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatAssemble(<span class="keywordtype">void</span>*M){ <a name="l00368"></a>00368 <span class="keywordtype">int</span> info; <a name="l00369"></a>00369 <span class="keywordtype">double</span> shift=1.0e-15; <a name="l00370"></a>00370 DSDPFunctionBegin; <a name="l00371"></a>00371 info= DTRUMatShiftDiagonal(M, shift); DSDPCHKERR(info); <a name="l00372"></a>00372 DSDPFunctionReturn(0); <a name="l00373"></a>00373 } <a name="l00374"></a>00374 <a name="l00375"></a>00375 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatRowNonzeros(<span class="keywordtype">void</span>*M, <span class="keywordtype">int</span> row, <span class="keywordtype">double</span> cols[], <span class="keywordtype">int</span> *ncols,<span class="keywordtype">int</span> nrows){ <a name="l00376"></a>00376 <span class="keywordtype">int</span> i; <a name="l00377"></a>00377 DSDPFunctionBegin; <a name="l00378"></a>00378 *ncols = row+1; <a name="l00379"></a>00379 <span class="keywordflow">for</span> (i=0;i<=row;i++){ <a name="l00380"></a>00380 cols[i]=1.0; <a name="l00381"></a>00381 } <a name="l00382"></a>00382 memset((<span class="keywordtype">void</span>*)(cols+row+1),0,(nrows-row-1)*<span class="keyword">sizeof</span>(<span class="keywordtype">int</span>)); <a name="l00383"></a>00383 DSDPFunctionReturn(0); <a name="l00384"></a>00384 } <a name="l00385"></a>00385 <a name="l00386"></a>00386 <a name="l00387"></a>00387 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00388"></a>00388 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "TAddDiag"</span> <a name="l00389"></a>00389 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatAddDiag(<span class="keywordtype">void</span>*M, <span class="keywordtype">int</span> row, <span class="keywordtype">double</span> dd){ <a name="l00390"></a>00390 <span class="keywordtype">int</span> ii; <a name="l00391"></a>00391 dtrumat* ABA=(dtrumat*)M; <a name="l00392"></a>00392 ffinteger LDA=ABA->LDA; <a name="l00393"></a>00393 DSDPFunctionBegin; <a name="l00394"></a>00394 ii=row*LDA+row; <a name="l00395"></a>00395 ABA->val[ii] +=dd; <a name="l00396"></a>00396 DSDPFunctionReturn(0); <a name="l00397"></a>00397 } <a name="l00398"></a>00398 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00399"></a>00399 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "TAddDiag2"</span> <a name="l00400"></a>00400 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatAddDiag2(<span class="keywordtype">void</span>*M, <span class="keywordtype">double</span> diag[], <span class="keywordtype">int</span> m){ <a name="l00401"></a>00401 <span class="keywordtype">int</span> row,ii; <a name="l00402"></a>00402 dtrumat* ABA=(dtrumat*)M; <a name="l00403"></a>00403 ffinteger LDA=ABA->LDA; <a name="l00404"></a>00404 DSDPFunctionBegin; <a name="l00405"></a>00405 <span class="keywordflow">for</span> (row=0;row<m;row++){ <a name="l00406"></a>00406 ii=row*LDA+row; <a name="l00407"></a>00407 ABA->val[ii] +=diag[row]; <a name="l00408"></a>00408 } <a name="l00409"></a>00409 DSDPFunctionReturn(0); <a name="l00410"></a>00410 } <a name="l00411"></a>00411 <span class="keyword">static</span> <span class="keyword">struct </span>DSDPSchurMat_Ops dsdpmmatops; <a name="l00412"></a>00412 <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span>* lapackname=<span class="stringliteral">"DENSE,SYMMETRIC U STORAGE"</span>; <a name="l00413"></a>00413 <a name="l00414"></a>00414 <span class="keyword">static</span> <span class="keywordtype">int</span> DSDPInitSchurOps(<span class="keyword">struct</span> DSDPSchurMat_Ops* mops){ <a name="l00415"></a>00415 <span class="keywordtype">int</span> info; <a name="l00416"></a>00416 DSDPFunctionBegin; <a name="l00417"></a>00417 info=<a class="code" href="dsdpschurmat_8c.html#adb7cfe252525b4f617fc276f2c665f6b" title="Initialize function pointers to 0.">DSDPSchurMatOpsInitialize</a>(mops);DSDPCHKERR(info); <a name="l00418"></a>00418 mops->matrownonzeros=DTRUMatRowNonzeros; <a name="l00419"></a>00419 mops->matscaledmultiply=DTRUMatMult; <a name="l00420"></a>00420 mops->matmultr=DTRUMatMultR; <a name="l00421"></a>00421 mops->mataddrow=DTRUMatAddRow; <a name="l00422"></a>00422 mops->mataddelement=DTRUMatAddDiag; <a name="l00423"></a>00423 mops->matadddiagonal=DTRUMatAddDiag2; <a name="l00424"></a>00424 mops->matshiftdiagonal=DTRUMatShiftDiagonal; <a name="l00425"></a>00425 mops->matassemble=DTRUMatAssemble; <a name="l00426"></a>00426 mops->matfactor=DTRUMatCholeskyFactor; <a name="l00427"></a>00427 mops->matsolve=DTRUMatSolve; <a name="l00428"></a>00428 mops->matdestroy=DTRUMatDestroy; <a name="l00429"></a>00429 mops->matzero=DTRUMatZero; <a name="l00430"></a>00430 mops->matview=DTRUMatView; <a name="l00431"></a>00431 mops->id=1; <a name="l00432"></a>00432 mops->matname=lapackname; <a name="l00433"></a>00433 DSDPFunctionReturn(0); <a name="l00434"></a>00434 } <a name="l00435"></a>00435 <a name="l00436"></a>00436 <a name="l00437"></a>00437 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00438"></a>00438 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPGetLAPACKSUSchurOps"</span> <a name="l00439"></a>00439 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPGetLAPACKSUSchurOps(<span class="keywordtype">int</span> n,<span class="keyword">struct</span> DSDPSchurMat_Ops** sops, <span class="keywordtype">void</span>** mdata){ <a name="l00440"></a>00440 <span class="keywordtype">int</span> info,nn,LDA; <a name="l00441"></a>00441 <span class="keywordtype">double</span> *vv; <a name="l00442"></a>00442 dtrumat *AA; <a name="l00443"></a>00443 DSDPFunctionBegin; <a name="l00444"></a>00444 <a name="l00445"></a>00445 LDA=SUMatGetLDA(n); <a name="l00446"></a>00446 nn=n*LDA; <a name="l00447"></a>00447 DSDPCALLOC2(&vv,<span class="keywordtype">double</span>,nn,&info);DSDPCHKERR(info); <a name="l00448"></a>00448 info=DTRUMatCreateWData(n,LDA,vv,nn,&AA); DSDPCHKERR(info); <a name="l00449"></a>00449 AA->owndata=1; <a name="l00450"></a>00450 info=DSDPInitSchurOps(&dsdpmmatops); DSDPCHKERR(info); <a name="l00451"></a>00451 *sops=&dsdpmmatops; <a name="l00452"></a>00452 *mdata=(<span class="keywordtype">void</span>*)AA; <a name="l00453"></a>00453 DSDPFunctionReturn(0); <a name="l00454"></a>00454 } <a name="l00455"></a>00455 <a name="l00456"></a>00456 <a name="l00457"></a>00457 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatCholeskyBackward(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> b[], <span class="keywordtype">double</span> x[], <span class="keywordtype">int</span> n){ <a name="l00458"></a>00458 dtrumat* M=(dtrumat*) AA; <a name="l00459"></a>00459 ffinteger N=M->n,INCX=1,LDA=M->LDA; <a name="l00460"></a>00460 <span class="keywordtype">double</span> *AP=M->val,*ss=M->sscale; <a name="l00461"></a>00461 <span class="keywordtype">char</span> UPLO=M->UPLO,TRANS=<span class="charliteral">'N'</span>,DIAG=<span class="charliteral">'N'</span>; <a name="l00462"></a>00462 memcpy(x,b,N*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00463"></a>00463 dtrsv(&UPLO,&TRANS,&DIAG, &N, AP, &LDA, x, &INCX ); <a name="l00464"></a>00464 dtruscalevec(1.0,ss,x,x,n); <a name="l00465"></a>00465 <span class="keywordflow">return</span> 0; <a name="l00466"></a>00466 } <a name="l00467"></a>00467 <a name="l00468"></a>00468 <a name="l00469"></a>00469 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatCholeskyForward(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> b[], <span class="keywordtype">double</span> x[], <span class="keywordtype">int</span> n){ <a name="l00470"></a>00470 dtrumat* M=(dtrumat*) AA; <a name="l00471"></a>00471 ffinteger N=M->n,INCX=1,LDA=M->LDA; <a name="l00472"></a>00472 <span class="keywordtype">double</span> *AP=M->val,*ss=M->sscale; <a name="l00473"></a>00473 <span class="keywordtype">char</span> UPLO=M->UPLO,TRANS=<span class="charliteral">'T'</span>,DIAG=<span class="charliteral">'N'</span>; <a name="l00474"></a>00474 dtruscalevec(1.0,ss,b,x,n); <a name="l00475"></a>00475 dtrsv(&UPLO,&TRANS,&DIAG, &N, AP, &LDA, x, &INCX ); <a name="l00476"></a>00476 <span class="keywordflow">return</span> 0; <a name="l00477"></a>00477 } <a name="l00478"></a>00478 <a name="l00479"></a>00479 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatLogDet(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> *dd){ <a name="l00480"></a>00480 dtrumat* A=(dtrumat*) AA; <a name="l00481"></a>00481 <span class="keywordtype">int</span> i,n=A->n,LDA=A->LDA; <a name="l00482"></a>00482 <span class="keywordtype">double</span> d=0,*v=A->val,*ss=A->sscale; <a name="l00483"></a>00483 <span class="keywordflow">for</span> (i=0; i<n; i++){ <a name="l00484"></a>00484 <span class="keywordflow">if</span> (*v<=0) <span class="keywordflow">return</span> 1; <a name="l00485"></a>00485 d+=2*log(*v/ss[i]); <a name="l00486"></a>00486 v+=LDA+1; <a name="l00487"></a>00487 } <a name="l00488"></a>00488 *dd=d; <a name="l00489"></a>00489 <span class="keywordflow">return</span> 0; <a name="l00490"></a>00490 } <a name="l00491"></a>00491 <a name="l00492"></a>00492 <a name="l00493"></a>00493 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatCholeskyForwardMultiply(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> x[], <span class="keywordtype">double</span> y[], <span class="keywordtype">int</span> n){ <a name="l00494"></a>00494 dtrumat* A=(dtrumat*) AA; <a name="l00495"></a>00495 ffinteger i,j,N=A->n,LDA=A->LDA; <a name="l00496"></a>00496 <span class="keywordtype">double</span> *AP=A->val,*ss=A->sscale; <a name="l00497"></a>00497 <span class="comment">/* char UPLO=A->UPLO,TRANS='N',DIAG='N'; */</span> <a name="l00498"></a>00498 <a name="l00499"></a>00499 <span class="keywordflow">if</span> (x==0 && N>0) <span class="keywordflow">return</span> 3; <a name="l00500"></a>00500 <span class="comment">/*</span> <a name="l00501"></a>00501 <span class="comment"> memcpy(y,x,N*sizeof(double));</span> <a name="l00502"></a>00502 <span class="comment"> dtrmv(&UPLO,&TRANS,&DIAG,&N,AP,&LDA,Y,&INCY);</span> <a name="l00503"></a>00503 <span class="comment"> */</span> <a name="l00504"></a>00504 <span class="keywordflow">for</span> (i=0;i<N;i++)y[i]=0; <a name="l00505"></a>00505 <span class="keywordflow">for</span> (i=0;i<N;i++){ <a name="l00506"></a>00506 <span class="keywordflow">for</span> (j=0;j<=i;j++){ <a name="l00507"></a>00507 y[i]+=AP[j]*x[j]; <a name="l00508"></a>00508 } <a name="l00509"></a>00509 AP=AP+LDA; <a name="l00510"></a>00510 } <a name="l00511"></a>00511 <a name="l00512"></a>00512 <span class="keywordflow">for</span> (i=0;i<N;i++){ y[i]=y[i]/ss[i];} <a name="l00513"></a>00513 <span class="keywordflow">return</span> 0; <a name="l00514"></a>00514 } <a name="l00515"></a>00515 <a name="l00516"></a>00516 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatCholeskyBackwardMultiply(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> x[], <span class="keywordtype">double</span> y[], <span class="keywordtype">int</span> n){ <a name="l00517"></a>00517 dtrumat* A=(dtrumat*) AA; <a name="l00518"></a>00518 ffinteger i,j,N=A->n,LDA=A->LDA; <a name="l00519"></a>00519 <span class="keywordtype">double</span> *AP=A->val,*ss=A->sscale; <a name="l00520"></a>00520 <span class="comment">/* char UPLO=A->UPLO,TRANS='N',DIAG='N'; */</span> <a name="l00521"></a>00521 <a name="l00522"></a>00522 <span class="keywordflow">if</span> (x==0 && N>0) <span class="keywordflow">return</span> 3; <a name="l00523"></a>00523 <span class="comment">/*</span> <a name="l00524"></a>00524 <span class="comment"> memcpy(y,x,N*sizeof(double));</span> <a name="l00525"></a>00525 <span class="comment"> dtrmv(&UPLO,&TRANS,&DIAG,&N,AP,&LDA,Y,&INCY);</span> <a name="l00526"></a>00526 <span class="comment"> */</span> <a name="l00527"></a>00527 <span class="keywordflow">for</span> (i=0;i<N;i++)y[i]=0; <a name="l00528"></a>00528 <span class="keywordflow">for</span> (i=0;i<N;i++){ <a name="l00529"></a>00529 <span class="keywordflow">for</span> (j=0;j<=i;j++){ <a name="l00530"></a>00530 y[j]+=AP[j]*x[i]/ss[i]; <a name="l00531"></a>00531 } <a name="l00532"></a>00532 AP=AP+LDA; <a name="l00533"></a>00533 } <a name="l00534"></a>00534 <a name="l00535"></a>00535 <span class="keywordflow">for</span> (i=0;i<-N;i++){ y[i]=y[i]/ss[i];} <a name="l00536"></a>00536 <span class="keywordflow">return</span> 0; <a name="l00537"></a>00537 } <a name="l00538"></a>00538 <a name="l00539"></a>00539 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatInvert(<span class="keywordtype">void</span>* AA){ <a name="l00540"></a>00540 dtrumat* A=(dtrumat*) AA; <a name="l00541"></a>00541 ffinteger INFO,LDA=A->LDA,N=A->n,nn=LDA*N; <a name="l00542"></a>00542 <span class="keywordtype">double</span> *v=A->val,*AP=A->v2,*ss=A->sscale; <a name="l00543"></a>00543 <span class="keywordtype">char</span> UPLO=A->UPLO; <a name="l00544"></a>00544 memcpy((<span class="keywordtype">void</span>*)AP,(<span class="keywordtype">void</span>*)v,nn*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00545"></a>00545 dpotri(&UPLO, &N, AP, &LDA, &INFO ); <a name="l00546"></a>00546 <span class="keywordflow">if</span> (INFO){ <a name="l00547"></a>00547 INFO=DTRUMatShiftDiagonal(AA,1e-11); INFO=0; <a name="l00548"></a>00548 memcpy((<span class="keywordtype">void</span>*)AP,(<span class="keywordtype">void</span>*)v,nn*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00549"></a>00549 dpotri(&UPLO, &N, AP, &LDA, &INFO ); <a name="l00550"></a>00550 } <a name="l00551"></a>00551 <span class="keywordflow">if</span> (A->scaleit){ <a name="l00552"></a>00552 dtruscalemat(AP,ss,N,LDA); <a name="l00553"></a>00553 } <a name="l00554"></a>00554 A->status=Inverted; <a name="l00555"></a>00555 <span class="keywordflow">return</span> INFO; <a name="l00556"></a>00556 <a name="l00557"></a>00557 } <a name="l00558"></a>00558 <a name="l00559"></a>00559 <span class="keyword">static</span> <span class="keywordtype">void</span> DTRUSymmetrize(dtrumat* A){ <a name="l00560"></a>00560 <span class="keywordtype">int</span> i,j,n=A->n,row,LDA=A->LDA; <a name="l00561"></a>00561 <span class="keywordtype">double</span> *v2=A->v2,*r1=A->v2,*r2=A->v2+LDA,*c1; <a name="l00562"></a>00562 <span class="keywordflow">for</span> (i=0;i<n/2;i++){ <a name="l00563"></a>00563 row=2*i; <a name="l00564"></a>00564 r1=v2+LDA*(row); <a name="l00565"></a>00565 r2=v2+LDA*(row+1); <a name="l00566"></a>00566 c1=v2+LDA*(row+1); <a name="l00567"></a>00567 r1[row+1]=c1[row]; <a name="l00568"></a>00568 c1+=LDA; <a name="l00569"></a>00569 <span class="keywordflow">for</span> (j=row+2;j<n;j++){ <a name="l00570"></a>00570 r1[j]=c1[row]; <a name="l00571"></a>00571 r2[j]=c1[row+1]; <a name="l00572"></a>00572 c1+=LDA; <a name="l00573"></a>00573 } <a name="l00574"></a>00574 r1+=LDA*2; <a name="l00575"></a>00575 r2+=LDA*2; <a name="l00576"></a>00576 } <a name="l00577"></a>00577 <a name="l00578"></a>00578 <span class="keywordflow">for</span> (row=2*n/2;row<n;row++){ <a name="l00579"></a>00579 r1=v2+LDA*(row); <a name="l00580"></a>00580 c1=v2+LDA*(row+1); <a name="l00581"></a>00581 <span class="keywordflow">for</span> (j=row+1;j<n;j++){ <a name="l00582"></a>00582 r1[j]=c1[row]; <a name="l00583"></a>00583 c1+=LDA; <a name="l00584"></a>00584 } <a name="l00585"></a>00585 r1+=LDA; <a name="l00586"></a>00586 } <a name="l00587"></a>00587 A->status=ISymmetric; <a name="l00588"></a>00588 <span class="keywordflow">return</span>; <a name="l00589"></a>00589 } <a name="l00590"></a>00590 <a name="l00591"></a>00591 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatInverseAdd(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> alpha, <span class="keywordtype">double</span> y[], <span class="keywordtype">int</span> nn, <span class="keywordtype">int</span> n){ <a name="l00592"></a>00592 dtrumat* A=(dtrumat*) AA; <a name="l00593"></a>00593 ffinteger i,LDA=A->LDA,N,ione=1; <a name="l00594"></a>00594 <span class="keywordtype">double</span> *v2=A->v2; <a name="l00595"></a>00595 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l00596"></a>00596 N=i+1; <a name="l00597"></a>00597 daxpy(&N,&alpha,v2,&ione,y,&ione); <a name="l00598"></a>00598 v2+=LDA; y+=n; <a name="l00599"></a>00599 } <a name="l00600"></a>00600 <span class="keywordflow">return</span> 0; <a name="l00601"></a>00601 } <a name="l00602"></a>00602 <a name="l00603"></a>00603 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatInverseAddP(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> alpha, <span class="keywordtype">double</span> y[], <span class="keywordtype">int</span> nn, <span class="keywordtype">int</span> n){ <a name="l00604"></a>00604 dtrumat* A=(dtrumat*) AA; <a name="l00605"></a>00605 ffinteger N,LDA=A->LDA,i,ione=1; <a name="l00606"></a>00606 <span class="keywordtype">double</span> *v2=A->v2; <a name="l00607"></a>00607 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l00608"></a>00608 N=i+1; <a name="l00609"></a>00609 daxpy(&N,&alpha,v2,&ione,y,&ione); <a name="l00610"></a>00610 v2+=LDA; y+=i+1; <a name="l00611"></a>00611 } <a name="l00612"></a>00612 <span class="keywordflow">return</span> 0; <a name="l00613"></a>00613 } <a name="l00614"></a>00614 <a name="l00615"></a>00615 <span class="keyword">static</span> <span class="keywordtype">void</span> daddrow(<span class="keywordtype">double</span> *v, <span class="keywordtype">double</span> alpha, <span class="keywordtype">int</span> i, <span class="keywordtype">double</span> row[], <span class="keywordtype">int</span> n){ <a name="l00616"></a>00616 <span class="keywordtype">double</span> *s1; <a name="l00617"></a>00617 ffinteger j,nn=n,ione=1; <a name="l00618"></a>00618 <span class="keywordflow">if</span> (alpha==0){<span class="keywordflow">return</span>;} <a name="l00619"></a>00619 nn=i+1; s1=v+i*n; <a name="l00620"></a>00620 daxpy(&nn,&alpha,s1,&ione,row,&ione); <a name="l00621"></a>00621 s1=v+i*n+n; <a name="l00622"></a>00622 <span class="keywordflow">for</span> (j=i+1;j<n;j++){ row[j]+=alpha*s1[i]; s1+=n; } <a name="l00623"></a>00623 <span class="keywordflow">return</span>; <a name="l00624"></a>00624 } <a name="l00625"></a>00625 <span class="comment">/*</span> <a name="l00626"></a>00626 <span class="comment">static void printrow(double r[], int n){int i;</span> <a name="l00627"></a>00627 <span class="comment"> for (i=0;i<n;i++){printf(" %4.2e",r[i]);} printf("\n"); }</span> <a name="l00628"></a>00628 <span class="comment">*/</span> <a name="l00629"></a>00629 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatInverseMultiply(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> indx[], <span class="keywordtype">int</span> nind, <span class="keywordtype">double</span> x[], <span class="keywordtype">double</span> y[],<span class="keywordtype">int</span> n){ <a name="l00630"></a>00630 dtrumat* A=(dtrumat*) AA; <a name="l00631"></a>00631 ffinteger nn=n,LDA=A->LDA,N=A->n,INCX=1,INCY=1; <a name="l00632"></a>00632 <span class="keywordtype">double</span> *AP=A->v2,*s1=A->v2,*s2,*X=x,*Y=y,ALPHA=1.0,BETA=0.0; <a name="l00633"></a>00633 <span class="keywordtype">char</span> UPLO=A->UPLO,TRANS=<span class="charliteral">'N'</span>; <a name="l00634"></a>00634 <span class="keywordtype">int</span> i,ii,usefull=1; <a name="l00635"></a>00635 <a name="l00636"></a>00636 <span class="keywordflow">if</span> (usefull){ <a name="l00637"></a>00637 <span class="keywordflow">if</span> (A->status==Inverted){ <a name="l00638"></a>00638 DTRUSymmetrize(A); <a name="l00639"></a>00639 } <a name="l00640"></a>00640 <span class="keywordflow">if</span> (nind < n/4){ <a name="l00641"></a>00641 memset((<span class="keywordtype">void</span>*)y,0,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00642"></a>00642 <span class="keywordflow">for</span> (ii=0;ii<nind;ii++){ <a name="l00643"></a>00643 i=indx[ii]; nn=n; ALPHA=x[i];s2=s1+i*LDA; <a name="l00644"></a>00644 daxpy(&nn,&ALPHA,s2,&INCY,y,&INCX); <a name="l00645"></a>00645 } <a name="l00646"></a>00646 } <span class="keywordflow">else</span>{ <a name="l00647"></a>00647 ALPHA=1.0; <a name="l00648"></a>00648 dgemv(&TRANS,&N,&N,&ALPHA,AP,&LDA,X,&INCX,&BETA,Y,&INCY); <a name="l00649"></a>00649 } <a name="l00650"></a>00650 <a name="l00651"></a>00651 } <span class="keywordflow">else</span> { <a name="l00652"></a>00652 <span class="keywordflow">if</span> (nind<n/4 ){ <a name="l00653"></a>00653 memset((<span class="keywordtype">void</span>*)y,0,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00654"></a>00654 <span class="keywordflow">for</span> (ii=0;ii<nind;ii++){ <a name="l00655"></a>00655 i=indx[ii]; ALPHA=x[i]; <a name="l00656"></a>00656 daddrow(s1,ALPHA,i,y,n); <a name="l00657"></a>00657 } <a name="l00658"></a>00658 } <span class="keywordflow">else</span> { <a name="l00659"></a>00659 ALPHA=1.0; <a name="l00660"></a>00660 dsymv(&UPLO,&N,&ALPHA,AP,&LDA,X,&INCX,&BETA,Y,&INCY); <a name="l00661"></a>00661 } <a name="l00662"></a>00662 } <a name="l00663"></a>00663 <span class="keywordflow">return</span> 0; <a name="l00664"></a>00664 } <a name="l00665"></a>00665 <a name="l00666"></a>00666 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatSetXMat(<span class="keywordtype">void</span>*A, <span class="keywordtype">double</span> v[], <span class="keywordtype">int</span> nn, <span class="keywordtype">int</span> n){ <a name="l00667"></a>00667 dtrumat* ABA=(dtrumat*)A; <a name="l00668"></a>00668 <span class="keywordtype">int</span> i,LDA=ABA->LDA; <a name="l00669"></a>00669 <span class="keywordtype">double</span> *vv=ABA->val; <a name="l00670"></a>00670 <span class="keywordflow">if</span> (vv!=v){ <a name="l00671"></a>00671 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l00672"></a>00672 memcpy((<span class="keywordtype">void</span>*)vv,(<span class="keywordtype">void</span>*)v,(i+1)*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00673"></a>00673 vv+=LDA; v+=n; <a name="l00674"></a>00674 } <a name="l00675"></a>00675 } <a name="l00676"></a>00676 ABA->status=Assemble; <a name="l00677"></a>00677 <span class="keywordflow">return</span> 0; <a name="l00678"></a>00678 } <a name="l00679"></a>00679 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatSetXMatP(<span class="keywordtype">void</span>*A, <span class="keywordtype">double</span> v[], <span class="keywordtype">int</span> nn, <span class="keywordtype">int</span> n){ <a name="l00680"></a>00680 dtrumat* ABA=(dtrumat*)A; <a name="l00681"></a>00681 <span class="keywordtype">int</span> i,LDA=ABA->LDA; <a name="l00682"></a>00682 <span class="keywordtype">double</span> *vv=ABA->val; <a name="l00683"></a>00683 <span class="keywordflow">if</span> (vv!=v){ <a name="l00684"></a>00684 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l00685"></a>00685 memcpy((<span class="keywordtype">void</span>*)vv,(<span class="keywordtype">void</span>*)v,(i+1)*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00686"></a>00686 v+=(i+1); vv+=LDA; <a name="l00687"></a>00687 } <a name="l00688"></a>00688 } <a name="l00689"></a>00689 ABA->status=Assemble; <a name="l00690"></a>00690 <span class="keywordflow">return</span> 0; <a name="l00691"></a>00691 } <a name="l00692"></a>00692 <a name="l00693"></a>00693 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatFull(<span class="keywordtype">void</span>*A, <span class="keywordtype">int</span>*full){ <a name="l00694"></a>00694 *full=1; <a name="l00695"></a>00695 <span class="keywordflow">return</span> 0; <a name="l00696"></a>00696 } <a name="l00697"></a>00697 <a name="l00698"></a>00698 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatGetArray(<span class="keywordtype">void</span>*A,<span class="keywordtype">double</span> **v,<span class="keywordtype">int</span> *n){ <a name="l00699"></a>00699 dtrumat* ABA=(dtrumat*)A; <a name="l00700"></a>00700 *n=ABA->n*ABA->LDA; <a name="l00701"></a>00701 *v=ABA->val; <a name="l00702"></a>00702 <span class="keywordflow">return</span> 0; <a name="l00703"></a>00703 } <a name="l00704"></a>00704 <a name="l00705"></a>00705 <span class="keyword">static</span> <span class="keyword">struct </span><a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a> sdmatops; <a name="l00706"></a>00706 <span class="keyword">static</span> <span class="keywordtype">int</span> SDualOpsInitialize(<span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a>* sops){ <a name="l00707"></a>00707 <span class="keywordtype">int</span> info; <a name="l00708"></a>00708 <span class="keywordflow">if</span> (sops==NULL) <span class="keywordflow">return</span> 0; <a name="l00709"></a>00709 info=<a class="code" href="dsdpdualmat_8c.html#a80e8f72d7a1720fbe7563b2f57acd5c6" title="Set pointers to null.">DSDPDualMatOpsInitialize</a>(sops);DSDPCHKERR(info); <a name="l00710"></a>00710 sops->matseturmat=DTRUMatSetXMat; <a name="l00711"></a>00711 sops->matgetarray=DTRUMatGetArray; <a name="l00712"></a>00712 sops->matcholesky=DTRUMatCholeskyFactor; <a name="l00713"></a>00713 sops->matsolveforward=DTRUMatCholeskyForward; <a name="l00714"></a>00714 sops->matsolvebackward=DTRUMatCholeskyBackward; <a name="l00715"></a>00715 sops->matinvert=DTRUMatInvert; <a name="l00716"></a>00716 sops->matinverseadd=DTRUMatInverseAdd; <a name="l00717"></a>00717 sops->matinversemultiply=DTRUMatInverseMultiply; <a name="l00718"></a>00718 sops->matforwardmultiply=DTRUMatCholeskyForwardMultiply; <a name="l00719"></a>00719 sops->matbackwardmultiply=DTRUMatCholeskyBackwardMultiply; <a name="l00720"></a>00720 sops->matfull=DTRUMatFull; <a name="l00721"></a>00721 sops->matdestroy=DTRUMatDestroy; <a name="l00722"></a>00722 sops->matgetsize=DTRUMatGetSize; <a name="l00723"></a>00723 sops->matview=DTRUMatView; <a name="l00724"></a>00724 sops->matlogdet=DTRUMatLogDet; <a name="l00725"></a>00725 sops->matname=lapackname; <a name="l00726"></a>00726 sops->id=1; <a name="l00727"></a>00727 <span class="keywordflow">return</span> 0; <a name="l00728"></a>00728 } <a name="l00729"></a>00729 <a name="l00730"></a>00730 <a name="l00731"></a>00731 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00732"></a>00732 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPLAPACKSUDualMatCreate"</span> <a name="l00733"></a>00733 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> DSDPLAPACKSUDualMatCreate(<span class="keywordtype">int</span> n,<span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a> **sops, <span class="keywordtype">void</span>**smat){ <a name="l00734"></a>00734 dtrumat *AA; <a name="l00735"></a>00735 <span class="keywordtype">int</span> info,nn,LDA=n; <a name="l00736"></a>00736 <span class="keywordtype">double</span> *vv; <a name="l00737"></a>00737 DSDPFunctionBegin; <a name="l00738"></a>00738 LDA=SUMatGetLDA(n); <a name="l00739"></a>00739 nn=n*LDA; <a name="l00740"></a>00740 DSDPCALLOC2(&vv,<span class="keywordtype">double</span>,nn,&info);DSDPCHKERR(info); <a name="l00741"></a>00741 info=DTRUMatCreateWData(n,LDA,vv,nn,&AA); DSDPCHKERR(info); <a name="l00742"></a>00742 AA->owndata=1; <a name="l00743"></a>00743 info=SDualOpsInitialize(&sdmatops);DSDPCHKERR(info); <a name="l00744"></a>00744 *sops=&sdmatops; <a name="l00745"></a>00745 *smat=(<span class="keywordtype">void</span>*)AA; <a name="l00746"></a>00746 DSDPFunctionReturn(0); <a name="l00747"></a>00747 } <a name="l00748"></a>00748 <a name="l00749"></a>00749 <a name="l00750"></a>00750 <span class="keyword">static</span> <span class="keywordtype">int</span> switchptr(<span class="keywordtype">void</span> *SD,<span class="keywordtype">void</span> *SP){ <a name="l00751"></a>00751 dtrumat *s1,*s2; <a name="l00752"></a>00752 s1=(dtrumat*)(SD); <a name="l00753"></a>00753 s2=(dtrumat*)(SP); <a name="l00754"></a>00754 s1->v2=s2->val; <a name="l00755"></a>00755 s2->v2=s1->val; <a name="l00756"></a>00756 <span class="keywordflow">return</span> 0; <a name="l00757"></a>00757 } <a name="l00758"></a>00758 <a name="l00759"></a>00759 <a name="l00760"></a>00760 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00761"></a>00761 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPLAPACKSUDualMatCreate2"</span> <a name="l00762"></a>00762 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPLAPACKSUDualMatCreate2(<span class="keywordtype">int</span> n, <a name="l00763"></a>00763 <span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a> **sops1, <span class="keywordtype">void</span>**smat1, <a name="l00764"></a>00764 <span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a> **sops2, <span class="keywordtype">void</span>**smat2){ <a name="l00765"></a>00765 <span class="keywordtype">int</span> info; <a name="l00766"></a>00766 DSDPFunctionBegin; <a name="l00767"></a>00767 info=DSDPLAPACKSUDualMatCreate(n,sops1,smat1);DSDPCHKERR(info); <a name="l00768"></a>00768 info=DSDPLAPACKSUDualMatCreate(n,sops2,smat2);DSDPCHKERR(info); <a name="l00769"></a>00769 info=switchptr(*smat1,*smat2);DSDPCHKERR(info); <a name="l00770"></a>00770 DSDPFunctionReturn(0); <a name="l00771"></a>00771 } <a name="l00772"></a>00772 <a name="l00773"></a>00773 <span class="keyword">static</span> <span class="keyword">struct </span><a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a> sdmatopsp; <a name="l00774"></a>00774 <span class="keyword">static</span> <span class="keywordtype">int</span> SDualOpsInitializeP(<span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a>* sops){ <a name="l00775"></a>00775 <span class="keywordtype">int</span> info; <a name="l00776"></a>00776 <span class="keywordflow">if</span> (sops==NULL) <span class="keywordflow">return</span> 0; <a name="l00777"></a>00777 info=<a class="code" href="dsdpdualmat_8c.html#a80e8f72d7a1720fbe7563b2f57acd5c6" title="Set pointers to null.">DSDPDualMatOpsInitialize</a>(sops);DSDPCHKERR(info); <a name="l00778"></a>00778 sops->matseturmat=DTRUMatSetXMatP; <a name="l00779"></a>00779 sops->matgetarray=DTRUMatGetArray; <a name="l00780"></a>00780 sops->matcholesky=DTRUMatCholeskyFactor; <a name="l00781"></a>00781 sops->matsolveforward=DTRUMatCholeskyForward; <a name="l00782"></a>00782 sops->matsolvebackward=DTRUMatCholeskyBackward; <a name="l00783"></a>00783 sops->matinvert=DTRUMatInvert; <a name="l00784"></a>00784 sops->matinverseadd=DTRUMatInverseAddP; <a name="l00785"></a>00785 sops->matinversemultiply=DTRUMatInverseMultiply; <a name="l00786"></a>00786 sops->matforwardmultiply=DTRUMatCholeskyForwardMultiply; <a name="l00787"></a>00787 sops->matbackwardmultiply=DTRUMatCholeskyBackwardMultiply; <a name="l00788"></a>00788 sops->matfull=DTRUMatFull; <a name="l00789"></a>00789 sops->matdestroy=DTRUMatDestroy; <a name="l00790"></a>00790 sops->matgetsize=DTRUMatGetSize; <a name="l00791"></a>00791 sops->matview=DTRUMatView; <a name="l00792"></a>00792 sops->matlogdet=DTRUMatLogDet; <a name="l00793"></a>00793 sops->matname=lapackname; <a name="l00794"></a>00794 sops->id=1; <a name="l00795"></a>00795 <span class="keywordflow">return</span> 0; <a name="l00796"></a>00796 } <a name="l00797"></a>00797 <a name="l00798"></a>00798 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00799"></a>00799 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPLAPACKSUDualMatCreate"</span> <a name="l00800"></a>00800 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> DSDPLAPACKSUDualMatCreateP(<span class="keywordtype">int</span> n, <span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a> **sops, <span class="keywordtype">void</span>**smat){ <a name="l00801"></a>00801 dtrumat *AA; <a name="l00802"></a>00802 <span class="keywordtype">int</span> info,nn,LDA; <a name="l00803"></a>00803 <span class="keywordtype">double</span> *vv; <a name="l00804"></a>00804 DSDPFunctionBegin; <a name="l00805"></a>00805 LDA=SUMatGetLDA(n); <a name="l00806"></a>00806 nn=LDA*n; <a name="l00807"></a>00807 DSDPCALLOC2(&vv,<span class="keywordtype">double</span>,nn,&info);DSDPCHKERR(info); <a name="l00808"></a>00808 info=DTRUMatCreateWData(n,LDA,vv,nn,&AA); DSDPCHKERR(info); <a name="l00809"></a>00809 AA->owndata=1; <a name="l00810"></a>00810 info=SDualOpsInitializeP(&sdmatopsp);DSDPCHKERR(info); <a name="l00811"></a>00811 *sops=&sdmatopsp; <a name="l00812"></a>00812 *smat=(<span class="keywordtype">void</span>*)AA; <a name="l00813"></a>00813 DSDPFunctionReturn(0); <a name="l00814"></a>00814 } <a name="l00815"></a>00815 <a name="l00816"></a>00816 <a name="l00817"></a>00817 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00818"></a>00818 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPLAPACKSUDualMatCreate2P"</span> <a name="l00819"></a>00819 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPLAPACKSUDualMatCreate2P(<span class="keywordtype">int</span> n, <a name="l00820"></a>00820 <span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a>* *sops1, <span class="keywordtype">void</span>**smat1, <a name="l00821"></a>00821 <span class="keyword">struct</span> <a class="code" href="structDSDPDualMat__Ops.html" title="Table of function pointers that operate on the S matrix.">DSDPDualMat_Ops</a>* *sops2, <span class="keywordtype">void</span>**smat2){ <a name="l00822"></a>00822 <span class="keywordtype">int</span> info; <a name="l00823"></a>00823 DSDPFunctionBegin; <a name="l00824"></a>00824 info=DSDPLAPACKSUDualMatCreateP(n,sops1,smat1); <a name="l00825"></a>00825 info=DSDPLAPACKSUDualMatCreateP(n,sops2,smat2); <a name="l00826"></a>00826 info=switchptr(*smat1,*smat2); <a name="l00827"></a>00827 DSDPFunctionReturn(0); <a name="l00828"></a>00828 } <a name="l00829"></a>00829 <a name="l00830"></a>00830 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatScaleDiagonal(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> dd){ <a name="l00831"></a>00831 dtrumat* A=(dtrumat*) AA; <a name="l00832"></a>00832 ffinteger LDA=A->LDA; <a name="l00833"></a>00833 <span class="keywordtype">int</span> i,n=A->n; <a name="l00834"></a>00834 <span class="keywordtype">double</span> *v=A->val; <a name="l00835"></a>00835 <span class="keywordflow">for</span> (i=0; i<n; i++){ <a name="l00836"></a>00836 *v*=dd; <a name="l00837"></a>00837 v+=LDA+1; <a name="l00838"></a>00838 } <a name="l00839"></a>00839 <span class="keywordflow">return</span> 0; <a name="l00840"></a>00840 } <a name="l00841"></a>00841 <a name="l00842"></a>00842 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatOuterProduct(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> alpha, <span class="keywordtype">double</span> x[], <span class="keywordtype">int</span> n){ <a name="l00843"></a>00843 dtrumat* A=(dtrumat*) AA; <a name="l00844"></a>00844 ffinteger ione=1,N=n,LDA=A->LDA; <a name="l00845"></a>00845 <span class="keywordtype">double</span> *v=A->val; <a name="l00846"></a>00846 <span class="keywordtype">char</span> UPLO=A->UPLO; <a name="l00847"></a>00847 dsyr(&UPLO,&N,&alpha,x,&ione,v,&LDA); <a name="l00848"></a>00848 <span class="keywordflow">return</span> 0; <a name="l00849"></a>00849 } <a name="l00850"></a>00850 <a name="l00851"></a>00851 <span class="keyword">static</span> <span class="keywordtype">int</span> DenseSymPSDNormF2(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *dddot){ <a name="l00852"></a>00852 dtrumat* A=(dtrumat*) AA; <a name="l00853"></a>00853 ffinteger ione=1,nn=A->n*A->n; <a name="l00854"></a>00854 <span class="keywordtype">double</span> dd,tt=sqrt(0.5),*val=A->val; <a name="l00855"></a>00855 <span class="keywordtype">int</span> info; <a name="l00856"></a>00856 info=DTRUMatScaleDiagonal(AA,tt); <a name="l00857"></a>00857 dd=dnrm2(&nn,val,&ione); <a name="l00858"></a>00858 info=DTRUMatScaleDiagonal(AA,1.0/tt); <a name="l00859"></a>00859 *dddot=dd*dd*2; <a name="l00860"></a>00860 <span class="keywordflow">return</span> 0; <a name="l00861"></a>00861 } <a name="l00862"></a>00862 <a name="l00863"></a>00863 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatGetDenseArray(<span class="keywordtype">void</span>* A, <span class="keywordtype">double</span> *v[], <span class="keywordtype">int</span>*n){ <a name="l00864"></a>00864 dtrumat* ABA=(dtrumat*)A; <a name="l00865"></a>00865 *v=ABA->val; <a name="l00866"></a>00866 *n=ABA->n*ABA->LDA; <a name="l00867"></a>00867 <span class="keywordflow">return</span> 0; <a name="l00868"></a>00868 } <a name="l00869"></a>00869 <a name="l00870"></a>00870 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatRestoreDenseArray(<span class="keywordtype">void</span>* A, <span class="keywordtype">double</span> *v[], <span class="keywordtype">int</span> *n){ <a name="l00871"></a>00871 *v=0;*n=0; <a name="l00872"></a>00872 <span class="keywordflow">return</span> 0; <a name="l00873"></a>00873 } <a name="l00874"></a>00874 <a name="l00875"></a>00875 <span class="keyword">static</span> <span class="keywordtype">int</span> DDenseSetXMat(<span class="keywordtype">void</span>*A, <span class="keywordtype">double</span> v[], <span class="keywordtype">int</span> nn, <span class="keywordtype">int</span> n){ <a name="l00876"></a>00876 dtrumat* ABA=(dtrumat*)A; <a name="l00877"></a>00877 <span class="keywordtype">int</span> i,LDA=ABA->LDA; <a name="l00878"></a>00878 <span class="keywordtype">double</span> *vv=ABA->val; <a name="l00879"></a>00879 <span class="keywordflow">if</span> (v!=vv){ <a name="l00880"></a>00880 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l00881"></a>00881 memcpy((<span class="keywordtype">void</span>*)vv,(<span class="keywordtype">void</span>*)v,nn*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l00882"></a>00882 v+=n;vv+=LDA; <a name="l00883"></a>00883 } <a name="l00884"></a>00884 } <a name="l00885"></a>00885 ABA->status=Assemble; <a name="l00886"></a>00886 <span class="keywordflow">return</span> 0; <a name="l00887"></a>00887 } <a name="l00888"></a>00888 <a name="l00889"></a>00889 <span class="keyword">static</span> <span class="keywordtype">int</span> DDenseVecVec(<span class="keywordtype">void</span>* A, <span class="keywordtype">double</span> x[], <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *v){ <a name="l00890"></a>00890 dtrumat* ABA=(dtrumat*)A; <a name="l00891"></a>00891 <span class="keywordtype">int</span> i,j,k=0,LDA=ABA->LDA; <a name="l00892"></a>00892 <span class="keywordtype">double</span> dd=0,*val=ABA->val; <a name="l00893"></a>00893 *v=0.0; <a name="l00894"></a>00894 <span class="keywordflow">for</span> (i=0; i<n; i++){ <a name="l00895"></a>00895 <span class="keywordflow">for</span> (j=0;j<i;j++){ <a name="l00896"></a>00896 dd+=2*x[i]*x[j]*val[j]; <a name="l00897"></a>00897 k++; <a name="l00898"></a>00898 } <a name="l00899"></a>00899 dd+=x[i]*x[i]*val[i]; <a name="l00900"></a>00900 k+=LDA; <a name="l00901"></a>00901 } <a name="l00902"></a>00902 *v=dd; <a name="l00903"></a>00903 <span class="keywordflow">return</span> 0; <a name="l00904"></a>00904 } <a name="l00905"></a>00905 <a name="l00906"></a>00906 <a name="l00907"></a>00907 <a name="l00908"></a>00908 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatEigs(<span class="keywordtype">void</span>*AA,<span class="keywordtype">double</span> W[],<span class="keywordtype">double</span> IIWORK[], <span class="keywordtype">int</span> nn1, <span class="keywordtype">double</span> *mineig){ <a name="l00909"></a>00909 dtrumat* AAA=(dtrumat*) AA; <a name="l00910"></a>00910 ffinteger info,INFO=0,M,N=AAA->n; <a name="l00911"></a>00911 ffinteger IL=1,IU=1,LDA=AAA->LDA,LDZ=LDA,LWORK,IFAIL; <a name="l00912"></a>00912 ffinteger *IWORK=(ffinteger*)IIWORK; <a name="l00913"></a>00913 <span class="keywordtype">double</span> *AP=AAA->val; <a name="l00914"></a>00914 <span class="keywordtype">double</span> Z=0,VL=-1e10,VU=1e10,*WORK,ABSTOL=1e-13; <a name="l00915"></a>00915 <span class="keywordtype">char</span> UPLO=AAA->UPLO,JOBZ=<span class="charliteral">'N'</span>,RANGE=<span class="charliteral">'I'</span>; <a name="l00916"></a>00916 DSDPCALLOC2(&WORK,<span class="keywordtype">double</span>,8*N,&info); <a name="l00917"></a>00917 DSDPCALLOC2(&IWORK,ffinteger,5*N,&info); <a name="l00918"></a>00918 LWORK=8*N; <a name="l00919"></a>00919 dsyevx(&JOBZ,&RANGE,&UPLO,&N,AP,&LDA,&VL,&VU,&IL,&IU,&ABSTOL,&M,W,&Z,&LDZ,WORK,&LWORK,IWORK,&IFAIL,&INFO); <a name="l00920"></a>00920 <span class="comment">/*</span> <a name="l00921"></a>00921 <span class="comment"> ffinteger LIWORK=nn1;</span> <a name="l00922"></a>00922 <span class="comment"> dsyevd(&JOBZ,&UPLO,&N,AP,&LDA,W,WORK,&LWORK,IWORK,&LIWORK,&INFO);</span> <a name="l00923"></a>00923 <span class="comment"> */</span> <a name="l00924"></a>00924 DSDPFREE(&WORK,&info); <a name="l00925"></a>00925 DSDPFREE(&IWORK,&info); <a name="l00926"></a>00926 *mineig=W[0]; <a name="l00927"></a>00927 <span class="keywordflow">return</span> INFO; <a name="l00928"></a>00928 } <a name="l00929"></a>00929 <a name="l00930"></a>00930 <a name="l00931"></a>00931 <span class="keyword">static</span> <span class="keyword">struct </span><a class="code" href="structDSDPVMat__Ops.html" title="Table of function pointers that operate on the dense matrix.">DSDPVMat_Ops</a> turdensematops; <a name="l00932"></a>00932 <a name="l00933"></a>00933 <span class="keyword">static</span> <span class="keywordtype">int</span> DSDPDenseXInitializeOps(<span class="keyword">struct</span> <a class="code" href="structDSDPVMat__Ops.html" title="Table of function pointers that operate on the dense matrix.">DSDPVMat_Ops</a>* densematops){ <a name="l00934"></a>00934 <span class="keywordtype">int</span> info; <a name="l00935"></a>00935 <span class="keywordflow">if</span> (!densematops) <span class="keywordflow">return</span> 0; <a name="l00936"></a>00936 info=<a class="code" href="dsdpxmat_8c.html#ae77a160b7956ada5f40e0ac5085e1e10" title="Set function pointers to null.">DSDPVMatOpsInitialize</a>(densematops); DSDPCHKERR(info); <a name="l00937"></a>00937 densematops->matview=DTRUMatView; <a name="l00938"></a>00938 densematops->matscalediagonal=DTRUMatScaleDiagonal; <a name="l00939"></a>00939 densematops->matshiftdiagonal=DTRUMatShiftDiagonal; <a name="l00940"></a>00940 densematops->mataddouterproduct=DTRUMatOuterProduct; <a name="l00941"></a>00941 densematops->matmult=DTRUMatMult; <a name="l00942"></a>00942 densematops->matdestroy=DTRUMatDestroy; <a name="l00943"></a>00943 densematops->matfnorm2=DenseSymPSDNormF2; <a name="l00944"></a>00944 densematops->matgetsize=DTRUMatGetSize; <a name="l00945"></a>00945 densematops->matzeroentries=DTRUMatZero; <a name="l00946"></a>00946 densematops->matgeturarray=DTRUMatGetDenseArray; <a name="l00947"></a>00947 densematops->matrestoreurarray=DTRUMatRestoreDenseArray; <a name="l00948"></a>00948 densematops->matmineig=DTRUMatEigs; <a name="l00949"></a>00949 densematops->id=1; <a name="l00950"></a>00950 densematops->matname=lapackname; <a name="l00951"></a>00951 <span class="keywordflow">return</span> 0; <a name="l00952"></a>00952 } <a name="l00953"></a>00953 <a name="l00954"></a>00954 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00955"></a>00955 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPXMatUCreateWithData"</span> <a name="l00956"></a>00956 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPXMatUCreateWithData(<span class="keywordtype">int</span> n,<span class="keywordtype">double</span> nz[],<span class="keywordtype">int</span> nnz,<span class="keyword">struct</span> <a class="code" href="structDSDPVMat__Ops.html" title="Table of function pointers that operate on the dense matrix.">DSDPVMat_Ops</a>* *xops, <span class="keywordtype">void</span> * *xmat){ <a name="l00957"></a>00957 <span class="keywordtype">int</span> i,info; <a name="l00958"></a>00958 <span class="keywordtype">double</span> dtmp; <a name="l00959"></a>00959 dtrumat*AA; <a name="l00960"></a>00960 DSDPFunctionBegin; <a name="l00961"></a>00961 <span class="keywordflow">if</span> (nnz<n*n){DSDPSETERR1(2,<span class="stringliteral">"Array must have length of : %d \n"</span>,n*n);} <a name="l00962"></a>00962 <span class="keywordflow">for</span> (i=0;i<n*n;i++) dtmp=nz[i]; <a name="l00963"></a>00963 info=DTRUMatCreateWData(n,n,nz,nnz,&AA); DSDPCHKERR(info); <a name="l00964"></a>00964 AA->owndata=0; <a name="l00965"></a>00965 info=DSDPDenseXInitializeOps(&turdensematops); DSDPCHKERR(info); <a name="l00966"></a>00966 *xops=&turdensematops; <a name="l00967"></a>00967 *xmat=(<span class="keywordtype">void</span>*)AA; <a name="l00968"></a>00968 DSDPFunctionReturn(0); <a name="l00969"></a>00969 } <a name="l00970"></a>00970 <a name="l00971"></a>00971 <span class="preprocessor">#undef __FUNCT__</span> <a name="l00972"></a>00972 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPXMatUCreate"</span> <a name="l00973"></a>00973 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPXMatUCreate(<span class="keywordtype">int</span> n,<span class="keyword">struct</span> <a class="code" href="structDSDPVMat__Ops.html" title="Table of function pointers that operate on the dense matrix.">DSDPVMat_Ops</a>* *xops, <span class="keywordtype">void</span> * *xmat){ <a name="l00974"></a>00974 <span class="keywordtype">int</span> info,nn=n*n; <a name="l00975"></a>00975 <span class="keywordtype">double</span> *vv; <a name="l00976"></a>00976 DSDPFunctionBegin; <a name="l00977"></a>00977 DSDPCALLOC2(&vv,<span class="keywordtype">double</span>,nn,&info);DSDPCHKERR(info); <a name="l00978"></a>00978 info=DSDPXMatUCreateWithData(n,vv,nn,xops,xmat);DSDPCHKERR(info); <a name="l00979"></a>00979 DTRUMatOwnData((dtrumat*)(*xmat),1); <a name="l00980"></a>00980 DSDPFunctionReturn(0); <a name="l00981"></a>00981 } <a name="l00982"></a>00982 <a name="l00983"></a>00983 <span class="keyword">static</span> <span class="keyword">struct </span><a class="code" href="structDSDPDSMat__Ops.html" title="Symmetric Delta S matrix for one block in the semidefinite cone.">DSDPDSMat_Ops</a> tdsdensematops; <a name="l00984"></a>00984 <span class="keyword">static</span> <span class="keywordtype">int</span> DSDPDSDenseInitializeOps(<span class="keyword">struct</span> <a class="code" href="structDSDPDSMat__Ops.html" title="Symmetric Delta S matrix for one block in the semidefinite cone.">DSDPDSMat_Ops</a>* densematops){ <a name="l00985"></a>00985 <span class="keywordtype">int</span> info; <a name="l00986"></a>00986 <span class="keywordflow">if</span> (!densematops) <span class="keywordflow">return</span> 0; <a name="l00987"></a>00987 info=<a class="code" href="dsdpdsmat_8c.html#a956667007b1dada1d134e557b0feee9e" title="Set pointers to null.">DSDPDSMatOpsInitialize</a>(densematops); DSDPCHKERR(info); <a name="l00988"></a>00988 densematops->matseturmat=DDenseSetXMat; <a name="l00989"></a>00989 densematops->matview=DTRUMatView; <a name="l00990"></a>00990 densematops->matdestroy=DTRUMatDestroy; <a name="l00991"></a>00991 densematops->matgetsize=DTRUMatGetSize; <a name="l00992"></a>00992 densematops->matzeroentries=DTRUMatZero; <a name="l00993"></a>00993 densematops->matmult=DTRUMatMult; <a name="l00994"></a>00994 densematops->matvecvec=DDenseVecVec; <a name="l00995"></a>00995 densematops->id=1; <a name="l00996"></a>00996 densematops->matname=lapackname; <a name="l00997"></a>00997 <span class="keywordflow">return</span> 0; <a name="l00998"></a>00998 } <a name="l00999"></a>00999 <a name="l01000"></a>01000 <span class="preprocessor">#undef __FUNCT__</span> <a name="l01001"></a>01001 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPCreateDSMatWithArray2"</span> <a name="l01002"></a>01002 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPCreateDSMatWithArray2(<span class="keywordtype">int</span> n,<span class="keywordtype">double</span> vv[],<span class="keywordtype">int</span> nnz,<span class="keyword">struct</span> <a class="code" href="structDSDPDSMat__Ops.html" title="Symmetric Delta S matrix for one block in the semidefinite cone.">DSDPDSMat_Ops</a>* *dsmatops, <span class="keywordtype">void</span>**dsmat){ <a name="l01003"></a>01003 <span class="keywordtype">int</span> info; <a name="l01004"></a>01004 dtrumat*AA; <a name="l01005"></a>01005 DSDPFunctionBegin; <a name="l01006"></a>01006 info=DTRUMatCreateWData(n,n,vv,nnz,&AA); DSDPCHKERR(info); <a name="l01007"></a>01007 AA->owndata=0; <a name="l01008"></a>01008 info=DSDPDSDenseInitializeOps(&tdsdensematops); DSDPCHKERR(info); <a name="l01009"></a>01009 *dsmatops=&tdsdensematops; <a name="l01010"></a>01010 *dsmat=(<span class="keywordtype">void</span>*)AA; <a name="l01011"></a>01011 DSDPFunctionReturn(0); <a name="l01012"></a>01012 } <a name="l01013"></a>01013 <a name="l01014"></a>01014 <span class="preprocessor">#undef __FUNCT__</span> <a name="l01015"></a>01015 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPCreateXDSMat2"</span> <a name="l01016"></a>01016 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPCreateXDSMat2(<span class="keywordtype">int</span> n,<span class="keyword">struct</span> <a class="code" href="structDSDPDSMat__Ops.html" title="Symmetric Delta S matrix for one block in the semidefinite cone.">DSDPDSMat_Ops</a>* *dsmatops, <span class="keywordtype">void</span>**dsmat){ <a name="l01017"></a>01017 <span class="keywordtype">int</span> info,nn=n*n; <a name="l01018"></a>01018 <span class="keywordtype">double</span> *vv; <a name="l01019"></a>01019 DSDPFunctionBegin; <a name="l01020"></a>01020 DSDPCALLOC2(&vv,<span class="keywordtype">double</span>,nn,&info);DSDPCHKERR(info); <a name="l01021"></a>01021 info=DSDPCreateDSMatWithArray2(n,vv,nn,dsmatops,dsmat);DSDPCHKERR(info); <a name="l01022"></a>01022 DTRUMatOwnData((dtrumat*)(*dsmat),1); <a name="l01023"></a>01023 DSDPFunctionReturn(0); <a name="l01024"></a>01024 } <a name="l01025"></a>01025 <a name="l01026"></a>01026 <a name="l01027"></a>01027 <span class="keyword">typedef</span> <span class="keyword">struct </span>{ <a name="l01028"></a>01028 <span class="keywordtype">int</span> neigs; <a name="l01029"></a>01029 <span class="keywordtype">double</span> *eigval; <a name="l01030"></a>01030 <span class="keywordtype">double</span> *an; <a name="l01031"></a>01031 } Eigen; <a name="l01032"></a>01032 <a name="l01033"></a>01033 <span class="keyword">typedef</span> <span class="keyword">struct </span>{ <a name="l01034"></a>01034 dtrumat* AA; <a name="l01035"></a>01035 Eigen *Eig; <a name="l01036"></a>01036 } dvecumat; <a name="l01037"></a>01037 <a name="l01038"></a>01038 <span class="preprocessor">#undef __FUNCT__ </span> <a name="l01039"></a>01039 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "CreateDvecumatWData"</span> <a name="l01040"></a>01040 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> CreateDvecumatWdata(<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> vv[], dvecumat **A){ <a name="l01041"></a>01041 <span class="keywordtype">int</span> info,nnz=n*n; <a name="l01042"></a>01042 dvecumat* V; <a name="l01043"></a>01043 DSDPCALLOC1(&V,dvecumat,&info);DSDPCHKERR(info); <a name="l01044"></a>01044 info=DTRUMatCreateWData(n,n,vv,nnz,&V->AA); DSDPCHKERR(info); <a name="l01045"></a>01045 V->Eig=0; <a name="l01046"></a>01046 *A=V; <a name="l01047"></a>01047 <span class="keywordflow">return</span> 0; <a name="l01048"></a>01048 } <a name="l01049"></a>01049 <a name="l01050"></a>01050 <a name="l01051"></a>01051 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatGetRowNnz(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> trow, <span class="keywordtype">int</span> nz[], <span class="keywordtype">int</span> *nnzz,<span class="keywordtype">int</span> n){ <a name="l01052"></a>01052 <span class="keywordtype">int</span> k; <a name="l01053"></a>01053 *nnzz=n; <a name="l01054"></a>01054 <span class="keywordflow">for</span> (k=0;k<n;k++) nz[k]++; <a name="l01055"></a>01055 <span class="keywordflow">return</span> 0; <a name="l01056"></a>01056 } <a name="l01057"></a>01057 <a name="l01058"></a>01058 <span class="keyword">static</span> <span class="keywordtype">int</span> DTRUMatGetRowAdd(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> nrow, <span class="keywordtype">double</span> ytmp, <span class="keywordtype">double</span> row[], <span class="keywordtype">int</span> n){ <a name="l01059"></a>01059 dtrumat* A=(dtrumat*) AA; <a name="l01060"></a>01060 ffinteger i,nnn=n; <a name="l01061"></a>01061 <span class="keywordtype">double</span> *v=A->val; <a name="l01062"></a>01062 <a name="l01063"></a>01063 nnn=nrow*n; <a name="l01064"></a>01064 <span class="keywordflow">for</span> (i=0;i<=nrow;i++){ <a name="l01065"></a>01065 row[i]+=ytmp*v[nnn+i]; <a name="l01066"></a>01066 } <a name="l01067"></a>01067 <span class="keywordflow">for</span> (i=nrow+1;i<n;i++){ <a name="l01068"></a>01068 nnn+=nrow; <a name="l01069"></a>01069 row[i]+=ytmp*v[nrow]; <a name="l01070"></a>01070 } <a name="l01071"></a>01071 <span class="keywordflow">return</span> 0; <a name="l01072"></a>01072 } <a name="l01073"></a>01073 <a name="l01074"></a>01074 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatGetRowAdd(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> trow, <span class="keywordtype">double</span> scl, <span class="keywordtype">double</span> r[], <span class="keywordtype">int</span> m){ <a name="l01075"></a>01075 <span class="keywordtype">int</span> info; <a name="l01076"></a>01076 dvecumat* A=(dvecumat*)AA; <a name="l01077"></a>01077 info=DTRUMatGetRowAdd((<span class="keywordtype">void</span>*)A->AA ,trow,scl,r,m); <a name="l01078"></a>01078 <span class="keywordflow">return</span> 0; <a name="l01079"></a>01079 } <a name="l01080"></a>01080 <a name="l01081"></a>01081 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatAddMultiple(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> alpha, <span class="keywordtype">double</span> r[], <span class="keywordtype">int</span> nnn, <span class="keywordtype">int</span> n){ <a name="l01082"></a>01082 dvecumat* A=(dvecumat*)AA; <a name="l01083"></a>01083 ffinteger nn=nnn, ione=1; <a name="l01084"></a>01084 <span class="keywordtype">double</span> *val=A->AA->val; <a name="l01085"></a>01085 daxpy(&nn,&alpha,val,&ione,r,&ione); <a name="l01086"></a>01086 <span class="keywordflow">return</span> 0; <a name="l01087"></a>01087 } <a name="l01088"></a>01088 <a name="l01089"></a>01089 <a name="l01090"></a>01090 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecuEigVecVec(<span class="keywordtype">void</span>*, <span class="keywordtype">double</span>[], <span class="keywordtype">int</span>, <span class="keywordtype">double</span>*); <a name="l01091"></a>01091 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatVecVec(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> x[], <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *v){ <a name="l01092"></a>01092 dvecumat* A=(dvecumat*)AA; <a name="l01093"></a>01093 <span class="keywordtype">int</span> i,j,k=0,LDA=A->AA->LDA; <a name="l01094"></a>01094 <span class="keywordtype">double</span> dd=0,*val=A->AA->val; <a name="l01095"></a>01095 *v=0.0; <a name="l01096"></a>01096 <span class="keywordflow">if</span> (A->Eig && A->Eig->neigs<n/5){ <a name="l01097"></a>01097 i=DvecuEigVecVec(AA,x,n,v); <a name="l01098"></a>01098 } <span class="keywordflow">else</span> { <a name="l01099"></a>01099 <span class="keywordflow">for</span> (i=0; i<n; i++){ <a name="l01100"></a>01100 <span class="keywordflow">for</span> (j=0;j<i;j++){ <a name="l01101"></a>01101 dd+=2*x[i]*x[j]*val[j]; <a name="l01102"></a>01102 } <a name="l01103"></a>01103 dd+=x[i]*x[i]*val[i]; <a name="l01104"></a>01104 k+=LDA; <a name="l01105"></a>01105 } <a name="l01106"></a>01106 *v=dd; <a name="l01107"></a>01107 } <a name="l01108"></a>01108 <span class="keywordflow">return</span> 0; <a name="l01109"></a>01109 } <a name="l01110"></a>01110 <a name="l01111"></a>01111 <a name="l01112"></a>01112 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatFNorm2(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *v){ <a name="l01113"></a>01113 dvecumat* A=(dvecumat*)AA; <a name="l01114"></a>01114 <span class="keywordtype">long</span> <span class="keywordtype">int</span> i,j,k=0,LDA=A->AA->LDA; <a name="l01115"></a>01115 <span class="keywordtype">double</span> dd=0,*x=A->AA->val; <a name="l01116"></a>01116 <span class="keywordflow">for</span> (i=0; i<n; i++){ <a name="l01117"></a>01117 <span class="keywordflow">for</span> (j=0;j<i;j++){ <a name="l01118"></a>01118 dd+=2*x[j]*x[j]; <a name="l01119"></a>01119 } <a name="l01120"></a>01120 dd+=x[i]*x[i]; <a name="l01121"></a>01121 k+=LDA; <a name="l01122"></a>01122 } <a name="l01123"></a>01123 *v=dd; <a name="l01124"></a>01124 <span class="keywordflow">return</span> 0; <a name="l01125"></a>01125 } <a name="l01126"></a>01126 <a name="l01127"></a>01127 <a name="l01128"></a>01128 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatCountNonzeros(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> *nnz, <span class="keywordtype">int</span> n){ <a name="l01129"></a>01129 *nnz=n*(n+1)/2; <a name="l01130"></a>01130 <span class="keywordflow">return</span> 0; <a name="l01131"></a>01131 } <a name="l01132"></a>01132 <a name="l01133"></a>01133 <a name="l01134"></a>01134 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatDot(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> x[], <span class="keywordtype">int</span> nn, <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *v){ <a name="l01135"></a>01135 dvecumat* A=(dvecumat*)AA; <a name="l01136"></a>01136 <span class="keywordtype">double</span> d1,dd=0,*v1=x,*v2=A->AA->val; <a name="l01137"></a>01137 ffinteger i,n2,ione=1,LDA=A->AA->LDA; <a name="l01138"></a>01138 <a name="l01139"></a>01139 <span class="keywordflow">for</span> (i=0;i<n;i++){ <a name="l01140"></a>01140 n2=i+1; <a name="l01141"></a>01141 d1=ddot(&n2,v1,&ione,v2,&ione); <a name="l01142"></a>01142 v1+=n; v2+=LDA; <a name="l01143"></a>01143 dd+=d1; <a name="l01144"></a>01144 } <a name="l01145"></a>01145 *v=2*dd; <a name="l01146"></a>01146 <span class="keywordflow">return</span> 0; <a name="l01147"></a>01147 } <a name="l01148"></a>01148 <a name="l01149"></a>01149 <span class="comment">/*</span> <a name="l01150"></a>01150 <span class="comment">static int DvecumatNormF2(void* AA, int n, double *v){</span> <a name="l01151"></a>01151 <span class="comment"> dvecumat* A=(dvecumat*)AA;</span> <a name="l01152"></a>01152 <span class="comment"> return(DTRUMatNormF2((void*)(A->AA), n,v));</span> <a name="l01153"></a>01153 <span class="comment">}</span> <a name="l01154"></a>01154 <span class="comment">*/</span> <a name="l01155"></a>01155 <span class="preprocessor">#undef __FUNCT__ </span> <a name="l01156"></a>01156 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DvecumatDestroy"</span> <a name="l01157"></a>01157 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatDestroy(<span class="keywordtype">void</span>* AA){ <a name="l01158"></a>01158 dvecumat* A=(dvecumat*)AA; <a name="l01159"></a>01159 <span class="keywordtype">int</span> info; <a name="l01160"></a>01160 info=DTRUMatDestroy((<span class="keywordtype">void</span>*)(A->AA)); <a name="l01161"></a>01161 <span class="keywordflow">if</span> (A->Eig){ <a name="l01162"></a>01162 DSDPFREE(&A->Eig->an,&info);DSDPCHKERR(info); <a name="l01163"></a>01163 DSDPFREE(&A->Eig->eigval,&info);DSDPCHKERR(info); <a name="l01164"></a>01164 } <a name="l01165"></a>01165 DSDPFREE(&A->Eig,&info);DSDPCHKERR(info); <a name="l01166"></a>01166 DSDPFREE(&A,&info);DSDPCHKERR(info); <a name="l01167"></a>01167 <span class="keywordflow">return</span> 0; <a name="l01168"></a>01168 } <a name="l01169"></a>01169 <a name="l01170"></a>01170 <a name="l01171"></a>01171 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatView(<span class="keywordtype">void</span>* AA){ <a name="l01172"></a>01172 dvecumat* A=(dvecumat*)AA; <a name="l01173"></a>01173 dtrumat* M=A->AA; <a name="l01174"></a>01174 <span class="keywordtype">int</span> i,j,LDA=M->LDA; <a name="l01175"></a>01175 <span class="keywordtype">double</span> *val=M->val; <a name="l01176"></a>01176 <span class="keywordflow">for</span> (i=0; i<M->n; i++){ <a name="l01177"></a>01177 <span class="keywordflow">for</span> (j=0; j<M->n; j++){ <a name="l01178"></a>01178 printf(<span class="stringliteral">" %4.2e"</span>,val[j]); <a name="l01179"></a>01179 } <a name="l01180"></a>01180 val+=LDA; <a name="l01181"></a>01181 } <a name="l01182"></a>01182 <span class="keywordflow">return</span> 0; <a name="l01183"></a>01183 } <a name="l01184"></a>01184 <a name="l01185"></a>01185 <a name="l01186"></a>01186 <span class="preprocessor">#undef __FUNCT__ </span> <a name="l01187"></a>01187 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPCreateDvecumatEigs"</span> <a name="l01188"></a>01188 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> CreateEigenLocker(Eigen **EE,<span class="keywordtype">int</span> neigs, <span class="keywordtype">int</span> n){ <a name="l01189"></a>01189 <span class="keywordtype">int</span> info; <a name="l01190"></a>01190 Eigen *E; <a name="l01191"></a>01191 <a name="l01192"></a>01192 DSDPCALLOC1(&E,Eigen,&info);DSDPCHKERR(info); <a name="l01193"></a>01193 DSDPCALLOC2(&E->eigval,<span class="keywordtype">double</span>,neigs,&info);DSDPCHKERR(info); <a name="l01194"></a>01194 DSDPCALLOC2(&E->an,<span class="keywordtype">double</span>,n*neigs,&info);DSDPCHKERR(info); <a name="l01195"></a>01195 E->neigs=neigs; <a name="l01196"></a>01196 *EE=E; <a name="l01197"></a>01197 <span class="keywordflow">return</span> 0; <a name="l01198"></a>01198 } <a name="l01199"></a>01199 <a name="l01200"></a>01200 <a name="l01201"></a>01201 <span class="keyword">static</span> <span class="keywordtype">int</span> EigMatSetEig(Eigen* A,<span class="keywordtype">int</span> row, <span class="keywordtype">double</span> eigv, <span class="keywordtype">double</span> v[], <span class="keywordtype">int</span> n){ <a name="l01202"></a>01202 <span class="keywordtype">double</span> *an=A->an; <a name="l01203"></a>01203 A->eigval[row]=eigv; <a name="l01204"></a>01204 memcpy((<span class="keywordtype">void</span>*)(an+n*row),(<span class="keywordtype">void</span>*)v,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l01205"></a>01205 <span class="keywordflow">return</span> 0; <a name="l01206"></a>01206 } <a name="l01207"></a>01207 <a name="l01208"></a>01208 <a name="l01209"></a>01209 <span class="keyword">static</span> <span class="keywordtype">int</span> EigMatGetEig(Eigen* A,<span class="keywordtype">int</span> row, <span class="keywordtype">double</span> *eigenvalue, <span class="keywordtype">double</span> eigenvector[], <span class="keywordtype">int</span> n){ <a name="l01210"></a>01210 <span class="keywordtype">double</span>* an=A->an; <a name="l01211"></a>01211 *eigenvalue=A->eigval[row]; <a name="l01212"></a>01212 memcpy((<span class="keywordtype">void</span>*)eigenvector,(<span class="keywordtype">void</span>*)(an+n*row),n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l01213"></a>01213 <span class="keywordflow">return</span> 0; <a name="l01214"></a>01214 } <a name="l01215"></a>01215 <a name="l01216"></a>01216 <a name="l01217"></a>01217 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatComputeEigs(dvecumat*,<span class="keywordtype">double</span>[],<span class="keywordtype">int</span>,<span class="keywordtype">double</span>[],<span class="keywordtype">int</span>,<span class="keywordtype">double</span>[],<span class="keywordtype">int</span>,<span class="keywordtype">int</span>[],<span class="keywordtype">int</span>); <a name="l01218"></a>01218 <a name="l01219"></a>01219 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatFactor(<span class="keywordtype">void</span>*AA, <span class="keywordtype">double</span> dmatp[], <span class="keywordtype">int</span> nn0, <span class="keywordtype">double</span> dwork[], <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> ddwork[], <span class="keywordtype">int</span> n1, <span class="keywordtype">int</span> iptr[], <span class="keywordtype">int</span> n2){ <a name="l01220"></a>01220 <a name="l01221"></a>01221 <span class="keywordtype">int</span> info; <a name="l01222"></a>01222 dvecumat* A=(dvecumat*)AA; <a name="l01223"></a>01223 <span class="keywordflow">if</span> (A->Eig) <span class="keywordflow">return</span> 0; <a name="l01224"></a>01224 info=DvecumatComputeEigs(A,dmatp,nn0,dwork,n,ddwork,n1,iptr,n2);DSDPCHKERR(info); <a name="l01225"></a>01225 <span class="keywordflow">return</span> 0; <a name="l01226"></a>01226 } <a name="l01227"></a>01227 <a name="l01228"></a>01228 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatGetRank(<span class="keywordtype">void</span> *AA,<span class="keywordtype">int</span> *rank, <span class="keywordtype">int</span> n){ <a name="l01229"></a>01229 dvecumat* A=(dvecumat*)AA; <a name="l01230"></a>01230 <span class="keywordflow">if</span> (A->Eig){ <a name="l01231"></a>01231 *rank=A->Eig->neigs; <a name="l01232"></a>01232 } <span class="keywordflow">else</span> { <a name="l01233"></a>01233 DSDPSETERR(1,<span class="stringliteral">"Vecu Matrix not factored yet\n"</span>); <a name="l01234"></a>01234 } <a name="l01235"></a>01235 <span class="keywordflow">return</span> 0; <a name="l01236"></a>01236 } <a name="l01237"></a>01237 <a name="l01238"></a>01238 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatGetEig(<span class="keywordtype">void</span>* AA, <span class="keywordtype">int</span> rank, <span class="keywordtype">double</span> *eigenvalue, <span class="keywordtype">double</span> vv[], <span class="keywordtype">int</span> n, <span class="keywordtype">int</span> indz[], <span class="keywordtype">int</span> *nind){ <a name="l01239"></a>01239 dvecumat* A=(dvecumat*)AA; <a name="l01240"></a>01240 <span class="keywordtype">int</span> i,info; <a name="l01241"></a>01241 <span class="keywordflow">if</span> (A->Eig){ <a name="l01242"></a>01242 info=EigMatGetEig(A->Eig,rank,eigenvalue,vv,n);DSDPCHKERR(info); <a name="l01243"></a>01243 *nind=n; <a name="l01244"></a>01244 <span class="keywordflow">for</span> (i=0;i<n;i++){ indz[i]=i;} <a name="l01245"></a>01245 } <span class="keywordflow">else</span> { <a name="l01246"></a>01246 DSDPSETERR(1,<span class="stringliteral">"Vecu Matrix not factored yet\n"</span>); <a name="l01247"></a>01247 } <a name="l01248"></a>01248 <span class="keywordflow">return</span> 0; <a name="l01249"></a>01249 } <a name="l01250"></a>01250 <a name="l01251"></a>01251 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecuEigVecVec(<span class="keywordtype">void</span>* AA, <span class="keywordtype">double</span> v[], <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *vv){ <a name="l01252"></a>01252 dvecumat* A=(dvecumat*)AA; <a name="l01253"></a>01253 <span class="keywordtype">int</span> i,rank,neigs; <a name="l01254"></a>01254 <span class="keywordtype">double</span> *an,dd,ddd=0,*eigval; <a name="l01255"></a>01255 <span class="keywordflow">if</span> (A->Eig){ <a name="l01256"></a>01256 an=A->Eig->an; <a name="l01257"></a>01257 neigs=A->Eig->neigs; <a name="l01258"></a>01258 eigval=A->Eig->eigval; <a name="l01259"></a>01259 <span class="keywordflow">for</span> (rank=0;rank<neigs;rank++){ <a name="l01260"></a>01260 <span class="keywordflow">for</span> (dd=0,i=0;i<n;i++){ <a name="l01261"></a>01261 dd+=v[i]*an[i]; <a name="l01262"></a>01262 } <a name="l01263"></a>01263 an+=n; <a name="l01264"></a>01264 ddd+=dd*dd*eigval[rank]; <a name="l01265"></a>01265 } <a name="l01266"></a>01266 *vv=ddd; <a name="l01267"></a>01267 } <span class="keywordflow">else</span> { <a name="l01268"></a>01268 DSDPSETERR(1,<span class="stringliteral">"Vecu Matrix not factored yet\n"</span>); <a name="l01269"></a>01269 } <a name="l01270"></a>01270 <span class="keywordflow">return</span> 0; <a name="l01271"></a>01271 } <a name="l01272"></a>01272 <a name="l01273"></a>01273 <a name="l01274"></a>01274 <span class="keyword">static</span> <span class="keyword">struct </span><a class="code" href="structDSDPDataMat__Ops.html" title="Table of function pointers that operate on the data matrix.">DSDPDataMat_Ops</a> dvecumatops; <a name="l01275"></a>01275 <span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">char</span> *datamatname=<span class="stringliteral">"STANDARD VECU MATRIX"</span>; <a name="l01276"></a>01276 <a name="l01277"></a>01277 <span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatOpsInitialize(<span class="keyword">struct</span> <a class="code" href="structDSDPDataMat__Ops.html" title="Table of function pointers that operate on the data matrix.">DSDPDataMat_Ops</a> *sops){ <a name="l01278"></a>01278 <span class="keywordtype">int</span> info; <a name="l01279"></a>01279 <span class="keywordflow">if</span> (sops==NULL) <span class="keywordflow">return</span> 0; <a name="l01280"></a>01280 info=<a class="code" href="dsdpdatamat_8c.html#a5d7a246134aa5186463e0f1f0fd561bd" title="Initialize the table of function pointers for SDP Data matrices.">DSDPDataMatOpsInitialize</a>(sops); DSDPCHKERR(info); <a name="l01281"></a>01281 sops->matvecvec=DvecumatVecVec; <a name="l01282"></a>01282 sops->matdot=DvecumatDot; <a name="l01283"></a>01283 sops->mataddrowmultiple=DvecumatGetRowAdd; <a name="l01284"></a>01284 sops->mataddallmultiple=DvecumatAddMultiple; <a name="l01285"></a>01285 sops->matview=DvecumatView; <a name="l01286"></a>01286 sops->matdestroy=DvecumatDestroy; <a name="l01287"></a>01287 sops->matfactor2=DvecumatFactor; <a name="l01288"></a>01288 sops->matgetrank=DvecumatGetRank; <a name="l01289"></a>01289 sops->matgeteig=DvecumatGetEig; <a name="l01290"></a>01290 sops->matrownz=DvecumatGetRowNnz; <a name="l01291"></a>01291 sops->matfnorm2=DvecumatFNorm2; <a name="l01292"></a>01292 sops->matnnz=DvecumatCountNonzeros; <a name="l01293"></a>01293 sops->id=1; <a name="l01294"></a>01294 sops->matname=datamatname; <a name="l01295"></a>01295 <span class="keywordflow">return</span> 0; <a name="l01296"></a>01296 } <a name="l01297"></a>01297 <a name="l01298"></a>01298 <span class="preprocessor">#undef __FUNCT__ </span> <a name="l01299"></a>01299 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPGetDUmat"</span> <a name="l01300"></a>01300 <span class="preprocessor"></span><span class="keywordtype">int</span> DSDPGetDUMat(<span class="keywordtype">int</span> n,<span class="keywordtype">double</span> *val, <span class="keyword">struct</span> <a class="code" href="structDSDPDataMat__Ops.html" title="Table of function pointers that operate on the data matrix.">DSDPDataMat_Ops</a>**sops, <span class="keywordtype">void</span>**smat){ <a name="l01301"></a>01301 <span class="keywordtype">int</span> info,k; <a name="l01302"></a>01302 <span class="keywordtype">double</span> dtmp; <a name="l01303"></a>01303 dvecumat* A; <a name="l01304"></a>01304 DSDPFunctionBegin; <a name="l01305"></a>01305 <a name="l01306"></a>01306 <span class="keywordflow">for</span> (k=0;k<n*n;++k) dtmp=val[k]; <a name="l01307"></a>01307 info=CreateDvecumatWdata(n,val,&A); DSDPCHKERR(info); <a name="l01308"></a>01308 A->Eig=0; <a name="l01309"></a>01309 info=DvecumatOpsInitialize(&dvecumatops); DSDPCHKERR(info); <a name="l01310"></a>01310 <span class="keywordflow">if</span> (sops){*sops=&dvecumatops;} <a name="l01311"></a>01311 <span class="keywordflow">if</span> (smat){*smat=(<span class="keywordtype">void</span>*)A;} <a name="l01312"></a>01312 DSDPFunctionReturn(0); <a name="l01313"></a>01313 } <a name="l01314"></a>01314 <a name="l01315"></a>01315 <a name="l01316"></a>01316 <span class="preprocessor">#undef __FUNCT__ </span> <a name="l01317"></a>01317 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DvecumatComputeEigs"</span> <a name="l01318"></a>01318 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> DvecumatComputeEigs(dvecumat* AA,<span class="keywordtype">double</span> DD[], <span class="keywordtype">int</span> nn0, <span class="keywordtype">double</span> W[], <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> WORK[], <span class="keywordtype">int</span> n1, <span class="keywordtype">int</span> iiptr[], <span class="keywordtype">int</span> n2){ <a name="l01319"></a>01319 <a name="l01320"></a>01320 <span class="keywordtype">int</span> i,neigs,info; <a name="l01321"></a>01321 <span class="keywordtype">long</span> <span class="keywordtype">int</span> *i2darray=(<span class="keywordtype">long</span> <span class="keywordtype">int</span>*)DD; <a name="l01322"></a>01322 <span class="keywordtype">int</span> ownarray1=0,ownarray2=0,ownarray3=0; <a name="l01323"></a>01323 <span class="keywordtype">double</span> *val=AA->AA->val; <a name="l01324"></a>01324 <span class="keywordtype">double</span> *dmatarray=0,*dworkarray=0,eps=1.0e-12; <a name="l01325"></a>01325 <span class="keywordtype">int</span> nn1=0,nn2=0; <a name="l01326"></a>01326 <a name="l01327"></a>01327 <span class="comment">/* create a dense array in which to put numbers */</span> <a name="l01328"></a>01328 <span class="keywordflow">if</span> (n*n>nn1){ <a name="l01329"></a>01329 DSDPCALLOC2(&dmatarray,<span class="keywordtype">double</span>,(n*n),&info); DSDPCHKERR(info); <a name="l01330"></a>01330 ownarray1=1; <a name="l01331"></a>01331 } <a name="l01332"></a>01332 memcpy((<span class="keywordtype">void</span>*)dmatarray,(<span class="keywordtype">void</span>*)val,n*n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l01333"></a>01333 <a name="l01334"></a>01334 <span class="keywordflow">if</span> (n*n>nn2){ <a name="l01335"></a>01335 DSDPCALLOC2(&dworkarray,<span class="keywordtype">double</span>,(n*n),&info); DSDPCHKERR(info); <a name="l01336"></a>01336 ownarray2=1; <a name="l01337"></a>01337 } <a name="l01338"></a>01338 <a name="l01339"></a>01339 <span class="keywordflow">if</span> (n*n*<span class="keyword">sizeof</span>(<span class="keywordtype">long</span> <span class="keywordtype">int</span>)>nn0*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)){ <a name="l01340"></a>01340 DSDPCALLOC2(&i2darray,<span class="keywordtype">long</span> <span class="keywordtype">int</span>,(n*n),&info); DSDPCHKERR(info); <a name="l01341"></a>01341 ownarray3=1; <a name="l01342"></a>01342 } <a name="l01343"></a>01343 <a name="l01344"></a>01344 <a name="l01345"></a>01345 <span class="comment">/* Call LAPACK to compute the eigenvalues */</span> <a name="l01346"></a>01346 info=DSDPGetEigs(dmatarray,n,dworkarray,n*n,i2darray,n*n, <a name="l01347"></a>01347 W,n,WORK,n1,iiptr,n2); <a name="l01348"></a>01348 <span class="keywordflow">if</span> (info){ <a name="l01349"></a>01349 memcpy((<span class="keywordtype">void</span>*)dmatarray,(<span class="keywordtype">void</span>*)val,n*n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); <a name="l01350"></a>01350 info=DSDPGetEigs2(dmatarray,n,dworkarray,n*n,i2darray,n*n, <a name="l01351"></a>01351 W,n,WORK,n1,iiptr+3*n,n2-3*n); DSDPCHKERR(info); <a name="l01352"></a>01352 } <a name="l01353"></a>01353 <a name="l01354"></a>01354 <span class="comment">/* Count the nonzero eigenvalues */</span> <a name="l01355"></a>01355 <span class="keywordflow">for</span> (neigs=0,i=0;i<n;i++){ <a name="l01356"></a>01356 <span class="keywordflow">if</span> (fabs(W[i])> eps ){ neigs++;} <a name="l01357"></a>01357 } <a name="l01358"></a>01358 <a name="l01359"></a>01359 info=CreateEigenLocker(&AA->Eig,neigs,n);DSDPCHKERR(info); <a name="l01360"></a>01360 <a name="l01361"></a>01361 <span class="comment">/* Copy into structure */</span> <a name="l01362"></a>01362 <span class="keywordflow">for</span> (neigs=0,i=0; i<n; i++){ <a name="l01363"></a>01363 <span class="keywordflow">if</span> (fabs(W[i]) > eps){ <a name="l01364"></a>01364 info=EigMatSetEig(AA->Eig,neigs,W[i],dmatarray+n*i,n);DSDPCHKERR(info); <a name="l01365"></a>01365 neigs++; <a name="l01366"></a>01366 } <a name="l01367"></a>01367 } <a name="l01368"></a>01368 <a name="l01369"></a>01369 <span class="keywordflow">if</span> (ownarray1){ DSDPFREE(&dmatarray,&info);DSDPCHKERR(info);} <a name="l01370"></a>01370 <span class="keywordflow">if</span> (ownarray2){ DSDPFREE(&dworkarray,&info);DSDPCHKERR(info);} <a name="l01371"></a>01371 <span class="keywordflow">if</span> (ownarray3){ DSDPFREE(&i2darray,&info);DSDPCHKERR(info);} <a name="l01372"></a>01372 <span class="keywordflow">return</span> 0; <a name="l01373"></a>01373 } <a name="l01374"></a>01374 </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>