<!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/sdp/sdpconevec.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_2c21778722bc8593635d5ebd154ac3f7.html">sdp</a> </li>
</ul>
</div>
</div>
<div class="header">
<div class="headertitle">
<div class="title">sdpconevec.c</div> </div>
</div>
<div class="contents">
<a href="sdpconevec_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="sdpconevec_8h.html" title="Each block of the SDPCone has two vectors of appropriate size.">sdpconevec.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="l00009"></a>00009 <span class="preprocessor">#define SDPConeVecCheck(a,b) {if (a.dim != b.dim) return 1; if (a.dim>0 && (a.val==NULL || b.val==NULL) ) return 2;}</span>
<a name="l00010"></a>00010 <span class="preprocessor"></span><span class="keyword">static</span> <span class="keywordtype">int</span> nvecs=0;
<a name="l00011"></a>00011
<a name="l00012"></a>00012 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00013"></a>00013 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecCreate"</span>
<a name="l00014"></a>00014 <span class="preprocessor"></span><span class="keywordtype">int</span> SDPConeVecCreate(<span class="keywordtype">int</span> n ,<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> *V){
<a name="l00015"></a>00015 <span class="keywordtype">int</span> info;
<a name="l00016"></a>00016 V->dim=n;
<a name="l00017"></a>00017 <span class="keywordflow">if</span> (n>0){
<a name="l00018"></a>00018 nvecs++;
<a name="l00019"></a>00019 DSDPCALLOC2(&(V->val),<span class="keywordtype">double</span>,n,&info);DSDPCHKERR(info);
<a name="l00020"></a>00020 } <span class="keywordflow">else</span> {
<a name="l00021"></a>00021 V->val=NULL;
<a name="l00022"></a>00022 }
<a name="l00023"></a>00023 <span class="keywordflow">return</span> 0;
<a name="l00024"></a>00024 }
<a name="l00025"></a>00025
<a name="l00026"></a>00026 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00027"></a>00027 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecDestroy"</span>
<a name="l00028"></a>00028 <span class="preprocessor"></span><span class="keywordtype">int</span> SDPConeVecDestroy(<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> *V){
<a name="l00029"></a>00029 <span class="keywordtype">int</span> info;
<a name="l00030"></a>00030 <span class="keywordflow">if</span> ((*V).val){
<a name="l00031"></a>00031 DSDPFREE(&(*V).val,&info);DSDPCHKERR(info);
<a name="l00032"></a>00032 nvecs--;
<a name="l00033"></a>00033 }
<a name="l00034"></a>00034
<a name="l00035"></a>00035 (*V).dim=0;
<a name="l00036"></a>00036 (*V).val=0;
<a name="l00037"></a>00037 <span class="keywordflow">return</span> 0;
<a name="l00038"></a>00038 }
<a name="l00039"></a>00039
<a name="l00040"></a>00040 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00041"></a>00041 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecView"</span>
<a name="l00042"></a>00042 <span class="preprocessor"></span>
<a name="l00049"></a><a class="code" href="sdpconevec_8h.html#a1e4098f958e4cf9f13d69252d0aeaf1e">00049</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a4af0096eab7b3da3c9d224884709c137" title="Print the elements of the vector.">SDPConeVecView</a>(<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> V){
<a name="l00050"></a>00050 <span class="keywordtype">int</span> i;
<a name="l00051"></a>00051 <span class="keywordflow">for</span> (i=0; i<V.dim; i++){
<a name="l00052"></a>00052 printf(<span class="stringliteral">"%3.3e "</span>,V.val[i]);
<a name="l00053"></a>00053 }
<a name="l00054"></a>00054 printf(<span class="stringliteral">"\n"</span>);
<a name="l00055"></a>00055 <span class="keywordflow">return</span> 0;
<a name="l00056"></a>00056 }
<a name="l00057"></a>00057
<a name="l00058"></a>00058 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00059"></a>00059 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecZero"</span>
<a name="l00060"></a>00060 <span class="preprocessor"></span>
<a name="l00067"></a><a class="code" href="sdpconevec_8h.html#a38ce291d56cdb5d983c4ddc0af57152e">00067</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#aabe353b42ee6b9c2f4db24b3996d2baf" title="Zero the elements of the vector.">SDPConeVecZero</a>(<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> V){
<a name="l00068"></a>00068 <span class="keywordtype">int</span> n=V.dim;
<a name="l00069"></a>00069 <span class="keywordtype">double</span> *v=V.val;
<a name="l00070"></a>00070 memset((<span class="keywordtype">void</span>*)v,0,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>));
<a name="l00071"></a>00071 <span class="keywordflow">return</span> 0;
<a name="l00072"></a>00072 }
<a name="l00073"></a>00073
<a name="l00074"></a>00074
<a name="l00075"></a>00075 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00076"></a>00076 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecNormalize"</span>
<a name="l00077"></a>00077 <span class="preprocessor"></span>
<a name="l00084"></a><a class="code" href="sdpconevec_8h.html#a341152a37780185b06d3e83e585189f8">00084</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#ad4e291595a68e1f476f047a1983eb9d5" title="Scale the vector to norm of 1.">SDPConeVecNormalize</a>(<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> V){
<a name="l00085"></a>00085 <span class="keywordtype">int</span> info;
<a name="l00086"></a>00086 <span class="keywordtype">double</span> vnorm;
<a name="l00087"></a>00087 info = <a class="code" href="sdpconevec_8c.html#a0f0dc0f70e8bd7cbdde3dbcf4c925f06" title="Compute the Euclidean norm.">SDPConeVecNorm2</a>(V,&vnorm);DSDPCHKERR(info);
<a name="l00088"></a>00088 <span class="keywordflow">if</span> (vnorm==0){ <span class="keywordflow">return</span> 1;}
<a name="l00089"></a>00089 vnorm=1.0/(vnorm);
<a name="l00090"></a>00090 info = <a class="code" href="sdpconevec_8c.html#aa96c836f6ec003af73fd3fc9d24db24e" title="Compute the Euclidean norm.">SDPConeVecScale</a>(vnorm,V);DSDPCHKERR(info);
<a name="l00091"></a>00091 <span class="keywordflow">return</span> 0;
<a name="l00092"></a>00092 }
<a name="l00093"></a>00093
<a name="l00094"></a>00094 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00095"></a>00095 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecCopy"</span>
<a name="l00096"></a>00096 <span class="preprocessor"></span>
<a name="l00103"></a><a class="code" href="sdpconevec_8h.html#ae53559a2757a15c81e9e71409bced3d6">00103</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a1e15e8a3438013cc83b22e3d09df5adc" title="Copy v1 to v2.">SDPConeVecCopy</a>( <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> v1, <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> v2){
<a name="l00104"></a>00104
<a name="l00105"></a>00105 <span class="keywordtype">int</span> n=v1.dim;
<a name="l00106"></a>00106 <span class="keywordtype">double</span> *val1=v1.val,*val2=v2.val;
<a name="l00107"></a>00107 SDPConeVecCheck(v1,v2);
<a name="l00108"></a>00108 <span class="keywordflow">if</span> (val1!=val2){
<a name="l00109"></a>00109 memcpy(val2,val1,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>));
<a name="l00110"></a>00110 }
<a name="l00111"></a>00111 <span class="keywordflow">return</span> 0;
<a name="l00112"></a>00112 }
<a name="l00113"></a>00113
<a name="l00114"></a>00114
<a name="l00115"></a>00115 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00116"></a>00116 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecDot"</span>
<a name="l00117"></a>00117 <span class="preprocessor"></span>
<a name="l00125"></a><a class="code" href="sdpconevec_8h.html#a34f3fdfa578dcb6da0953dd808082ac1">00125</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#aaf2acb6a6221592957980b795972776f" title="Inner product of two vectors.">SDPConeVecDot</a>(<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> V1, <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> V2, <span class="keywordtype">double</span> *ans){
<a name="l00126"></a>00126 ffinteger ione=1, nn=V1.dim;
<a name="l00127"></a>00127 <span class="keywordtype">double</span> *v1=V1.val,*v2=V2.val;
<a name="l00128"></a>00128 *ans=ddot(&nn,v1,&ione,v2,&ione);
<a name="l00129"></a>00129 <span class="keywordflow">if</span> (*ans!=*ans) <span class="keywordflow">return</span> 1;
<a name="l00130"></a>00130 <span class="keywordflow">return</span> 0;
<a name="l00131"></a>00131 }
<a name="l00132"></a>00132
<a name="l00133"></a>00133
<a name="l00134"></a>00134 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00135"></a>00135 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecNorm2"</span>
<a name="l00136"></a>00136 <span class="preprocessor"></span>
<a name="l00143"></a><a class="code" href="sdpconevec_8h.html#ad6031422adecd5ab2b05f4bfca211de9">00143</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a0f0dc0f70e8bd7cbdde3dbcf4c925f06" title="Compute the Euclidean norm.">SDPConeVecNorm2</a>( <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> VV, <span class="keywordtype">double</span> *vnorm){
<a name="l00144"></a>00144 ffinteger ione=1,nn=VV.dim;
<a name="l00145"></a>00145 <span class="keywordtype">double</span> dd,*v=VV.val;
<a name="l00146"></a>00146 dd=dnrm2(&nn,v,&ione);
<a name="l00147"></a>00147 *vnorm = dd;
<a name="l00148"></a>00148 <span class="keywordflow">if</span> (*vnorm!=*vnorm) <span class="keywordflow">return</span> 1;
<a name="l00149"></a>00149 <span class="keywordflow">return</span> 0;
<a name="l00150"></a>00150 }
<a name="l00151"></a>00151
<a name="l00152"></a>00152 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00153"></a>00153 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecScale"</span>
<a name="l00154"></a>00154 <span class="preprocessor"></span>
<a name="l00161"></a><a class="code" href="sdpconevec_8h.html#a8fc01c2ab0727e9ce0d77d334b6b56c6">00161</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#aa96c836f6ec003af73fd3fc9d24db24e" title="Compute the Euclidean norm.">SDPConeVecScale</a>(<span class="keywordtype">double</span> alpha, <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> VV){
<a name="l00162"></a>00162 ffinteger ione=1,nn=VV.dim;
<a name="l00163"></a>00163 <span class="keywordtype">double</span> *v=VV.val;
<a name="l00164"></a>00164 dscal(&nn,&alpha,v,&ione);
<a name="l00165"></a>00165 <span class="keywordflow">return</span> 0;
<a name="l00166"></a>00166 }
<a name="l00167"></a>00167
<a name="l00168"></a>00168 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00169"></a>00169 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecAXPY"</span>
<a name="l00170"></a>00170 <span class="preprocessor"></span>
<a name="l00178"></a><a class="code" href="sdpconevec_8h.html#a8d0c127040be62406996aabe357f86dd">00178</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a09b3931fbac3a916e530016400213d71" title="Add a multiple of X to Y.">SDPConeVecAXPY</a>(<span class="keywordtype">double</span> alpha, <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> x, <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> y){
<a name="l00179"></a>00179 ffinteger ione=1,nn=x.dim;
<a name="l00180"></a>00180 <span class="keywordtype">double</span> *yy=y.val,*xx=x.val;
<a name="l00181"></a>00181 <span class="keywordflow">if</span> (alpha==0) <span class="keywordflow">return</span> 0;
<a name="l00182"></a>00182 daxpy(&nn,&alpha,xx,&ione,yy,&ione);
<a name="l00183"></a>00183 <span class="keywordflow">return</span> 0;
<a name="l00184"></a>00184 }
<a name="l00185"></a>00185
<a name="l00186"></a>00186 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00187"></a>00187 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecDuplicate"</span>
<a name="l00188"></a>00188 <span class="preprocessor"></span>
<a name="l00195"></a><a class="code" href="sdpconevec_8h.html#aeb018bf6141e90c915f4100311c62c5b">00195</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a0b5c0b92c582546c95a5d676a3ed06c4" title="Allocate another vector with the same structure as the first.">SDPConeVecDuplicate</a>(<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> V1,<a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> *V2){
<a name="l00196"></a>00196 <span class="keywordtype">int</span> info,n=V1.dim;
<a name="l00197"></a>00197 info = SDPConeVecCreate(n ,V2);DSDPCHKERR(info);
<a name="l00198"></a>00198 <span class="keywordflow">return</span> 0;
<a name="l00199"></a>00199 }
<a name="l00200"></a>00200
<a name="l00201"></a>00201
<a name="l00202"></a>00202 <span class="preprocessor">#undef __FUNCT__</span>
<a name="l00203"></a>00203 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "SDPConeVecSet"</span>
<a name="l00204"></a>00204 <span class="preprocessor"></span>
<a name="l00211"></a><a class="code" href="sdpconevec_8h.html#a5daa0d880bb244894d5193cd161c2a52">00211</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#aecbde49bc8a9f21a21f8910ee3605753" title="Set each element of vector to this number.">SDPConeVecSet</a>(<span class="keywordtype">double</span> alpha, <a class="code" href="structSDPConeVec__C.html" title="Vector whose length corresponds to dimension of a block in a cone.">SDPConeVec</a> V){
<a name="l00212"></a>00212
<a name="l00213"></a>00213 <span class="keywordtype">int</span> i,n=V.dim;
<a name="l00214"></a>00214 <span class="keywordtype">double</span> *val=V.val;
<a name="l00215"></a>00215
<a name="l00216"></a>00216 <span class="keywordflow">if</span> (alpha==0.0){
<a name="l00217"></a>00217 memset((<span class="keywordtype">void</span>*)val,0,n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>));
<a name="l00218"></a>00218 <span class="keywordflow">return</span> 0;
<a name="l00219"></a>00219 }
<a name="l00220"></a>00220 <span class="keywordflow">for</span> (i=0; i<n; ++i){
<a name="l00221"></a>00221 val[i]= alpha;
<a name="l00222"></a>00222 }
<a name="l00223"></a>00223 <span class="keywordflow">return</span> 0;
<a name="l00224"></a>00224 }
<a name="l00225"></a>00225
<a name="l00226"></a>00226 <span class="preprocessor">#undef __FUNCT__ </span>
<a name="l00227"></a>00227 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPIndexInitialize"</span>
<a name="l00228"></a>00228 <span class="preprocessor"></span>
<a name="l00234"></a><a class="code" href="sdpconevec_8h.html#aafd386f1c969f75b8988be32a464e31c">00234</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#aece9ed7b85bae935bfb13788aa0de60c" title="Set structure pointers to 0.">DSDPIndexInitialize</a>(DSDPIndex *IS){
<a name="l00235"></a>00235 DSDPFunctionBegin;
<a name="l00236"></a>00236 IS->indx=0;
<a name="l00237"></a>00237 DSDPFunctionReturn(0);
<a name="l00238"></a>00238 }
<a name="l00239"></a>00239 <span class="preprocessor">#undef __FUNCT__ </span>
<a name="l00240"></a>00240 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPIndexCreate"</span>
<a name="l00241"></a>00241 <span class="preprocessor"></span>
<a name="l00248"></a><a class="code" href="sdpconevec_8h.html#abce1841f4f8c3d9d7b97628175687263">00248</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a53a8408afb7550464ba8e0c5ff84f949" title="Allocate array for indices.">DSDPIndexCreate</a>(<span class="keywordtype">int</span> n,DSDPIndex *IS){
<a name="l00249"></a>00249 <span class="keywordtype">int</span> info,*is;
<a name="l00250"></a>00250 DSDPFunctionBegin;
<a name="l00251"></a>00251 DSDPCALLOC2(&is,<span class="keywordtype">int</span>,n+1,&info);
<a name="l00252"></a>00252 IS->indx=is;is[0]=0;
<a name="l00253"></a>00253 DSDPFunctionReturn(0);
<a name="l00254"></a>00254 }
<a name="l00255"></a>00255
<a name="l00256"></a>00256 <span class="preprocessor">#undef __FUNCT__ </span>
<a name="l00257"></a>00257 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPIndexDestroy"</span>
<a name="l00258"></a>00258 <span class="preprocessor"></span>
<a name="l00264"></a><a class="code" href="sdpconevec_8h.html#ac930888bacf13b9b30c1a2f5042c5d5d">00264</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a21a43b855d553444080b135912c2227d" title="Deallocate memory.">DSDPIndexDestroy</a>(DSDPIndex *IS){
<a name="l00265"></a>00265 <span class="keywordtype">int</span> info;
<a name="l00266"></a>00266 DSDPFunctionBegin;
<a name="l00267"></a>00267 DSDPFREE(&IS->indx,&info);DSDPCHKERR(info);
<a name="l00268"></a>00268 DSDPFunctionReturn(0);
<a name="l00269"></a>00269 }
<a name="l00270"></a>00270
<a name="l00271"></a>00271 <span class="preprocessor">#undef __FUNCT__ </span>
<a name="l00272"></a>00272 <span class="preprocessor"></span><span class="preprocessor">#define __FUNCT__ "DSDPIndexView"</span>
<a name="l00273"></a>00273 <span class="preprocessor"></span>
<a name="l00279"></a><a class="code" href="sdpconevec_8h.html#a21fc9da1f6fc1f788e7cafa4882abea5">00279</a> <span class="keywordtype">int</span> <a class="code" href="sdpconevec_8c.html#a5b1f22e11b9655d118a25e5af93415e7" title="Print indices.">DSDPIndexView</a>(DSDPIndex IS){
<a name="l00280"></a>00280 <span class="keywordtype">int</span> i;
<a name="l00281"></a>00281 DSDPFunctionBegin;
<a name="l00282"></a>00282 printf(<span class="stringliteral">"Index Set with %d indices.\n"</span>,IS.indx[0]);
<a name="l00283"></a>00283 <span class="keywordflow">for</span> (i=0;i<IS.indx[0];i++){
<a name="l00284"></a>00284 printf(<span class="stringliteral">" %d"</span>,IS.indx[i+1]);
<a name="l00285"></a>00285 }
<a name="l00286"></a>00286 printf(<span class="stringliteral">" \n"</span>);
<a name="l00287"></a>00287 DSDPFunctionReturn(0);
<a name="l00288"></a>00288 }
</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>
