X - UWSpace - University of Waterloo

short
LowerSound (LpSubProb **LpSub)
{
.... Declare and allocate space for the variables and arrays ....
/* Receive initial data for linking variables of other parts */
gercirneofday(&tvl, (strucc cixnezone*)O);
bufid = pta_recv(ptid, 10) ;
rdtl = myseconds(rdtl);
fp = fopen(m/u/hjpark/phdthesis/c~isjin.outm,ma'~;
fprincfIfp, ' Receiving Set up Data Time : 38f\nm, rdt1/1000000);
t
info = pvm-upklong(LpSub[k]->clpnts, LSPb-n[kl+l, LI;
inf O = pvn-upklong (~psub [k] ->rmmbs, ~ p~ub [kl ->clpnts [LSPb-n [kl 1.1) ;
info = pm-upkdoïble(LpSub[kl-~coeffs, LpSub[kl->clpncs[SSPb-n[klI.l);
.'* Ir. order CO load the subproblea to CILEX, conver: data (sense) CPLEY
fornac and recrieve che vector which indicates the number of nonzero
elements (rnatcnt) in each column and objective function coefficients
(objcoeffs)*/
far(i=O; i < LpSub[cur,blockl->m ;i+-1
fsr(j=O: jn:j++li
natcnt [ j 1 = (in:) i~p~ub[cur,blockl ->cIpnts [ j+ll
-LpSub [cur-block] ->clpnts [ j ll;
if ( LpSub [cur-block] ->rvMbs [LpSuh[cur-block] ->clpnts [ j 1 1 == 0)
objcoeif s [ j 1 = -LpSub [cur-blockl ->coeffs [LpSub [cur-blockl ->clpnts [ j 1 1 ;
. * I~icialize the CPLZK envirament * i
env = CPXopenCPLEYdevelop (hscatusl;
if ( ex- == NtZL 1 (
char err;nsg[l024l;
Syzintf tstderr, 'Could not open CILLK enviromenr.\nm);
Z?X~eterrorstrFzg (env, status, e -ng) r
fprintf Istdezr, '%su, ernilsgi ;