sband.for

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

C*****
      SUBROUTINE SBAND (M,LM,NDF)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      DIMENSION M(*),LM(*)
C
      DO 10 J=1,NDF
      JJ=LM(J)
      NN=M(JJ)
C
      DO 10 I=1,NDF
      II=LM(I)
      IF (JJ.LT.II.OR.II.GE.NN) GO TO 10
      M(JJ)=II
      NN=II
   10 CONTINUE
C
      RETURN
      END