Sources Esope | Cast3M

intjoi
C INTJOI    SOURCE    AM        11/05/03    21:17:13     6955
C LIAINT    SOURCE    CHAT      05/01/13    01:16:35     5004
C LIAINT    SOURCE    DJER      93/03/02    22:56:13
      SUBROUTINE INTJOI(XSTRS,XFORC,NSTRS)
C-----------------------------------------------------------------------
C  ROUTINE DE CALCUL DES FORCES INTERNES B*SIGMA
C             POUR L'ELEMENT de LIASON JOI1
C
C  ENTREE
C          XSTRS   EFFORT DANS LA BARRE EN GLOBAL
C
C  SORTIE
C          XFORC   FORCES INTERNES
C
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION XFORC(*),XSTRS(NSTRS)
C
C  REMPLISSAGE DU VECTEUR FORCE
C
       DO I=1,NSTRS
         XFORC(I)=(-1)*XSTRS(I)
         XFORC(I+NSTRS)=1*XSTRS(I)
       ENDDO
*
       RETURN
       END