Télécharger la plaquette Cast3M


fr en

Télécharger po1bsg.eso

Retour à la liste

Numérotation des lignes : 

po1bsg

  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