代码搜索：continue

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

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

for sub initia.for

SUBROUTINE INITIA(N,ME,M,NAMAX,A,B,C,G,X,V,MJ,JSET,NJ,R,NM, * L,W,Q,QPINDX,ZERO) DOUBLE PRECISION A(NAMAX,M),B(M),C(N),G(NAMAX,N),L(NAMAX,N),W(N), * Q(NAMAX,N),R(NAMAX,N),NM(NAMAX,N)
·
www.eeworm.com/read/103672/15726792

for sub add.for

SUBROUTINE ADD(N,NAMAX,M,NJ,MJ,JSET,R,NM,DV,JS,ZERO) DOUBLE PRECISION R(NAMAX,N),NM(NAMAX,N),DV(N),GAMMA,C,S,V,W,ZERO INTEGER JSET(M) LOGICAL MJ(M) DO 1 J=1,N R(J,NJ+1)=DV(J) 1 CONTINUE
·
www.eeworm.com/read/103672/15726796

for sub drop.for

SUBROUTINE DROP(N,NAMAX,M,NJ,MJ,JSET,R,NM,JK,JP,ZERO) DOUBLE PRECISION R(NAMAX,N),NM(NAMAX,N),GAMMA,C,S,V,W,ZERO INTEGER JSET(M) LOGICAL MJ(M) IF (JP.EQ.NJ)GOTO 6 DO 1 I=JP,NJ-1 DO 1 J=1
·
www.eeworm.com/read/103672/15726799

for sub qpval.for

SUBROUTINE QPVAL(N,NA,NAMAX,OGRA,B,D1,PPRA,QPOBJ,FEASBL) DOUBLE PRECISION OGRA(N),B(NAMAX,N),D1(N),PPRA,QPOBJ LOGICAL FEASBL QPOBJ=0.0D0 DO 1 J=1,N QPOBJ=QPOBJ+OGRA(J)*D1(J) DO 1 I=1,N
·
www.eeworm.com/read/103672/15726802

for sub qrdec.for

SUBROUTINE QRDEC(N,M,NAMAX,R,Q,JRANK,ZERO) DOUBLE PRECISION R(NAMAX,N),Q(NAMAX,N),GAMMA,C,S,V,W,ZERO LOGICAL JZERO JN=MIN0(M,N-1) JRANK=0 DO 2 I=1,N DO 1 J=1,N Q(I,J)=0.0 1 CONTINU
·
www.eeworm.com/read/103672/15726803

for sub qpsolv.for

SUBROUTINE QPSOLV(N,ME,M,NAMAX,A,B,C,G,X,V,L,Q,W,AS,DV,ZV,RV, * R,NM,JSET,MJ,QPINDX,IT,SCALE,MAMAX,SCL) DOUBLE PRECISION A(NAMAX,M),B(M),C(N),G(NAMAX,N),X(N),V(M), * R(NAMAX,N)
·
www.eeworm.com/read/103672/15726805

for sub dif.for

SUBROUTINE DIF(N,ME,MI,M,NAMAX,X,OGRA,CGRA,Y,CY1,CY2,NF) DOUBLE PRECISION X(N),Y(N),OGRA(N),CGRA(NAMAX,M),FY1,FY2,CY1(N), * CY2(N),DELTA,STEP,DSTEP DATA DELTA/1.0D-5/ DO 3 J=1,N DO 1
·
www.eeworm.com/read/103672/15726808

for sub rtest.for

SUBROUTINE RTEST(M,ME,NJ,V,RV,JSET,T,JK,JP,ZERO) DOUBLE PRECISION V(M),RV(M),T,ZERO,RATIO,LARGE INTEGER JSET(M) DATA LARGE/1.0D+20/ JK=0 T=LARGE DO 1 I=ME+1,NJ L=JSET(I) IF (RV(I).L
·
www.eeworm.com/read/103672/15726812

for sub pval.for

SUBROUTINE PVAL(ME,MI,M,OFUN,CFUN,PPRA,PFUN) DOUBLE PRECISION OFUN,CFUN(M),PPRA,PFUN PFUN=0.0D0 DO 1 I=1,ME PFUN=PFUN+DABS(CFUN(I)) 1 CONTINUE DO 2 I=1,MI PFUN=PFUN+DABS(DMIN1(0.0
·
www.eeworm.com/read/103672/15726813

for sub chodec.for

SUBROUTINE CHODEC(N,NAMAX,G,L,QPINDX,ZERO) DOUBLE PRECISION G(NAMAX,N),L(NAMAX,N),ZERO INTEGER QPINDX DO 4 J=1,N L(J,J)=G(J,J) DO 1 K=1,J-1 L(J,J)=L(J,J)-L(J,K)**2 1 CONTINUE IF
·