Esope source files

   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 :