    <span class="keyword">if</span> typ==7, <span class="comment">% SCHLUMBERGER</span>
0210         mess2=sprintf(<span class="string">'Schlumberger Array %d Datum Points'</span>,data);
0211         AA=XX-location*EL.*(SP+0.5);
0212         MM=AA+SP.*EL;
0213         NN=MM+EL;
0214         BB=NN+SP.*EL;
0215     <span class="keyword">end</span>
0216 <span class="keyword">end</span>
0217 fclose(input);
0218 fak=200;
0219 AA=round(AA*fak)/fak;BB=round(BB*fak)/fak;
0220 MM=round(MM*fak)/fak;NN=round(NN*fak)/f