procedure(case,cur,chem_n,kp);

/*

procedure to creeate a table of parameters to display when the multi-graph is ploted

created July 98 CGE

*/

if case=1 then

begin;

if (cur = 1 ) then

begin;

tbl_name = cat('conserv',cur);

if tableexists(tbl_name) then delete table(tbl_name);

make table(tbl_name) from table('parameter');

delete col 7 of table(tbl_name);

delete col 6 of table(tbl_name);

delete col 5 of table(tbl_name);

delete col 3 of table(tbl_name);

delete col 2 of table(tbl_name);

delete row 11 of table(tbl_name);

delete row 10 of table(tbl_name);

delete row 9 of table(tbl_name);

delete row 6 of table(tbl_name);

delete row 5 of table(tbl_name);

delete row 4 of table(tbl_name);

delete row 2 of table(tbl_name);

delete row 1 of table(tbl_name);

end;

if (cur =2 ) then

begin;

tbl_name = cat('conserv',cur);

if tableexists(tbl_name) then delete table(tbl_name);

make table(tbl_name) from table('parameter');

delete col 7 of table(tbl_name);

delete col 6 of table(tbl_name);

delete col 5 of table(tbl_name);

delete col 3 of table(tbl_name);

delete col 2 of table(tbl_name);

delete row 10 of table(tbl_name);

delete row 9 of table(tbl_name);

delete row 6 of table(tbl_name);

delete row 5 of table(tbl_name);

delete row 4 of table(tbl_name);

delete row 3 of table(tbl_name);

delete row 2 of table(tbl_name);

delete row 1 of table(tbl_name);

end;

end;

if (case > 1 ) then

begin;

if (cur = 1 ) then

begin;

tbl_name = cat('retard',cur);

if tableexists(tbl_name) then delete table(tbl_name);

make table(tbl_name) from table('parameter');

delete col 7 of table(tbl_name);

delete col 6 of table(tbl_name);

delete col 5 of table(tbl_name);

delete col 3 of table(tbl_name);

delete col 2 of table(tbl_name);

tp=row 7 col 1 of table(tbl_name);

tn= row 't1' col 1 of table('conserv1');

delete row 11 of table(tbl_name);

delete row 10 of table(tbl_name);

delete row 9 of table(tbl_name);

delete row 5 of table(tbl_name);

delete row 4 of table(tbl_name);

delete row 2 of table(tbl_name);

delete row 1 of table(tbl_name);

last_r= lastrow(tbl_name);

sn=(tp/tn-1)/kp;

tbl_name[last_r+1,0]='Sn';

tbl_name[last_r+1,1]=sn;

end;

if (cur =2 ) then

begin;

tbl_name = cat('retard',cur);

if tableexists(tbl_name) then delete table(tbl_name);

make table(tbl_name) from table('parameter');

delete col 7 of table(tbl_name);

delete col 6 of table(tbl_name);

delete col 5 of table(tbl_name);

delete col 3 of table(tbl_name);

delete col 2 of table(tbl_name);

tp=row 7 col 1 of table(tbl_name);

tn= row 't1' col 1 of table('conserv2');

delete row 10 of table(tbl_name);

delete row 9 of table(tbl_name);

delete row 5 of table(tbl_name);

delete row 4 of table(tbl_name);

delete row 3 of table(tbl_name);

delete row 2 of table(tbl_name);

delete row 1 of table(tbl_name);

last_r= lastrow(tbl_name);

sn=(tp/tn-1)/kp;

tbl_name[last_r+1,0]='Sn';

tbl_name[last_r+1,1]=sn;

end;

end;

end;