an class="lineno">   16</span>&#160;        <span class="keywordtype">character(len = 256)</span> :: errmsg</div>
<div class="line"><a name="l00017"></a><span class="lineno">   17</span>&#160;        <span class="keywordtype">integer(int32)</span> :: i, npts, nsample, flag</div>
<div class="line"><a name="l00018"></a><span class="lineno">   18</span>&#160;<span class="keywordtype">        real</span>(real64) :: maxt, mint</div>
<div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;<s