计算物理期末试题与答案(3)

INTEGER j,k,iv(NTAB),iy SAVE iv,iy

DATA iv /NTAB*0/, iy /0/ if (idum.le.0.or.iy.eq.0) then idum=max(-idum,1) do 11 j=NTAB+8,1,-1 k=idum/IQ

11 idum=IA*(idum-k*IQ)-IR*k if (idum.lt.0) idum=idum+IM continue if (j.le.NTAB) iv(j)=idum iy=iv(1) endif

k=idum/IQ

idum=IA*(idum-k*IQ)-IR*k if (idum.lt.0) idum=idum+IM j=1+iy/NDIV iy=iv(j) iv(j)=idum

ran1=min(AM*iy,RNMX)

return END

11

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库计算物理期末试题与答案(3)在线全文阅读。