代码搜索:continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102386
for amotry.for
FUNCTION amotry(p,y,psum,mp,np,ndim,funk,ihi,fac)
INTEGER ihi,mp,ndim,np,NMAX
REAL amotry,fac,p(mp,np),psum(np),y(mp),funk
PARAMETER (NMAX=20)
EXTERNAL funk
CU US
www.eeworm.com/read/414769/11102391
for savgol.for
SUBROUTINE savgol(c,np,nl,nr,ld,m)
INTEGER ld,m,nl,np,nr,MMAX
REAL c(np)
PARAMETER (MMAX=6)
CU USES lubksb,ludcmp
INTEGER imj,ipj,j,k,kk,mm,indx(MMAX+1)
RE
www.eeworm.com/read/414769/11102393
for pwt.for
SUBROUTINE pwt(a,n,isign)
INTEGER isign,n,NMAX,NCMAX,ncof,ioff,joff
PARAMETER (NMAX=2048,NCMAX=50)
REAL a(n),wksp(NMAX),cc(NCMAX),cr(NCMAX)
COMMON /pwtcom/ cc,cr,ncof
www.eeworm.com/read/414769/11102400
for rkck.for
SUBROUTINE rkck(y,dydx,n,x,h,yout,yerr,derivs)
INTEGER n,NMAX
REAL h,x,dydx(n),y(n),yerr(n),yout(n)
EXTERNAL derivs
PARAMETER (NMAX=50)
CU USES derivs
INTE
www.eeworm.com/read/414769/11102403
for qrdcmp.for
SUBROUTINE qrdcmp(a,n,np,c,d,sing)
INTEGER n,np
REAL a(np,np),c(n),d(n)
LOGICAL sing
INTEGER i,j,k
REAL scale,sigma,sum,tau
sing=.false.
do 17 k=
www.eeworm.com/read/414769/11102406
for jacobi.for
SUBROUTINE jacobi(a,n,np,d,v,nrot)
INTEGER n,np,nrot,NMAX
REAL a(np,np),d(np),v(np,np)
PARAMETER (NMAX=500)
INTEGER i,ip,iq,j
REAL c,g,h,s,sm,t,tau,theta,tresh
www.eeworm.com/read/414769/11102407
for scrsho.for
SUBROUTINE scrsho(fx)
INTEGER ISCR,JSCR
REAL fx
EXTERNAL fx
PARAMETER (ISCR=60,JSCR=21)
INTEGER i,j,jz
REAL dx,dyj,x,x1,x2,ybig,ysml,y(ISCR)
CHAR
www.eeworm.com/read/414769/11102415
for sort2.for
SUBROUTINE sort2(n,arr,brr)
INTEGER n,M,NSTACK
REAL arr(n),brr(n)
PARAMETER (M=7,NSTACK=50)
INTEGER i,ir,j,jstack,k,l,istack(NSTACK)
REAL a,b,temp
jstac
www.eeworm.com/read/414769/11102417
for kendl2.for
SUBROUTINE kendl2(tab,i,j,ip,jp,tau,z,prob)
INTEGER i,ip,j,jp
REAL prob,tau,z,tab(ip,jp)
CU USES erfcc
INTEGER k,ki,kj,l,li,lj,m1,m2,mm,nn
REAL en1,en2,pairs,poin
www.eeworm.com/read/414769/11102427
for linmin.for
SUBROUTINE linmin(p,xi,n,fret)
INTEGER n,NMAX
REAL fret,p(n),xi(n),TOL
PARAMETER (NMAX=50,TOL=1.e-4)
CU USES brent,f1dim,mnbrak
INTEGER j,ncom
REAL ax,bx,f