代码搜索结果
找到约 10,000 项符合
8 的代码
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
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(
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