Télécharger po1bsg.eso

Retour à la liste

Numérotation des lignes :

  1. C PO1BSG SOURCE CHAT 05/01/13 02:15:35 5004
  2. SUBROUTINE PO1BSG(COORD,LRE,XDPGE,YDPGE,EFFO,REL)
  3. C---------------------------------------------------------------
  4. C ROUTINE DE CALCUL DES FORCES INTERNES POUR UN
  5. C ELEMENT POI1 EN DEFORMATIONS PLANES GENERALISEES
  6. C---------------------------------------------------------------
  7. C
  8. C
  9. C ENTREES
  10. C
  11. C COORD COORDONNEES DU POINT
  12. C XDPGE COORDONNEES DU POINT AUTOUR DUQUEL SE FAIT LA
  13. C YDPGE SECTION EN DEFORMATIONS PLANES GENERALISEES
  14. C
  15. C SORTIES
  16. C
  17. C REL VECTEUR CONTENANT LES FORCES INTERNES
  18. C
  19. C----------------------------------------------------------------
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8(A-H,O-Z)
  22. -INC CCREEL
  23. DIMENSION REL(LRE),COORD(3,*)
  24. *
  25. XX=COORD(1,1)
  26. YY=COORD(2,1)
  27. XXX=XDPGE-XX
  28. YYY=YY-YDPGE
  29. DO 1 I=1,LRE
  30. 1 REL(I)=0.D0
  31. *
  32. REL(3)=EFFO
  33. REL(4)=EFFO*XXX
  34. REL(5)=EFFO*YYY
  35. *
  36. RETURN
  37. END
  38.  
  39.  
  40.  
  41.  

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