代码搜索：implicit

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

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

for thpr9.for

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

for inel10.for

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

for out9.for

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

for stif9.for

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

for stif10.for

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

for resp9.for

C***** SUBROUTINE RESP9 (NDOF,NINFC,KBAL,KPR,COMS,DDISM,DD,TIME,VELM,DFAC &,DELTA,IFK,ISTEP,KSTAT,KITER) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C 100 WRITE(*,6000)9 6000 FORMAT(
·
www.eeworm.com/read/301055/13866975

for thpr6.for

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

for inel7.for

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

for modify.for

C***** SUBROUTINE MODIFY (M,NEQ,NSTO) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C DIMENSION M(1) C NSTO=0 DO 10 J=1,NEQ NSTO=NSTO+1+J-M(J) 10 M(J)=NSTO C
·
www.eeworm.com/read/301055/13866993

for resp8.for

C***** SUBROUTINE RESP8 (NDOF,NINFC,KBAL,KPR,COMS,DDISM,DD,TIME,VELM,DFAC &,DELTA,IFK,ISTEP,KSTAT,KITER) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C 100 WRITE(*,6000)8 6000 FORMAT(
·