X - UWSpace - University of Waterloo

TERMINATE :
..,. Free up the problem as allocaced by CPXcreateprob ....
return ;
1
/* Record program start time '/
getcimeofdayi&tvl, (struct tirnezone*) 0) ;
idt = (double) (tvl-tisec) ~OCOOOO - tvl.tv,usec;
ptid = pvmjarent ( ;
Record the idle time to receive the initial data '/
gettimeofday(&tvl, [struct cimezone')O) ;
bufid = pvm-recv iptid, lil) : 1' Aeceive data */
rdtl = myseconds (rdtl) ;
fp = fopen(w/u:hjpark/phdthesFs~chrisjinn~utw,mwa~;
fprintf(fp, l Xeceiving Set up Data 'lime : 08f\nn. rdtlil000000):
fclose( fp) ;
buf id = pv-upkinc (&nb-subs, i, I) ; :* Unpack data '/
if (bufid < 0)
fp = f~pen!~~u/hjpark/phdtkesis,chrisjin.out", *aw) ;
fprintf(fp, 'ERROR in unpacking nb-subs\nml ;
fclose(fp1 ;
1
C fp = fopen~";u/hjpark/phdthesis/ctuisjin~out*,"a"l;
fprintf(fp, 'ERSOR in unpacking subtype\nm);
fclose ( fp) ;
1
gettineofday(&tvi, (struct cinezone* 10) ;
Sufid = ptm-rem (pcid, 1) ;
;* Receive initial problem data 'I'
rc=l = myseconds(rdtl) ;
fp = :cpen('. u/hjpark:phdthesis, chrisjin.outm, "am) ;
fprincftfp, ' Receivfng Set ~p Data Time : %BÉ\n''. rdtli10000001;
fclase(fp) ;