代码搜索：continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102345
for predic.for
SUBROUTINE predic(data,ndata,d,m,future,nfut)
INTEGER ndata,nfut,m,MMAX
REAL d(m),data(ndata),future(nfut)
PARAMETER (MMAX=100)
INTEGER j,k
REAL discrp,sum,reg
www.eeworm.com/read/414769/11102351
for dfour1.for
SUBROUTINE dfour1(data,nn,isign)
INTEGER isign,nn
DOUBLE PRECISION data(2*nn)
INTEGER i,istep,j,m,mmax,n
DOUBLE PRECISION tempi,tempr
DOUBLE PRECISION theta,wi
www.eeworm.com/read/414769/11102357
for relax.for
SUBROUTINE relax(u,rhs,n)
INTEGER n
DOUBLE PRECISION rhs(n,n),u(n,n)
INTEGER i,ipass,isw,j,jsw
DOUBLE PRECISION h,h2
h=1.d0/(n-1)
h2=h*h
jsw=1
www.eeworm.com/read/414769/11102359
for cntab2.for
SUBROUTINE cntab2(nn,ni,nj,h,hx,hy,hygx,hxgy,uygx,uxgy,uxy)
INTEGER ni,nj,nn(ni,nj),MAXI,MAXJ
REAL h,hx,hxgy,hy,hygx,uxgy,uxy,uygx,TINY
PARAMETER (MAXI=100,MAXJ=100,TINY=1.e
www.eeworm.com/read/414769/11102362
for fleg.for
SUBROUTINE fleg(x,pl,nl)
INTEGER nl
REAL x,pl(nl)
INTEGER j
REAL d,f1,f2,twox
pl(1)=1.
pl(2)=x
if(nl.gt.2) then
twox=2.*x
f2=x
www.eeworm.com/read/414769/11102370
for df1dim.for
FUNCTION df1dim(x)
INTEGER NMAX
REAL df1dim,x
PARAMETER (NMAX=50)
CU USES dfunc
INTEGER j,ncom
REAL df(NMAX),pcom(NMAX),xicom(NMAX),xt(NMAX)
COMMON
www.eeworm.com/read/414769/11102375
for decchk.for
LOGICAL FUNCTION decchk(string,n,ch)
INTEGER n
CHARACTER string*(*),ch*1
INTEGER ij(10,10),ip(10,8),i,j,k,m
SAVE ij,ip
DATA ip/0,1,2,3,4,5,6,7,8,9,1,5,7,6,2,8,
www.eeworm.com/read/414769/11102377
for dftint.for
SUBROUTINE dftint(func,a,b,w,cosint,sinint)
INTEGER M,NDFT,MPOL
REAL a,b,cosint,sinint,w,func,TWOPI
PARAMETER (M=64,NDFT=1024,MPOL=6,TWOPI=2.*3.14159265)
EXTERNAL fun
www.eeworm.com/read/414769/11102379
for dsprstx.for
SUBROUTINE dsprstx(sa,ija,x,b,n)
INTEGER n,ija(*)
DOUBLE PRECISION b(n),sa(*),x(n)
INTEGER i,j,k
if (ija(1).ne.n+2) pause 'mismatched vector and matrix in sprstx'
www.eeworm.com/read/414769/11102382
for eclazz.for
SUBROUTINE eclazz(nf,n,equiv)
INTEGER n,nf(n)
LOGICAL equiv
EXTERNAL equiv
INTEGER jj,kk
nf(1)=1
do 12 jj=2,n
nf(jj)=jj
do 11 kk=1,jj-