<span class="keyword">end do</span>
<a name="l00635"></a>00635      iy=iv(1)
<a name="l00636"></a>00636   <span class="keyword">end if</span>
<a name="l00637"></a>00637   k=idum/IQ1
<a name="l00638"></a>00638   idum=IA1*(idum-k*IQ1)-k*IR1
<a name="l00639"></a>00639   <span class="keyword">if</span> (idum.lt.0) idum=idum+IM1
<a name="l00640"></a>00640   k=idum2/IQ2
<a name="l00641"></a>00641   idum2=IA2*(idum2-k*IQ2)-k*IR2
<a name="l00642"></a>00642   <span class="keyword">if</span> (idum2.lt.0) idum2=idum2+