eldis.for

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

C*****
      SUBROUTINE ELDIS (DDIS,VEL,LLM)
      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 /DISVEL/ DDISE(10),VELE(10),DD(10)
C
      DIMENSION DDIS(*),VEL(*),LLM(1)
C
      NDF=NDOF(IGR)
   10 DO 20 K=1,NDF
      LL=LLM(K)
      DDISE(K)=DDIS(LL)
      VELE(K)=VEL(LL)
   20 CONTINUE
      RETURN
      END