代码搜索: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