modify.for

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

C*****
      SUBROUTINE MODIFY (M,NEQ,NSTO)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      DIMENSION M(1)
C
      NSTO=0
      DO 10 J=1,NEQ
      NSTO=NSTO+1+J-M(J)
   10 M(J)=NSTO
C
      RETURN
      END