7                 <span class="keyword">else</span>
0108                     Header.FunctionType=8;
0109                 <span class="keyword">end</span>
0110                 Header.RefDof=RefHeader.Dof;
0111                 Header.RefDir=RefHeader.Dir;
0112             <span class="keyword">end</span>
0113             Header.NoValues=length(Data);
0114             Header.Blocksize=Blocksize;
0115             <span class="keyword">if</span> isfield(Header,<span class="string">'SeqNo'</span>)
0116           