代码搜索：continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102189
for fgauss.for
SUBROUTINE fgauss(x,a,y,dyda,na)
INTEGER na
REAL x,y,a(na),dyda(na)
INTEGER i
REAL arg,ex,fac
y=0.
do 11 i=1,na-1,3
arg=(x-a(i+1))/a(i+2)
www.eeworm.com/read/414769/11102192
for gauleg.for
SUBROUTINE gauleg(x1,x2,x,w,n)
INTEGER n
REAL x1,x2,x(n),w(n)
DOUBLE PRECISION EPS
PARAMETER (EPS=3.d-14)
INTEGER i,j,m
DOUBLE PRECISION p1,p2,p3,pp,xl,
www.eeworm.com/read/414769/11102195
for rebin.for
SUBROUTINE rebin(rc,nd,r,xin,xi)
INTEGER nd
REAL rc,r(*),xi(*),xin(*)
INTEGER i,k
REAL dr,xn,xo
k=0
xo=0.
dr=0.
do 11 i=1,nd-1
1 if
www.eeworm.com/read/414769/11102199
for fixrts.for
SUBROUTINE fixrts(d,m)
INTEGER m,MMAX
REAL d(m)
PARAMETER (MMAX=100)
CU USES zroots
INTEGER i,j
LOGICAL polish
COMPLEX a(MMAX),roots(MMAX)
a(
www.eeworm.com/read/414769/11102215
for simpr.for
SUBROUTINE simpr(y,dydx,dfdx,dfdy,nmax,n,xs,htot,nstep,yout,
*derivs)
INTEGER n,nmax,nstep,NMAXX
REAL htot,xs,dfdx(n),dfdy(nmax,nmax),dydx(n),y(n),yout(n)
EXTERNAL der
www.eeworm.com/read/414769/11102225
for wtn.for
SUBROUTINE wtn(a,nn,ndim,isign,wtstep)
INTEGER isign,ndim,nn(ndim),NMAX
REAL a(*)
EXTERNAL wtstep
PARAMETER (NMAX=1024)
CU USES wtstep
INTEGER i1,i2,i3,idi
www.eeworm.com/read/414769/11102232
for cisi.for
SUBROUTINE cisi(x,ci,si)
INTEGER MAXIT
REAL ci,si,x,EPS,EULER,PIBY2,FPMIN,TMIN
PARAMETER (EPS=6.e-8,EULER=.57721566,MAXIT=100,PIBY2=1.5707963,
*FPMIN=1.e-30,TMIN=2.)
www.eeworm.com/read/414769/11102235
for ratlsq.for
SUBROUTINE ratlsq(fn,a,b,mm,kk,cof,dev)
INTEGER kk,mm,NPFAC,MAXC,MAXP,MAXIT
DOUBLE PRECISION a,b,dev,cof(mm+kk+1),fn,PIO2,BIG
PARAMETER (NPFAC=8,MAXC=20,MAXP=NPFAC*MAXC+1,MA
www.eeworm.com/read/414769/11102239
for sor.for
SUBROUTINE sor(a,b,c,d,e,f,u,jmax,rjac)
INTEGER jmax,MAXITS
DOUBLE PRECISION rjac,a(jmax,jmax),b(jmax,jmax),c(jmax,jmax),
*d(jmax,jmax),e(jmax,jmax),f(jmax,jmax),u(jmax,jmax)
www.eeworm.com/read/414769/11102264
for cosft1.for
SUBROUTINE cosft1(y,n)
INTEGER n
REAL y(n+1)
CU USES realft
INTEGER j
REAL sum,y1,y2
DOUBLE PRECISION theta,wi,wpi,wpr,wr,wtemp
theta=3.141592653589