Télécharger intjoi.eso

Retour à la liste

Numérotation des lignes :

  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.  
  32.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales