chkcase.for

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

C*****
      SUBROUTINE CHKCASE (ISEG,IISEG,ICASE)
C
      DIMENSION ISEG(*)
C
      IISEG=IISEG+1
      IF (IISEG.GT.ISEG(ICASE)) THEN
         IISEG=0
         ICASE=ICASE+1
      ENDIF
      RETURN
      END