clear.for

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

C*****
      SUBROUTINE CLEAR (A,II,JJ)
C
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION A(II,JJ)
C
      DO I=1,II
         DO J=1,JJ
            A(I,J)=0.0
         ENDDO
      ENDDO
      RETURN
      END