代码搜索：continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102479
for sinft.for
SUBROUTINE sinft(y,n)
INTEGER n
REAL y(n)
CU USES realft
INTEGER j
REAL sum,y1,y2
DOUBLE PRECISION theta,wi,wpi,wpr,wr,wtemp
theta=3.141592653589793
www.eeworm.com/read/414769/11102487
for lnsrch.for
SUBROUTINE lnsrch(n,xold,fold,g,p,x,f,stpmax,check,func)
INTEGER n
LOGICAL check
REAL f,fold,stpmax,g(n),p(n),x(n),xold(n),func,ALF,TOLX
PARAMETER (ALF=1.e-4,TOLX=1.e
www.eeworm.com/read/414769/11102488
for tridag.for
SUBROUTINE tridag(a,b,c,r,u,n)
INTEGER n,NMAX
REAL a(n),b(n),c(n),r(n),u(n)
PARAMETER (NMAX=500)
INTEGER j
REAL bet,gam(NMAX)
if(b(1).eq.0.)pause 'trida
www.eeworm.com/read/414769/11102492
for gaulag.for
SUBROUTINE gaulag(x,w,n,alf)
INTEGER n,MAXIT
REAL alf,w(n),x(n)
DOUBLE PRECISION EPS
PARAMETER (EPS=3.D-14,MAXIT=10)
CU USES gammln
INTEGER i,its,j
www.eeworm.com/read/414769/11102494
for rkdumb.for
SUBROUTINE rkdumb(vstart,nvar,x1,x2,nstep,derivs)
INTEGER nstep,nvar,NMAX,NSTPMX
PARAMETER (NMAX=50,NSTPMX=200)
REAL x1,x2,vstart(nvar),xx(NSTPMX),y(NMAX,NSTPMX)
EXTE
www.eeworm.com/read/414769/11102498
for bessjy.for
SUBROUTINE bessjy(x,xnu,rj,ry,rjp,ryp)
INTEGER MAXIT
REAL rj,rjp,ry,ryp,x,xnu,XMIN
DOUBLE PRECISION EPS,FPMIN,PI
PARAMETER (EPS=1.e-10,FPMIN=1.e-30,MAXIT=10000,XMIN=2
www.eeworm.com/read/414769/11102502
for ddpoly.for
SUBROUTINE ddpoly(c,nc,x,pd,nd)
INTEGER nc,nd
REAL x,c(nc),pd(nd)
INTEGER i,j,nnd
REAL const
pd(1)=c(nc)
do 11 j=2,nd
pd(j)=0.
11 continue
www.eeworm.com/read/414769/11102508
for bessk.for
FUNCTION bessk(n,x)
INTEGER n
REAL bessk,x
CU USES bessk0,bessk1
INTEGER j
REAL bk,bkm,bkp,tox,bessk0,bessk1
if (n.lt.2) pause 'bad argument n in bessk'
www.eeworm.com/read/414769/11102509
for zrhqr.for
SUBROUTINE zrhqr(a,m,rtr,rti)
INTEGER m,MAXM
REAL a(m+1),rtr(m),rti(m)
PARAMETER (MAXM=50)
CU USES balanc,hqr
INTEGER j,k
REAL hess(MAXM,MAXM),xr,xi
www.eeworm.com/read/414769/11102510
for powell.for
SUBROUTINE powell(p,xi,n,np,ftol,iter,fret)
INTEGER iter,n,np,NMAX,ITMAX
REAL fret,ftol,p(np),xi(np,np),func
EXTERNAL func
PARAMETER (NMAX=20,ITMAX=200)
CU USES f