chkcase.for

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

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