014,IA2=40692,IQ1=53668,IQ2=52774,IR1=12211,IR2=3791, &amp;
<a name="l00622"></a>00622        &amp; NTAB=32,NDIV=1+IMM1/NTAB,EPS=1.2e-7,RNMX=1.-EPS)
<a name="l00623"></a>00623   <span class="keywordtype">INTEGER</span> :: idum2,j,k,iv(NTAB),iy
<a name="l00624"></a>00624   <span class="keywordtype">SAVE</span> iv,iy,idum2
<a name="l00625"></a>00625   <span class="keyword">DATA</span> idum2/123456789/, iv/NTAB*0/, iy/0/
<a name="l00626"></a>00626   <span class="keyword">if</span> (idum.le.0) <span class="keyw