Esope source files

   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 :