代码搜索:implicit

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

代码结果 5,250
www.eeworm.com/read/301055/13866925

for stif7.for

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

for sforce.for

C***** SUBROUTINE SFORCE(DD) IMPLICIT DOUBLE PRECISION (A-H,O-Z) COMMON A(1) DIMENSION DD(*) CALL SFRCEI(A,DD) RETURN END
www.eeworm.com/read/301055/13866927

for sbandi.for

C***** SUBROUTINE SBANDI(A,KM,LM,NDOF) IMPLICIT DOUBLE PRECISION (A-H,O-Z) DIMENSION A(*),LM(1) CALL SBAND(A(KM),LM,NDOF) RETURN END
www.eeworm.com/read/301055/13866928

for out8.for

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

for thpr8.for

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

for out6.for

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

for band.for

C***** SUBROUTINE BAND 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,KVA
www.eeworm.com/read/301055/13866947

for resp10.for

C***** SUBROUTINE RESP10(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)10 6000 FORMAT
www.eeworm.com/read/301055/13866948

for out7.for

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

for stif8.for

C***** SUBROUTINE STIF8 (MSTEP,KSTAT,NDOF,NINFC,COMS,FK,DFAC) IMPLICIT DOUBLE PRECISION (A-H,O-Z) C 100 WRITE(*,6000)8 6000 FORMAT('********** ERROR **********', & /,1X,'Stif