>% DIPOLE-DIPOLE</span>
0181         mess2=sprintf(<span class="string">'Dipole-Dipole Array %d Datum Points'</span>,data); 
0182         AA=XX-location*EL.*(SP/2+1);
0183         BB=AA+EL;
0184         MM=BB+SP.*EL;
0185         NN=MM+EL;
0186     <span class="keyword">end</span>
0187     <span class="keyword">if</span> typ==4, <span class="comment">% WENNER-BETA</span>
0188         mess2=sprintf(<span class="string">'Wenner-Beta Array %d Datum Points'</span>,data);
0189         AA=XX-location*EL*1.5;
0190