function writhead(dire,heasig);
%
% WRITHEAD function writes header file for signal data struct in directory dire
%	Input parameters.
%	   dire: directory of work
%	   heasig: struct of header to write


% Opening ASCII header file
fid=fopen([dire  heasig.recname '.hea'],'wt');
if (fid<0) disp('cannot create header file'); return;end

% writing first line of record_name, # signals and so on
fprintf(fid,'%s %d %d %d\n',heasig.recname,heasig.nsig);
if isfield(heasig,'freq') 
  fprintf(fid,'%d ',heasig.freq);
end
if isfield(heasig,'nsamp') 
  fprintf(fid,'%d ',heasig.nsamp);
end

% writing the rest of lines
for i=1:heasig.nsig
   fprintf(fid,'\n%s %d ',heasig.fname(i,:),heasig.fmt(i));
   if isfield(heasig,'spf') 
     fprintf(fid,'x%d ',heasig.spf(i));
   end
   if isfield(heasig,'skew') 
     fprintf(fid,':%d ',heasig.skew(i));
   end
   if isfield(heasig,'offset') 
     fprintf(fid,'+%d ',heasig.offset(i));
   end
   if isfield(heasig,'gain') 
     fprintf(fid,'%d ',heasig.gain(i));
   end
   if isfield(heasig,'baseline') 
     fprintf(fid,'(%d) ',heasig.baseline(i));
   end
   if (isfield(heasig,'units')  & ~strcmp('mV',heasig.units(i,:)))
     fprintf(fid,'(%s) ',heasig.units(i,:));
   end
   if isfield(heasig,'adcres') 
     fprintf(fid,'%d ',heasig.adcres(i));
   end
   if isfield(heasig,'adczero') 
     fprintf(fid,'%d ',heasig.adczero(i));
   end
   if isfield(heasig,'initval') 
     fprintf(fid,'%d ',heasig.adczero(i));
   end
   if isfield(heasig,'cksum') 
     fprintf(fid,'%d ',heasig.cksum(i));
   end
   if isfield(heasig,'bsize') 
     fprintf(fid,'%d ',heasig.bsize(i));
   end
   if isfield(heasig,'desc') 
     fprintf(fid,'%s',heasig.desc(i,:));
   end
end
fclose(fid);