$ontext

Filename: baronoptions.gms
Author: Mohit Tawarmalani, August 2002
Purpose: To generate options for the pooling problems

$offtext

scalar numbranch, numstore, dolocal,
       numloc, pdo, pxdo, maxheur;

numloc = 1;

file opt1 /baron.opt/;
if (%gams.optfile% eq 1,
put opt1;
put 'numloc ', numloc:4:0 /;
putclose opt1;
);

numbranch = sum(pool, sum(comp$(ubq(comp,pool)>0), 1) +
               sum(pro$(uby(pool,pro)>0), 1));
numstore = numbranch;

file opt2 /baron.op2/;
if (%gams.optfile% eq 2,
put opt2;
put 'numloc ', numloc:4:0 /;
put 'numbranch ', numbranch:4:0 /;
put 'numstore ', numstore:4:0 /;
putclose opt2;
);

pdo = 5;
pxdo = 5;

file opt3 /baron.op3/;
if (%gams.optfile% eq 3,
put opt3;
put 'numloc ', numloc:4:0 /;
put 'numbranch ', numbranch:4:0 /;
put 'numstore ', numstore:4:0 /;
put 'pdo ', pdo:4:0 /;
put 'pxdo', pxdo:4:0 /;
putclose opt3;
);

dolocal = -999;
maxheur = 3;

file opt4 /baron.op4/;
if (%gams.optfile% eq 4,
put opt4;
put 'numloc ', numloc:4:0 /;
put 'dolocal ', dolocal:4:0 /;
put 'maxheur ', maxheur:4:0 /;
put 'numbranch ', numbranch:4:0 /;
put 'numstore ', numstore:4:0 /;
put 'pdo ', pdo:4:0 /;
put 'pxdo', pxdo:4:0 /;
putclose opt4;
);

numbranch = sum(pool, sum(comp$(ubq(comp,pool)>0), 1));

file opt5 /baron.op5/;
if (%gams.optfile% eq 5,
put opt5;
put 'numloc ', numloc:4:0 /;
put 'dolocal ', dolocal:4:0 /;
put 'numbranch ', numbranch:4:0 /;
put 'numstore ', numstore:4:0 /;
put 'pdo ', pdo:4:0 /;
put 'pxdo', pxdo:4:0 /;
putclose opt5;
);