========================================================</span>
0036 
0037 [~, subname] = fileparts(mfilename(<span class="string">'fullpath'</span>));
0038 <span class="keyword">global</span> ftbverbose;
0039 <span class="keyword">if</span> ftbverbose
0040     fprintf(<span class="string">'\nbegin : %s\n'</span>, subname);
0041 <span class="keyword">end</span>
0042 
0043 <span class="comment">%------------------------------------------------------------------------------</span>
0044 <span class="comment">%