     <span class="keyword">for</span> i=1:nodes
0077         fprintf(fid,<span class="string">'%f %f %f \n'</span>,coord(i,:),0);
0078     <span class="keyword">end</span>
0079 <span class="keyword">end</span>
0080 fprintf(fid,<span class="string">'\n'</span>);
0081 fprintf(fid,<span class="string">'CELLS %i %i\n'</span>,nels,(nen+1)*nels);
0082 <span class="keyword">for</span> i=1:nels
0083  fprintf(fid,elemFormat,nen,(etpl(i,tvtk)-1));       
0084 <span class="keyword">end</span>
0085 fprintf(fid,<span cl