代码搜索：continue

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

代码结果 10,000
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/414769/11102435

for sprsax.for

SUBROUTINE sprsax(sa,ija,x,b,n) INTEGER n,ija(*) REAL b(n),sa(*),x(n) INTEGER i,k if (ija(1).ne.n+2) pause 'mismatched vector and matrix in sprsax' do 12 i=1,n
·
www.eeworm.com/read/414769/11102436

for dawson.for

FUNCTION dawson(x) INTEGER NMAX REAL dawson,x,H,A1,A2,A3 PARAMETER (NMAX=6,H=0.4,A1=2./3.,A2=0.4,A3=2./7.) INTEGER i,init,n0 REAL d1,d2,e1,e2,sum,x2,xp,xx,c(NM
·
www.eeworm.com/read/414769/11102452

for red.for

SUBROUTINE red(iz1,iz2,jz1,jz2,jm1,jm2,jmf,ic1,jc1,jcf,kc,c,nci, *ncj,nck,s,nsi,nsj) INTEGER ic1,iz1,iz2,jc1,jcf,jm1,jm2,jmf,jz1,jz2,kc,nci,ncj,nck, *nsi,nsj REAL c(nci
·
www.eeworm.com/read/414769/11102458

for chint.for

SUBROUTINE chint(a,b,c,cint,n) INTEGER n REAL a,b,c(n),cint(n) INTEGER j REAL con,fac,sum con=0.25*(b-a) sum=0. fac=1. do 11 j=2,n-1
·
www.eeworm.com/read/414769/11102459

for pcshft.for

SUBROUTINE pcshft(a,b,d,n) INTEGER n REAL a,b,d(n) INTEGER j,k REAL const,fac const=2./(b-a) fac=const do 11 j=2,n d(j)=d(j)*fac
·
www.eeworm.com/read/414769/11102463

for fourn.for

SUBROUTINE fourn(data,nn,ndim,isign) INTEGER isign,ndim,nn(ndim) REAL data(*) INTEGER i1,i2,i2rev,i3,i3rev,ibit,idim,ifp1,ifp2,ip1,ip2,ip3,k1, *k2,n,nprev,nrem,ntot
·
www.eeworm.com/read/414769/11102467

for gaucof.for

SUBROUTINE gaucof(n,a,b,amu0,x,w) INTEGER n,NMAX REAL amu0,a(n),b(n),w(n),x(n) PARAMETER (NMAX=64) CU USES eigsrt,tqli INTEGER i,j REAL z(NMAX,NMAX)
·
www.eeworm.com/read/414769/11102471

for svbksb.for

SUBROUTINE svbksb(u,w,v,m,n,mp,np,b,x) INTEGER m,mp,n,np,NMAX REAL b(mp),u(mp,np),v(np,np),w(np),x(np) PARAMETER (NMAX=500) INTEGER i,j,jj REAL s,tmp(NMAX)
·
www.eeworm.com/read/414769/11102473

for rlft3.for

SUBROUTINE rlft3(data,speq,nn1,nn2,nn3,isign) INTEGER isign,nn1,nn2,nn3 COMPLEX data(nn1/2,nn2,nn3),speq(nn2,nn3) CU USES fourn INTEGER i1,i2,i3,j1,j2,j3,nn(3) DO
·
www.eeworm.com/read/414769/11102475

for choldc.for

SUBROUTINE choldc(a,n,np,p) INTEGER n,np REAL a(np,np),p(n) INTEGER i,j,k REAL sum do 13 i=1,n do 12 j=i,n sum=a(i,j) do 11 k=i-
·