Télécharger dohlis.eso

Retour à la liste

Numérotation des lignes :

  1. C DOHLIS SOURCE CHAT 05/01/12 22:53:39 5004
  2. C
  3. SUBROUTINE DOHLIS(VELA,MATE,IFOU,LHOOK,DDHOOK,IRET)
  4. C
  5. C=======================================================================
  6. C
  7. C MATRICE DE HOOK DU LINESPRING
  8. C
  9. C ENTREES
  10. C VELA() = materiau dans un tableau de travail
  11. C MATE = Nom du materiau
  12. C IFOU = num{ro d'harmonique de fourier: IFOUR de CCOPTIO
  13. C LHOOK = taille de la matrice de hooke
  14. C
  15. C SORTIES
  16. C DDHOOK(LHOOK,LHOOK) = matrice de hooke
  17. C IRET = 1 si option existante 0 SINON
  18. C
  19. C Passage en nouveau CHAMELEM par I.Monnier le 4 05 90
  20. C=======================================================================
  21. C
  22. IMPLICIT INTEGER(I-N)
  23. IMPLICIT REAL*8(A-H,O-Z)
  24. PARAMETER(UNDEMI=.5D0,XZER=0.0D0,XK=1.2D0)
  25. PARAMETER(UN=1.D0,DEUX=2.D0)
  26. CHARACTER*8 MATE
  27. C
  28. DIMENSION VELA(*),DDHOOK(LHOOK,*)
  29. C
  30. IRET=1
  31. CALL ZERO(DDHOOK,LHOOK,LHOOK)
  32. C
  33. C MATERIAU ISOTROPE
  34. C
  35. IF(MATE.EQ.'ISOTROPE') THEN
  36. C
  37. C TRIDIMENSIONNEL
  38. C
  39. IF(IFOU.EQ.2) THEN
  40. YOU=VELA(1)
  41. XNU=VELA(2)
  42. EE=YOU*UNDEMI/(UN-XNU*XNU)
  43. C
  44. DDHOOK(1,1)=EE
  45. DDHOOK(2,2)=EE
  46. ELSE
  47. IRET=0
  48. ENDIF
  49. ELSE
  50. IRET=0
  51. ENDIF
  52. RETURN
  53. END
  54.  
  55.  

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