intent(inout)</span> :: dl(-el:el,-el:el)
<a name="l00672"></a>00672       <span class="keywordtype">real(kind = dp)</span>, <span class="keywordtype">intent(in)</span> :: signs(0:el)
<a name="l00673"></a>00673 
<a name="l00674"></a>00674       <span class="keywordtype">integer</span> :: m, mm
<a name="l00675"></a>00675 
<a name="l00676"></a>00676       <span class="comment">! Diagonal symmetry to fill in quarter.</span>
<a name="l00677"></a>00677       <span class="keyword">do</span> m = 0, el
<a name="l00