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