Esope source files

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