function dumproc(id,roc,outfile)
% WBL 25 Sept 2002 
% $Revision: 1.1 $  $Date: 2002/09/25 14:51:14 $

for i=1:size(roc,1)
    fprintf(outfile,'%3d %f %f\n',id,roc(i,1),roc(i,2));    
end
fprintf(outfile,'\n');