prframeconfig

 PRFRAMECONFIG - print out frame configuration info
   prframeconfig(frparms,fileId)
       frparms - GravEn Frame configuration parameters
       fileId = [OPTIONAL] Id of file to write to

 $Id: prframeconfig.m,v 1.2 2005/04/14 18:31:16 thorne Exp $

0001 function prframeconfig(frparms,fileId)
0002 % PRFRAMECONFIG - print out frame configuration info
0003 %   prframeconfig(frparms,fileId)
0004 %       frparms - GravEn Frame configuration parameters
0005 %       fileId = [OPTIONAL] Id of file to write to
0006 %
0007 % $Id: prframeconfig.m,v 1.2 2005/04/14 18:31:16 thorne Exp $
0008 
0009 if(nargin < 2)
0010     fileId = 1;
0011 end
0012 fprintf(fileId,'# GRAVEN FRAME CONFIGURATION PARAMS\n');
0013 if(isfield(frparms,'instrument'))
0014     if(~isempty(frparms.instrument))
0015         fprintf(fileId,'# frame file instrument: %s\n',char(frparms.instrument));
0016     else
0017         fprintf(fileId,'# ** No frame file instrument defined **\n');
0018     end
0019 else
0020     fprintf(fileId,'# ** No frame file instrument defined **\n');
0021 end
0022 if(isfield(frparms,'type'))
0023     if(~isempty(frparms.type))
0024         fprintf(fileId,'# frame file type: %s\n',char(frparms.type));
0025     else
0026         fprintf(fileId,'# ** No frame file type defined **\n');
0027     end
0028 else
0029     fprintf(fileId,'# ** No frame file type defined **\n');
0030 end
0031 if(isfield(frparms,'duration'))
0032     fprintf(fileId,'# frame file duration: %d sec\n',frparms.duration);
0033 else
0034     fprintf(fileId,'# ** No frame file duration defined **\n');   
0035 end
0036 if(isfield(frparms,'bkgd'))
0037     fprintf(fileId,'# background data for simulations: %s\n',char(frparms.bkgd));
0038 else
0039     fprintf(fileId,'# ** No background data defined **\n');   
0040 end
0041 if(isfield(frparms,'chanDesc') && isfield(frparms,'chanName'))
0042     chanDesc = frparms.chanDesc;
0043     chanName = frparms.chanName;
0044     numChan = numel(chanDesc);
0045     fprintf(fileId,'# There are %d channels in each frame file\n',numChan);
0046     for iChan = 1:numChan
0047         fprintf(fileId,'#   Channel %d: %s - frame channel %s\n',...
0048             iChan,char(chanDesc{iChan}),char(chanName{iChan}));
0049     end
0050 else
0051     fprintf(filedId,'# ** frame channels, names not defined **\n');
0052 end
0053 if(isfield(frparms,'frameDirFlag'))
0054     if(frparms.frameDirFlag)
0055         fprintf(fileId,'# *** Use local frame file directory!\n');
0056         if(isfield(frparms,'frameDir'))
0057             fprintf(fileId,'# --> frame file directory is %s\n',frparms.frameDir);
0058         else
0059             fprintf(fileId,'# ** No frame file directory defined **\n');
0060         end
0061     end
0062 end
0063 return
0064