Télécharger la plaquette Cast3M


fr en

Télécharger barint.eso

Retour à la liste

Numérotation des lignes : 

barint

  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