inel6.for

来自「著名的berkeley大学开发的结构动力非线性分析程序」· FOR 代码 · 共 10 行

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 type',
     &I4,' which is not available.',/,1X,'Stopping program.')
      STOP
      END