fp=fopen('mystuff.asc','wt');
for ii=1:length(time)
%for ii=1:10
fprintf(fp,'%8.4f\t%8.4f\t%4.0f\t%4.0f\t%2.0f\t%2.0f\t%2.0f\t%2.0f\t%5.3f\t%8.4f\t%5.4f\t%5.3f\t%6.4f',latitude(1,1),longitude(1,1),depth(1,1),year(ii,:),month(ii,:),day(ii,:),hour(ii,:),minute(ii,:),second(ii,:),time(ii,:),F(ii,:),Trans(ii,:),par(ii,:));
fprintf(fp,'\n');
end
fclose(fp);
%type 'mystuff.asc'
