ord">then</span>
<a name="l00627"></a>00627      idum=max(-idum,1)
<a name="l00628"></a>00628      idum2=idum
<a name="l00629"></a>00629      <span class="keyword">do</span> j=NTAB+8,1,-1
<a name="l00630"></a>00630         k=idum/IQ1
<a name="l00631"></a>00631         idum=IA1*(idum-k*IQ1)-k*IR1
<a name="l00632"></a>00632         <span class="keyword">if</span> (idum.lt.0) idum=idum+IM1
<a name="l00633"></a>00633         <span class="keyword">if</span> (j.le.NTAB) iv(j)=idum
<a name="l00634"></a>00634      