resp7.for

著名的berkeley大学开发的结构动力非线性分析程序

C*****
      SUBROUTINE RESP7 (NDOF,NINFC,KBAL,KPR,COMS,DDISM,DD,TIME,VELM,DFAC
     &,DELTA,IFK,ISTEP,KSTAT,KITER)
100   WRITE(*,6000)7
6000  FORMAT('********** ERROR **********',
     & /,1X,'Element response requested for element type',
     &I4,' which is not available.',/,1X,'Stopping program.')
      STOP
      END