Télécharger la plaquette Cast3M


fr en

Télécharger biflx1.eso

Retour à la liste

Numérotation des lignes : 

biflx1

  1. C BIFLX1    SOURCE    CHAT      05/01/12    21:40:01     5004
  2.       SUBROUTINE BIFLX1(DDHOOK,LHOOK,VELA)
  3. C
  4. C=======================================================================
  5. C
  6. C  CAS SECTION: REMPLISSAGE DE VELA POUR FONCTIONER AVEC CALSIG
  7. C               QUAND MATRICE DE HOOKE ELASTIQUE DEJA CALCULEE
  8. C
  9. C  ENTREES
  10. C     DDHOOK(LHOOK,LHOOK) = matrice de hooke
  11. C     LHOOK  = taille de la matrice de hooke
  12. C
  13. C  SORTIES
  14. C     VELA() = materiau dans un tableau de travail
  15. C
  16. C=======================================================================
  17. C     Pierre Pegon (ISPRA) 28/2/96
  18. C=======================================================================
  19.       IMPLICIT INTEGER(I-N)
  20.       IMPLICIT REAL*8(A-H,O-Z)
  21. C+PPf
  22.  
  23. -INC PPARAM
  24. -INC CCOPTIO
  25. C+PPf
  26. C
  27.       DIMENSION VELA(*),DDHOOK(LHOOK,*)
  28. C
  29. C+PPf
  30. C
  31.             IF(IFOUR.EQ.2) THEN
  32. C+PPf
  33.       VELA(1) = DDHOOK(1,1)
  34.       VELA(2) =-DDHOOK(6,1)
  35.       VELA(3) = DDHOOK(5,1)
  36.       VELA(4) = DDHOOK(6,6)
  37.       VELA(5) =-DDHOOK(6,5)
  38.       VELA(6) = DDHOOK(5,5)
  39.       VELA(7) = DDHOOK(3,3)
  40.       VELA(8) = DDHOOK(2,2)
  41.       VELA(9) = DDHOOK(4,3)
  42.       VELA(10)=-DDHOOK(4,2)
  43.       VELA(11)= DDHOOK(4,4)/2
  44.       VELA(12)= VELA(11)
  45. C+PPf
  46. C
  47.            ELSEIF(IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  48.       VELA(1) = DDHOOK(1,1)
  49.       VELA(2) =-DDHOOK(1,3)
  50.       VELA(3) = DDHOOK(3,3)
  51.       VELA(4) = DDHOOK(2,2)
  52.            ENDIF
  53. C+PPf
  54. C
  55.       RETURN
  56.       END
  57.  
  58.  
  59.  
  60.  

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