X - UWSpace - University of Waterloo

status = CPXnewcols (env,lp, 1, &LpSub[2]->CX, &Lam-10, &L=up, NULL, m);
if (status)
fprintf (fp, ' =OR in defining a new column! ! ! \nu 1 ;
for(i=HISPb,m[O]; i cHISPb,m[cur-block] ; i++)
i
status = CPXchgcoef (env, lp, i, LpS~(cur,blockj->n + HISPb-m[nb-subs]+
+iter,count-2+totlev2C. LpSubfZj->LY[ij);
1
for(i=LpSub[ll ->m - LOWSPb-m[ij -1; iml; i++)
I
status = ~PXchgcoef(env, Ip, i, LpSublcur-blockl->n+HISPbs[nb-subs]
+ iter-count-2 - totlev2C ,
LpSubt21 ->LY[~-LpSub[ll ->m - LOWSPb-m[l]+l+HISPb~[cu~:~block~ 1) ;
1
status = CPXchgcoef (env, lp, ( int (LpSub[cur-block] ->m-1) ,
LpSub[l~-~n+XISPb~[1]+LOWSPb~m(I~+iter~co~t-2+totlev2C,
Lam,coef) ;
/* Lower level iteration. 'exitlev2' Fs a signal coming from lower-uppex
bound subproblem asking CO exit lower level iteration */
while(lev2-count < 150 && (objval[3] - objval[l] > 0.0001 1 1 lev2,count cl)
&& (lev2,counc c 1 II exitlev2 c= O 11
LpSub[cur-blockl->Pi3 = CompuPiB(LpSub);
LpSub [ cur,block] - >OMeL = CompuOMet ( LpSub ;
LpSub (-,block] ->PiD = CompuPiD (LpSubl ;
1
pvm-initsend(FvmDataRaw1;
info = pvm-pkdouble (&LpSublcur-biockl-,PiS, i, 1);
inf O = pvm_pkdouble (LpSub [cur-block] ->Pi& LSPb-n [cur-blockl , Il ;
info = pvmgkdouble (LpSub [cur,block] ->OMeL, HISPb-n [nb-subs 1 , 1) ;
Lnfo = pvmgkdouble (LpSub leur-blockl ->Ornega, LSPb,m[cur,blockj , 11 ;
if(info < 0)
fprintf ( fp, 'ERROR in packing data\nn ;
gettimeofday(&tvl, (struct tbezone*) 0 1 ;
bufid = ptm_retv(tid[31, 2 ) ;
rdtl = myseconds(rdtl);
fgrincfifp, * Receiving Set up Data Time : S8f\nn, rdt~/~000000);
, * Md a primai proposal from subproblem 3 (louer-upper bond s9roblem) */
status = C?Xnewcols(env,~p, 1, tLpSub[3]->a, &Lam,lo, &Lam,up, NUU, NUIL);
if tstatus)
fprincf ( fp, ' ERROR in defining a new col^ ! ! ! \na ) ;