Télécharger barint.eso

Retour à la liste

Numérotation des lignes :

  1. C BARINT SOURCE CHAT 05/01/12 21:34:11 5004
  2.  
  3. C=======================================================================
  4. C= B A R I N T =
  5. C= ----------- =
  6. C= =
  7. C= Fonction : =
  8. C= ---------- =
  9. C= Calcul des forces internes B*Sigma dans le cas de l'element BARRE =
  10. C= =
  11. C= Parametres : (E)=Entree (S)=Sortie =
  12. C= ------------ =
  13. C= FORCE (E/S) Forces internes dans la structure =
  14. C= TGL (E) Gradient de deplacement dans la barre =
  15. C= EFFORT (E) Effort normal dans la barre =
  16. C= LRE (E) Nombre de composantes de forces =
  17. C=======================================================================
  18.  
  19. SUBROUTINE BARINT (FORCE,TGL,EFFORT,LRE)
  20.  
  21. IMPLICIT INTEGER(I-N)
  22. IMPLICIT REAL*8 (A-H,O-Z)
  23.  
  24. DIMENSION TGL(2,*),FORCE(*)
  25.  
  26. DO i=1,LRE
  27. FORCE(i)=FORCE(i)+EFFORT*(TGL(2,i)-TGL(1,i))
  28. ENDDO
  29.  
  30. RETURN
  31. END
  32.  
  33.  
  34.  
  35.  

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