代码搜索：continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102014
for addint.for
SUBROUTINE addint(uf,uc,res,nf)
INTEGER nf
DOUBLE PRECISION res(nf,nf),uc(nf/2+1,nf/2+1),uf(nf,nf)
CU USES interp
INTEGER i,j
call interp(res,uc,nf)
do 12
www.eeworm.com/read/414769/11102023
for dfridr.for
FUNCTION dfridr(func,x,h,err)
INTEGER NTAB
REAL dfridr,err,h,x,func,CON,CON2,BIG,SAFE
PARAMETER (CON=1.4,CON2=CON*CON,BIG=1.E30,NTAB=10,SAFE=2.)
EXTERNAL func
CU
www.eeworm.com/read/414769/11102027
for polcof.for
SUBROUTINE polcof(xa,ya,n,cof)
INTEGER n,NMAX
REAL cof(n),xa(n),ya(n)
PARAMETER (NMAX=15)
CU USES polint
INTEGER i,j,k
REAL dy,xmin,x(NMAX),y(NMAX)
www.eeworm.com/read/414769/11102034
for indexx.for
SUBROUTINE indexx(n,arr,indx)
INTEGER n,indx(n),M,NSTACK
REAL arr(n)
PARAMETER (M=7,NSTACK=50)
INTEGER i,indxt,ir,itemp,j,jstack,k,l,istack(NSTACK)
REAL a
www.eeworm.com/read/414769/11102037
for solvde.for
SUBROUTINE solvde(itmax,conv,slowc,scalv,indexv,ne,nb,m,y,nyj,nyk,
*c,nci,ncj,nck,s,nsi,nsj)
INTEGER itmax,m,nb,nci,ncj,nck,ne,nsi,nsj,nyj,nyk,indexv(nyj),NMAX
REAL conv,slow
www.eeworm.com/read/414769/11102040
for fit.for
SUBROUTINE fit(x,y,ndata,sig,mwt,a,b,siga,sigb,chi2,q)
INTEGER mwt,ndata
REAL a,b,chi2,q,siga,sigb,sig(ndata),x(ndata),y(ndata)
CU USES gammq
INTEGER i
REAL sigda
www.eeworm.com/read/414769/11102047
for ks2d2s.for
SUBROUTINE ks2d2s(x1,y1,n1,x2,y2,n2,d,prob)
INTEGER n1,n2
REAL d,prob,x1(n1),x2(n2),y1(n1),y2(n2)
CU USES pearsn,probks,quadct
INTEGER j
REAL d1,d2,dum,dumm,fa,fb
www.eeworm.com/read/414769/11102051
for stiff.for
SUBROUTINE stiff(y,dydx,n,x,htry,eps,yscal,hdid,hnext,derivs)
INTEGER n,NMAX,MAXTRY
REAL eps,hdid,hnext,htry,x,dydx(n),y(n),yscal(n),SAFETY,GROW,
*PGROW,SHRNK,PSHRNK,ERRCON,G
www.eeworm.com/read/414769/11102064
for banbks.for
SUBROUTINE banbks(a,n,m1,m2,np,mp,al,mpl,indx,b)
INTEGER m1,m2,mp,mpl,n,np,indx(n)
REAL a(np,mp),al(np,mpl),b(n)
INTEGER i,k,l,mm
REAL dum
mm=m1+m2+1
if
www.eeworm.com/read/414769/11102067
for voltra.for
SUBROUTINE voltra(n,m,t0,h,t,f,g,ak)
INTEGER m,n,MMAX
REAL h,t0,f(m,n),t(n),g,ak
EXTERNAL ak,g
PARAMETER (MMAX=5)
CU USES ak,g,lubksb,ludcmp
INTEGER i,j,k,