代码搜索:continue

找到约 10,000 项符合「continue」的源代码

代码结果 10,000
www.eeworm.com/read/414769/11102268

for fasper.for

SUBROUTINE fasper(x,y,n,ofac,hifac,wk1,wk2,nwk,nout,jmax,prob) INTEGER jmax,n,nout,nwk,MACC REAL hifac,ofac,prob,wk1(nwk),wk2(nwk),x(n),y(n) PARAMETER (MACC=4) CU USES a
www.eeworm.com/read/414769/11102278

for revers.for

SUBROUTINE revers(iorder,ncity,n) INTEGER ncity,iorder(ncity),n(6) INTEGER itmp,j,k,l,nn nn=(1+mod(n(2)-n(1)+ncity,ncity))/2 do 11 j=1,nn k=1+mod((n(1)+j-2),
www.eeworm.com/read/414769/11102288

for svdfit.for

SUBROUTINE svdfit(x,y,sig,ndata,a,ma,u,v,w,mp,np,chisq,funcs) INTEGER ma,mp,ndata,np,NMAX,MMAX REAL chisq,a(ma),sig(ndata),u(mp,np),v(np,np),w(np),x(ndata), *y(ndata),TOL
www.eeworm.com/read/414769/11102291

for mpinv.for

SUBROUTINE mpinv(u,v,n,m) INTEGER m,n,MF,NMAX CHARACTER*1 u(n),v(m) REAL BI PARAMETER (MF=4,BI=1./256.,NMAX=8192) CU USES mpmov,mpmul,mpneg INTEGER i,j,mm
www.eeworm.com/read/414769/11102301

for relax2.for

SUBROUTINE relax2(u,rhs,n) INTEGER n DOUBLE PRECISION rhs(n,n),u(n,n) INTEGER i,ipass,isw,j,jsw DOUBLE PRECISION foh2,h,h2i,res h=1.d0/(n-1) h2i=1.d0/(h
www.eeworm.com/read/414769/11102304

for polint.for

SUBROUTINE polint(xa,ya,n,x,y,dy) INTEGER n,NMAX REAL dy,x,y,xa(n),ya(n) PARAMETER (NMAX=10) INTEGER i,m,ns REAL den,dif,dift,ho,hp,w,c(NMAX),d(NMAX) ns
www.eeworm.com/read/414769/11102307

for polin2.for

SUBROUTINE polin2(x1a,x2a,ya,m,n,x1,x2,y,dy) INTEGER m,n,NMAX,MMAX REAL dy,x1,x2,y,x1a(m),x2a(n),ya(m,n) PARAMETER (NMAX=20,MMAX=20) CU USES polint INTEGER j,k
www.eeworm.com/read/414769/11102310

for mmid.for

SUBROUTINE mmid(y,dydx,nvar,xs,htot,nstep,yout,derivs) INTEGER nstep,nvar,NMAX REAL htot,xs,dydx(nvar),y(nvar),yout(nvar) EXTERNAL derivs PARAMETER (NMAX=50) I
www.eeworm.com/read/414769/11102324

for fitexy.for

SUBROUTINE fitexy(x,y,ndat,sigx,sigy,a,b,siga,sigb,chi2,q) INTEGER ndat,NMAX REAL x(ndat),y(ndat),sigx(ndat),sigy(ndat),a,b,siga,sigb,chi2,q, *POTN,PI,BIG,ACC PARAMETE
www.eeworm.com/read/414769/11102330

for four1.for

SUBROUTINE four1(data,nn,isign) INTEGER isign,nn REAL data(2*nn) INTEGER i,istep,j,m,mmax,n REAL tempi,tempr DOUBLE PRECISION theta,wi,wpi,wpr,wr,wtemp