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