Télécharger biflx1.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  23. C+PPf
  24. C
  25. DIMENSION VELA(*),DDHOOK(LHOOK,*)
  26. C
  27. C+PPf
  28. C
  29. IF(IFOUR.EQ.2) THEN
  30. C+PPf
  31. VELA(1) = DDHOOK(1,1)
  32. VELA(2) =-DDHOOK(6,1)
  33. VELA(3) = DDHOOK(5,1)
  34. VELA(4) = DDHOOK(6,6)
  35. VELA(5) =-DDHOOK(6,5)
  36. VELA(6) = DDHOOK(5,5)
  37. VELA(7) = DDHOOK(3,3)
  38. VELA(8) = DDHOOK(2,2)
  39. VELA(9) = DDHOOK(4,3)
  40. VELA(10)=-DDHOOK(4,2)
  41. VELA(11)= DDHOOK(4,4)/2
  42. VELA(12)= VELA(11)
  43. C+PPf
  44. C
  45. ELSEIF(IFOUR.EQ.-2.OR.IFOUR.EQ.-1.OR.IFOUR.EQ.-3) THEN
  46. VELA(1) = DDHOOK(1,1)
  47. VELA(2) =-DDHOOK(1,3)
  48. VELA(3) = DDHOOK(3,3)
  49. VELA(4) = DDHOOK(2,2)
  50. ENDIF
  51. C+PPf
  52. C
  53. RETURN
  54. END
  55.  
  56.  
  57.  
  58.  

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