代码搜索：continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/414769/11102248
for chder.for
SUBROUTINE chder(a,b,c,cder,n)
INTEGER n
REAL a,b,c(n),cder(n)
INTEGER j
REAL con
cder(n)=0.
cder(n-1)=2*(n-1)*c(n)
do 11 j=n-2,1,-1
cde
www.eeworm.com/read/414769/11102361
for lop.for
SUBROUTINE lop(out,u,n)
INTEGER n
DOUBLE PRECISION out(n,n),u(n,n)
INTEGER i,j
DOUBLE PRECISION h,h2i
h=1.d0/(n-1)
h2i=1.d0/(h*h)
do 12 j=2,n-1
www.eeworm.com/read/414769/11102374
for piksrt.for
SUBROUTINE piksrt(n,arr)
INTEGER n
REAL arr(n)
INTEGER i,j
REAL a
do 12 j=2,n
a=arr(j)
do 11 i=j-1,1,-1
if(arr(i).le.a)goto 10
www.eeworm.com/read/414769/11102422
for banmul.for
SUBROUTINE banmul(a,n,m1,m2,np,mp,x,b)
INTEGER m1,m2,mp,n,np
REAL a(np,mp),b(n),x(n)
INTEGER i,j,k
do 12 i=1,n
b(i)=0.
k=i-m1-1
do 11 j=max
www.eeworm.com/read/414769/11102430
for matadd.for
SUBROUTINE matadd(a,b,c,n)
INTEGER n
DOUBLE PRECISION a(n,n),b(n,n),c(n,n)
INTEGER i,j
do 12 j=1,n
do 11 i=1,n
c(i,j)=a(i,j)+b(i,j)
11 conti
www.eeworm.com/read/414769/11102441
for cholsl.for
SUBROUTINE cholsl(a,n,np,p,b,x)
INTEGER n,np
REAL a(np,np),b(n),p(n),x(n)
INTEGER i,k
REAL sum
do 12 i=1,n
sum=b(i)
do 11 k=i-1,1,-1
www.eeworm.com/read/414769/11102503
for bcucof.for
SUBROUTINE bcucof(y,y1,y2,y12,d1,d2,c)
REAL d1,d2,c(4,4),y(4),y1(4),y12(4),y2(4)
INTEGER i,j,k,l
REAL d1d2,xx,cl(16),wt(16,16),x(16)
SAVE wt
DATA wt/1,0,-3,2,4
www.eeworm.com/read/414769/11102619
for poldiv.for
SUBROUTINE poldiv(u,n,v,nv,q,r)
INTEGER n,nv
REAL q(n),r(n),u(n),v(nv)
INTEGER j,k
do 11 j=1,n
r(j)=u(j)
q(j)=0.
11 continue
do 13 k=n-nv
www.eeworm.com/read/414769/11102634
for shell.for
SUBROUTINE shell(n,a)
INTEGER n
REAL a(n)
INTEGER i,j,inc
REAL v
inc=1
1 inc=3*inc+1
if(inc.le.n)goto 1
2 continue
inc=inc/3
www.eeworm.com/read/414769/11102705
for matsub.for
SUBROUTINE matsub(a,b,c,n)
INTEGER n
DOUBLE PRECISION a(n,n),b(n,n),c(n,n)
INTEGER i,j
do 12 j=1,n
do 11 i=1,n
c(i,j)=a(i,j)-b(i,j)
11 conti