代码搜索：continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11101942
for mppi.for
SUBROUTINE mppi(n)
INTEGER n,IAOFF,NMAX
PARAMETER (IAOFF=48,NMAX=8192)
CU USES mpinit,mp2dfr,mpadd,mpinv,mplsh,mpmov,mpmul,mpsdv,mpsqrt
INTEGER ir,j,m
CHARACTER*1
www.eeworm.com/read/414769/11101945
for rank.for
SUBROUTINE rank(n,indx,irank)
INTEGER n,indx(n),irank(n)
INTEGER j
do 11 j=1,n
irank(indx(j))=j
11 continue
return
END
www.eeworm.com/read/414769/11101955
for period.for
SUBROUTINE period(x,y,n,ofac,hifac,px,py,np,nout,jmax,prob)
INTEGER jmax,n,nout,np,NMAX
REAL hifac,ofac,prob,px(np),py(np),x(n),y(n)
PARAMETER (NMAX=2000)
CU USES avevar
www.eeworm.com/read/414769/11101962
for covsrt.for
SUBROUTINE covsrt(covar,npc,ma,ia,mfit)
INTEGER ma,mfit,npc,ia(ma)
REAL covar(npc,npc)
INTEGER i,j,k
REAL swap
do 12 i=mfit+1,ma
do 11 j=1,i
www.eeworm.com/read/414769/11101965
for sprstx.for
SUBROUTINE sprstx(sa,ija,x,b,n)
INTEGER n,ija(*)
REAL b(n),sa(*),x(n)
INTEGER i,j,k
if (ija(1).ne.n+2) pause 'mismatched vector and matrix in sprstx'
do 11 i=1
www.eeworm.com/read/414769/11101968
for dfpmin.for
SUBROUTINE dfpmin(p,n,gtol,iter,fret,func,dfunc)
INTEGER iter,n,NMAX,ITMAX
REAL fret,gtol,p(n),func,EPS,STPMX,TOLX
PARAMETER (NMAX=50,ITMAX=200,STPMX=100.,EPS=3.e-8,TOLX=4.*
www.eeworm.com/read/414769/11101971
for mprove.for
SUBROUTINE mprove(a,alud,n,np,indx,b,x)
INTEGER n,np,indx(n),NMAX
REAL a(np,np),alud(np,np),b(n),x(n)
PARAMETER (NMAX=500)
CU USES lubksb
INTEGER i,j
REAL
www.eeworm.com/read/414769/11101974
for avevar.for
SUBROUTINE avevar(data,n,ave,var)
INTEGER n
REAL ave,var,data(n)
INTEGER j
REAL s,ep
ave=0.0
do 11 j=1,n
ave=ave+data(j)
11 continue
www.eeworm.com/read/414769/11101978
for rofunc.for
FUNCTION rofunc(b)
INTEGER NMAX
REAL rofunc,b,EPS
PARAMETER (NMAX=1000,EPS=1.e-7)
CU USES select
INTEGER j,ndata
REAL aa,abdev,d,sum,arr(NMAX),x(NMAX),y(NM
www.eeworm.com/read/414769/11101991
for mrqcof.for
SUBROUTINE mrqcof(x,y,sig,ndata,a,ia,ma,alpha,beta,nalp,chisq,
*funcs)
INTEGER ma,nalp,ndata,ia(ma),MMAX
REAL chisq,a(ma),alpha(nalp,nalp),beta(ma),sig(ndata),x(ndata),