function writerec(simout,iter,wtlog,pri,pdat,gc);
   fprintf(simout,'%5d%16.7e%16.7e%16.7e\n', iter, wtlog,pri,pdat); 
   for i=1:length(gc);
      fprintf(simout,'%16.7e', gc(i)); 
      if (rem(i,5)==0) | (i==length(gc));
         fprintf(simout,'\n');
      end;
   end;
end;