X - UWSpace - University of Waterloo
X - UWSpace - University of Waterloo
X - UWSpace - University of Waterloo
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
fp = fopen('/u/hjpark/phdthesis/c~isjin.out~,'a*~;<br />
fprintf(fp,' ERROR in unpacking data to define the subproblem !!!\na);<br />
/* Find the number <strong>of</strong> accumulated linking variables and constraints */<br />
HISPb-m = (long '1 malloc((nb,subs + l)*site<strong>of</strong>(long));<br />
HISPb-n = (long *) malloc((nb,subs + I)*size<strong>of</strong>(longl);<br />
info = pvm-upklong ( LpSub[cur-Slockl->mmbs, SPb-nt[cur,block], 1) ;<br />
info = pt-upkdouble ( LpSi;b[cur-blockj-~oeffç, SPb-nz[cur,block], Il;<br />
info = pvm-upklong ( LpSub[cur,blockl->crpnts, SPb,n[cur-blockl+l, 1);<br />
info = pvm-upkdouble ( LpSub[cur-blockl->lo-bnds, SPb-n[cur-block], 11;<br />
inf O = pvm-upkdouble ( LpSub Icur-block] ->up,bnds, SPb-n [cur-blockl , 1) ;<br />
info = pvm-upklong ( LpÇub[cur,Slockl->row-tme, SPb,m[--block],l);<br />
info = pvm-upkdouble (LpSub[~ur~blockl-~rhs,SPb~m[c~~~b1ockj,1~;<br />
info = pvm-upkdouble (LpSub[cur,blockl->ranges, SPb-m[cur,blockJ,1);<br />
if (info c 0)<br />
fp = £open( '/u/hjpark/phdtfiesis/c~isjin.outW , 'a* 1 ;<br />
fprintf(fp,' ERROR in unpacking data to define the subproblem !!!\cm);<br />
!* Take the program end the and measuxe ~otal program the */<br />
gettime<strong>of</strong>dayt&tvl, (stnct timezone*)O);<br />
edt = (double) (tv1.t~-sec) - 1300C00 t cvL.cv-usec;<br />
fp = fopen( *, u/ hjpark/phdthesis/ chrisjinnoutm, "a*) ;<br />
fprintf(fp, 'Total program rime : %8f\n9, (edt-idt)/1000000);<br />
fcloset fpl ;<br />
t t t t r t * ~ t ~ t 8 t ~ t t t t ~ t t ~ ~ ~ ~ * t t 8 e ~ ~ ~ r ~ e * r t ~ ~ ~ ~ ~ ~ e r t ~<br />
C.2 Processor 2 : Upper-Uppr Bound Subproblem<br />
FILES. VARIABLES<br />
* Cornute the prima1 info,.r=nation (LY and 3X) :O send */<br />
Fnt i, j, p;