0001 function [pversion,nfile,NChan,NMeg,NReference,NEeg,NAnalog,NBad_chan,bad_chan,NEpoch,Epoch,nfreq,obs_labels] = rd_meg_anal_hdr(pfid); 0002 0003 pversion = fread(pfid,1,'integer*2'); 0004 nfile = fread(pfid,1,'integer*2'); 0005 NChan = fread(pfid,[1,nfile],'integer*2'); 0006 NMeg = fread(pfid,[1,nfile],'integer*2'); 0007 NReference = fread(pfid,[1,nfile],'integer*2'); 0008 NEeg = fread(pfid,[1,nfile],'integer*2'); 0009 NAnalog = fread(pfid,[1,nfile],'integer*2'); 0010 NBad_chan = fread(pfid,[1,nfile],'integer*2'); 0011 bad_chan = fread(pfid,[100,nfile],'integer*2'); 0012 bad_chan = bad_chan'; 0013 NEpoch = fread(pfid,[1,nfile],'integer*2'); 0014 Epoch = fread(pfid,[1,nfile],'real*4'); 0015 nfreq = fread(pfid,[1,nfile],'integer*2'); 0016 slabels = fread(pfid,1,'integer*2'); 0017 obs_labels = fread(pfid,[nfile,slabels],'char*1'); 0018 obs_labels = setstr(obs_labels); 0019 status = 1;