band.for

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

C*****
      SUBROUTINE BAND
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
C
      COMMON /GENINF/ KCONT(10),KELEM(10),NELEM(10),NINF(10),NDOF(10),
     &FCONT(3)
      COMMON /PASS  / IGR,ISTEP,KVARY,NBLOK,KSTAT,KDDS,KM,KITER              Li
      COMMON /INFEL / IEL,KST,LM(1),IDUM1,DUM(198)
      COMMON A(1)
C
      CALL SBANDI(A,KM,LM,NDOF(IGR))
C
      RETURN
      END