disp('prt_jas_GPS_head_PFS_07');
fclose('all');
clear jaz;
%This program takes data computed by the read_gps_day progam and creates an ascii
%file appropriate for reading into a spreadsheet (e.g., lotus, quatropro, etc)
%Files are written as proc_gps_head_DDD.txt where DDD is julian day

f=[way_proc_data 'proc_gps_head' jd  '.txt'];
flist=fopen(f,'w');

%take stats data and stick into matrix

jaz(1,1:np)=jd_gps(1:np)';	    %Julian Day
jaz(2,1:np)=gpslat(1:np)';	%decimal latitude, deg
jaz(3,1:np)=gpslon(1:np)';	%longitude, deg
jaz(4,1:np)=gpshead(1:np)';	% cog, deg
jaz(5,1:np)=gpsspeed(1:np)';% sog, m/s
jaz(6,1:np)=heading(1:np);	%heading, deg


fprintf(flist,'%11.3f %10.4f %10.4f %9.2f %9.2f %9.2f \r\n',jaz);
%                jd   lat    lon     cog   sog  heading 
%                1     2      3       4     5     6 
%                   
fclose('all');
	
