procedure(case,cur,chem_name); /* initial data plot */

graph_name = cat('conserv_gr',cur);

tname=cat('conserv_gr',cur,'@curves');

if case > 1 then

begin;

graph_name = cat('retd_gr',cur);

tname=cat('retd_gr',cur,'@curves');

end;

if tableexists(tname) then delete graph(graph_name);

y_vec = vec$t2v(col 6 of table('data'));

x_vec = vec$t2v(col 7 of table('data'));

call public $_make_graph_tables(graph_name);

N= $_gr_addveccrv(graph_name,x_vec, y_vec,,'fcircle');

type nocr 'curve number ',n;

type '

';

call graphtables(graph_name,axt,cut,d_t,,,msg_t);

set row 2 col 7 of table(axt) to 'lin';

set row 1 col 1 of table(axt) to 'TIME (days)';

set row 2 col 1 of table(axt) to 'CONC';

set row 2 col 3 of table(axt) to 0.01;

set row 1 col 3 of table(axt) to 0.01;

set row 1 col 1 of table(cut) to chem_name;

end;