             Header.Date=date(now);
0124             <span class="keyword">end</span>
0125             <span class="keyword">if</span> isfield(Header,<span class="string">'Unit'</span>)
0126                 Header.Unit=strcat(<span class="string">'('</span>,Header.Unit,<span class="string">')^2'</span>);
0127             <span class="keyword">end</span>
0128             FileName=strcat(OutPrefix,int2str(OutFileNumber));
0129             save(FileName,<span class="string">'Data'</span>,<span class="string">'