代码搜索：implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/301055/13866994

for thpr7.for

C***** SUBROUTINE THPR7 (NS) IMPLICIT DOUBLE PRECISION (A-H,O-Z) 100 WRITE(*,6000)7 6000 FORMAT('********** ERROR **********', & /,1X,'Element response output requested for el
·
www.eeworm.com/read/301055/13866996

for sband.for

C***** SUBROUTINE SBAND (M,LM,NDF) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C DIMENSION M(*),LM(*) C DO 10 J=1,NDF JJ=LM(J) NN=M(JJ) C DO 10 I=1,NDF
·
www.eeworm.com/read/301055/13866997

for stif6.for

C***** SUBROUTINE STIF6 (MSTEP,KSTAT,NDOF,NINFC,COMS,FK,DFAC) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C 100 WRITE(*,6000)6 6000 FORMAT('********** ERROR **********', & /,1X,'Stif
·
www.eeworm.com/read/301055/13867003

for clear.for

C***** SUBROUTINE CLEAR (A,II,JJ) C IMPLICIT DOUBLE PRECISION (A-H,O-Z) DIMENSION A(II,JJ) C DO I=1,II DO J=1,JJ A(I,J)=0.0 ENDDO
·
www.eeworm.com/read/301055/13867004

for inel9.for

C***** SUBROUTINE INEL9 (KCONT,FCONT,NDOF,NINFC,ID,X,Y,NN) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C 100 WRITE(*,6000)9 6000 FORMAT('********** ERROR **********',/,1X,'Call for element
·
www.eeworm.com/read/301055/13867005

for out10.for

C***** SUBROUTINE OUT10(COMS,NINFC) IMPLICIT DOUBLE PRECISION (A-H,O-Z) 100 WRITE(*,6000)10 6000 FORMAT('********** ERROR **********', & /,1X,'Element response output requeste
·
www.eeworm.com/read/301055/13867007

for finish.for

C***** SUBROUTINE FINISH IMPLICIT DOUBLE PRECISION (A-H,O-Z) C COMMON /GENINF/ KCONT(10),KELEM(10),NELEM(10),NINF(10),NDOF(10), &FCONT(3) COMMON /PASS / IGR,ISTEP,K
·
www.eeworm.com/read/301055/13867016

for inel6.for

C***** SUBROUTINE INEL6 (KCONT,FCONT,NDOF,NINFC,ID,X,Y,NN) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C 100 WRITE(*,6000)6 6000 FORMAT('********** ERROR **********',/,1X,'Call for element
·
www.eeworm.com/read/301055/13867018

for inel8.for

C***** SUBROUTINE INEL8 (KCONT,FCONT,NDOF,NINFC,ID,X,Y,NN) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C 100 WRITE(*,6000)8 6000 FORMAT('********** ERROR **********',/,1X,'Call for element
·
www.eeworm.com/read/301055/13867019

for area.for

C***** REAL*8 FUNCTION AREA (Y1,Y2,DX) C IMPLICIT DOUBLE PRECISION (A-H,O-Z) C IF (Y1*Y2.GE.0.0) THEN AREA=0.5*(Y1+Y2)*DX ELSE TEMP=DABS(Y1)+DABS(Y2)
·