Esope source files

   1 : C TIMGR2    SOURCE    AM        10/09/20    21:15:27     6756           
   2 :       SUBROUTINE TIMGR2(COORD,DEPLA,GRAD,WORK)
   3 : C-----------------------------------------------------------------------
   4 : C  ROUTINE DE CALCUL DES GRADIENTS POUR LA POUTRE DROITE
   5 : C  DE TIMOSHENKO SIMPLE OU MULTI-FIBRE
   6 : C
   7 : C  ENTREE
   8 : C          DEPLA   DEPLACEMENTS
   9 : C          COORD   COORDONNEES DES 2 NOEUDS
  10 : C
  11 : C  SORTIE
  12 : C          GRAD    GRADIENTS AU CENTRE 
  13 : C  TRAVAIL
  14 : C          WORK(300)
  15 : C-----------------------------------------------------------------------
  16 :       IMPLICIT INTEGER(I-N)
  17 :       IMPLICIT REAL*8(A-H,O-Z)
  18 :       DIMENSION WORK(*)
  19 :       DIMENSION GRAD(*),COORD(3,*),P(2,2),
  20 :      .          XE(2),YE(2),DEPLA(*)
  21 : C
  22 :       DO I=1,2
  23 :         XE(I)=COORD(1,I)
  24 :         YE(I)=COORD(2,I)
  25 :       ENDDO
  26 :       XL=(XE(2)-XE(1))**2+(YE(2)-YE(1))**2
  27 :       XL=SQRT(XL)
  28 : C
  29 : C  CALCUL DE LA MATRICE DE PASSAGE
  30 : C
  30 :       CALL POUPA2(XE,YE,P,KERRE)
  31 : C
  32 : C  PASSAGE DES DEPLACEMENTS EN AXES LOCAUX
  33 : C
  33 :       CALL POUVE2(DEPLA,WORK,P,1)
  34 : C
  35 : C  CALCUL DES GRADIENTS AU CENTRE
  36 : C
  37 :       GRAD(1)=(WORK(4)-WORK(1))/XL
  38 :       GRAD(2)=(WORK(5)-WORK(2))/XL
  39 :       RETURN
  40 :       END
  41 :  
  42 :  
  43 :