   <span class="keywordtype">real(8)</span>, <span class="keywordtype">intent(in)</span> :: r</div>
<div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;        <span class="keywordtype">real(8)</span> :: output</div>
<div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;        </div>
<div class="line"><a name="l00196"></a><span class="lineno"><a class="line" href="classmorse.html#a9f6e95b5b1b85731f5ea419e84b129d8">  196</a></span>&#160;        output = this