ype">intent(in)</span> :: l
<a name="l00442"></a>00442       <span class="keywordtype">real(kind = dp)</span>, <span class="keywordtype">intent(inout)</span> :: dl(-l:l,-l:l)
<a name="l00443"></a>00443 
<a name="l00444"></a>00444       <span class="keywordtype">integer</span> :: m, mm
<a name="l00445"></a>00445 
<a name="l00446"></a>00446       <span class="comment">! Symmetry through origin.</span>
<a name="l00447"></a>00447       <span class="keyword">do</span> m = -l, l
<a name="l00448"></a>00448        