代码搜索：continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102601
for zbrak.for
SUBROUTINE zbrak(fx,x1,x2,n,xb1,xb2,nb)
INTEGER n,nb
REAL x1,x2,xb1(nb),xb2(nb),fx
EXTERNAL fx
INTEGER i,nbb
REAL dx,fc,fp,x
nbb=0
x=x1
dx
www.eeworm.com/read/414769/11102603
for dsprsax.for
SUBROUTINE dsprsax(sa,ija,x,b,n)
INTEGER n,ija(*)
DOUBLE PRECISION b(n),sa(*),x(n)
INTEGER i,k
if (ija(1).ne.n+2) pause 'mismatched vector and matrix in sprsax'
www.eeworm.com/read/414769/11102606
for resid.for
SUBROUTINE resid(res,u,rhs,n)
INTEGER n
DOUBLE PRECISION res(n,n),rhs(n,n),u(n,n)
INTEGER i,j
DOUBLE PRECISION h,h2i
h=1.d0/(n-1)
h2i=1.d0/(h*h)
www.eeworm.com/read/414769/11102614
for fredex.for
PROGRAM fredex
INTEGER NMAX
REAL PI
PARAMETER (NMAX=100,PI=3.14159265)
INTEGER indx(NMAX),j,n
REAL a(NMAX,NMAX),g(NMAX),x,d
CU USES quadmx,ludcmp,lubksb
www.eeworm.com/read/414769/11102621
for quadmx.for
SUBROUTINE quadmx(a,n,np)
INTEGER n,np,NMAX
REAL a(np,np),PI
DOUBLE PRECISION xx
PARAMETER (PI=3.14159265,NMAX=257)
COMMON /momcom/ xx
EXTERNAL kermom
www.eeworm.com/read/414769/11102625
for splie2.for
SUBROUTINE splie2(x1a,x2a,ya,m,n,y2a)
INTEGER m,n,NN
REAL x1a(m),x2a(n),y2a(m,n),ya(m,n)
PARAMETER (NN=100)
CU USES spline
INTEGER j,k
REAL y2tmp(NN),ytmp(
www.eeworm.com/read/414769/11102639
for moment.for
SUBROUTINE moment(data,n,ave,adev,sdev,var,skew,curt)
INTEGER n
REAL adev,ave,curt,sdev,skew,var,data(n)
INTEGER j
REAL p,s,ep
if(n.le.1)pause 'n must be at le
www.eeworm.com/read/414769/11102643
for mpmul.for
SUBROUTINE mpmul(w,u,v,n,m)
INTEGER m,n,NMAX
CHARACTER*1 w(n+m),u(n),v(m)
DOUBLE PRECISION RX
PARAMETER (NMAX=8192,RX=256.D0)
CU USES drealft
INTEGER j,mn,
www.eeworm.com/read/414769/11102645
for iindexx.for
SUBROUTINE iindexx(n,arr,indx)
INTEGER n,indx(n),M,NSTACK
INTEGER arr(n)
PARAMETER (M=7,NSTACK=50)
INTEGER i,indxt,ir,itemp,j,jstack,k,l,istack(NSTACK)
INTEGER
www.eeworm.com/read/414769/11102650
for trnspt.for
SUBROUTINE trnspt(iorder,ncity,n)
INTEGER ncity,iorder(ncity),n(6),MXCITY
PARAMETER (MXCITY=1000)
INTEGER j,jj,m1,m2,m3,nn,jorder(MXCITY)
m1=1+mod((n(2)-n(1)+ncity),n