%---------------------------------------------------------
% fwrite1col
%---------------------------------------------------------
% write a one column datafile
%
% input:	outfile	string	filename to write
% 		x		real(n)	1st column
% 		n		int		number of datapoints
%
% usage:	fwrite1col(outfile)
%
%---------------------------------------------------------
% N.Teanby      27/9/2013	Original version
%---------------------------------------------------------
function [] = fwrite1col(outfile,x,n)

file_id     = fopen(outfile,'w');
for i=1:n
  fprintf(file_id,'%16.6e\n',x(i));
end
fclose(file_id);

