代码搜索: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