kreal - 0.8_kreal * exp( -50.0_kreal * ( (x - 0.5_kreal)**2 + (y - 0.5_kreal)**2))</span></div>
<div class="line"><a name="l00177"></a><span class="lineno">  177</span>&#160;    bottomtopography = 0.8_kreal * exp( -50.0_kreal * ( x * x + y * y) )</div>
<div class="line"><a name="l00178"></a><span class="lineno">  178</span>&#160;<span class="keyword">end function</span></div>
<div class="line"><a name="l00179"></a><span class="lineno">  179</span>&#160;</div>
<div class="line"><a name="l00180"></a><span cla