Télécharger liaint.eso

Retour à la liste

Numérotation des lignes :

  1. C LIAINT SOURCE CHAT 05/01/13 01:16:35 5004
  2. C LIAINT SOURCE DJER 93/03/02 22:56:13
  3. SUBROUTINE LIAINT(XSTRS,BPSS,XFORC,LRE,NSTRS)
  4. C-----------------------------------------------------------------------
  5. C ROUTINE DE CALCUL DES FORCES INTERNES B*SIGMA
  6. C POUR L'ELEMENT de LIASON LIA2
  7. C
  8. C ENTREE
  9. C EFFORT L'EFFORT DANS LA BARRE
  10. C COORD COORDONNEES DES 2 NOEUDS
  11. C
  12. C SORTIE
  13. C FORCE FORCES INTERNES
  14. C
  15. C-----------------------------------------------------------------------
  16. IMPLICIT INTEGER(I-N)
  17. IMPLICIT REAL*8(A-H,O-Z)
  18. DIMENSION BPSS(3,3),XFORC(LRE),XSTRS(NSTRS)
  19. C
  20. C REMPLISSAGE DU VECTEUR FORCE
  21. C
  22. DO 2 L=1,4
  23. L1 = 3*(L-1)
  24. DO 1 I=1,3
  25. DO 3 K=1,3
  26. XFORC(I+L1)=XFORC(I+L1)+BPSS(K,I)*XSTRS(K+L1)
  27. 3 CONTINUE
  28. 1 CONTINUE
  29. 2 CONTINUE
  30. RETURN
  31. END
  32.  
  33.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales