0001 function status = wt_meg_anal_hdr(pfid,pversion,nfile,all_NChan,NMeg,NReference,NEeg,NAnalog,NBad_chan,all_bad_chan,NEpoch,Epoch,nfreq,obs_labels); 0002 0003 fwrite(pfid,pversion,'integer*2'); 0004 fwrite(pfid,nfile,'integer*2'); 0005 fwrite(pfid,all_NChan,'integer*2'); 0006 fwrite(pfid,NMeg,'integer*2'); 0007 fwrite(pfid,NReference,'integer*2'); 0008 fwrite(pfid,NEeg,'integer*2'); 0009 fwrite(pfid,NAnalog,'integer*2'); 0010 fwrite(pfid,NBad_chan,'integer*2'); 0011 fwrite(pfid,all_bad_chan,'integer*2'); 0012 fwrite(pfid,NEpoch,'integer*2'); 0013 fwrite(pfid,Epoch,'real*4'); 0014 fwrite(pfid,nfreq,'integer*2'); 0015 fwrite(pfid,size(obs_labels,2),'integer*2'); 0016 fwrite(pfid,obs_labels,'char*1') 0017 status = 1;