GE_dumpHeader

 GE_dumpHeader(IFileName,OutFile)
 Dumps much of the header from a GE lx2 or 5.X file to
 OutFile.  If OutFile is not specified, the output goes
 to stdout.

 Souheil J. Inati, PhD
 Dartmouth College
 May 2000
 souheil.inati@dartmouth.edu

0001 function GE_dumpHeader(IFileName, OutFile)
0002 %
0003 % GE_dumpHeader(IFileName,OutFile)
0004 % Dumps much of the header from a GE lx2 or 5.X file to
0005 % OutFile.  If OutFile is not specified, the output goes
0006 % to stdout.
0007 %
0008 % Souheil J. Inati, PhD
0009 % Dartmouth College
0010 % May 2000
0011 % souheil.inati@dartmouth.edu
0012 %
0013 
0014 %%%% Call GE_readHeader %%%%
0015 [su_hdr,ex_hdr,se_hdr,im_hdr,pix_hdr] = GE_readHeader(IFileName);
0016 
0017 % Open the output file
0018 if nargin == 2
0019   outid = fopen(OutFile,'w');
0020 else
0021   outid = 1;  % stdout
0022 end
0023 
0024 %%%% Exam Header %%%%
0025 fprintf(outid,'Exam Header Section:\n');
0026 fprintf(outid,GE_dumpExamHeader(ex_hdr));
0027 fprintf(outid,'\n\n');
0028 
0029 %%%% Series Header %%%%
0030 fprintf(outid,'Series Header Section:\n');
0031 fprintf(outid,GE_dumpSeriesHeader(se_hdr));
0032 fprintf(outid,'\n\n');
0033 
0034 %%%% Image Header %%%%
0035 fprintf(outid,'Image Header Section:\n');
0036 fprintf(outid,GE_dumpImageHeader(im_hdr));
0037 
0038 % Close the File if not stdout
0039 if outid ~= 1
0040   fclose(outid);
0041 end
0042 
0043 return