 class="keyword">end</span>;
0060 
0061 [chk1,chk2] = size(Phase);
0062 <span class="keyword">if</span>( (nObcs-chk1)*(nComponents-chk2) ~= 0)
0063     fprintf(<span class="string">'Phase dimensions do not match!!!'</span>)
0064     fprintf(<span class="string">'nObcs %d nComponents %d\n'</span>,chk1,chk2)
0065     error(<span class="string">'bad'</span>);
0066 <span class="keyword">end</span>;
0067 
0068 <span class="comment">%%</span>
0069 <span class="comment">%-------------------------------------------