Télécharger dohoco.eso

Retour à la liste

Numérotation des lignes :

  1. C DOHOCO SOURCE LJ1 14/11/13 21:15:19 8249
  2.  
  3. SUBROUTINE DOHOCO(VELA,LHOOK,DDHOOK,XL,DIAM)
  4. C
  5. C=======================================================================
  6. C
  7. C RANGEMENT D'UNE MATRICE DE HOOK DEJA CALCULEE
  8. C
  9. C ENTREES
  10. C VELA() = materiau dans un tableau de travail
  11. C LHOOK = taille de la matrice de hooke
  12. C
  13. C SORTIES
  14. C DDHOOK(LHOOK,LHOOK) = matrice de hooke
  15. C
  16. C Passage en nouveau CHAMELEM par I.Monnier le 4 05 90
  17. C=======================================================================
  18. C
  19. IMPLICIT INTEGER(I-N)
  20. IMPLICIT REAL*8(A-H,O-Z)
  21. C
  22. DIMENSION VELA(*),DDHOOK(LHOOK,*)
  23. C
  24. XPI = 3.1415926535897931D0
  25. C
  26. IJ=1
  27. DO 100 JJ=1,LHOOK
  28. DO 100 II=1,LHOOK
  29. DDHOOK(II,JJ)=VELA(IJ) * XL * DIAM
  30. IJ=IJ+1
  31. 100 CONTINUE
  32. DDHOOK(1,1) = DDHOOK(1,1) * XPI
  33. C
  34. RETURN
  35. END
  36.  
  37.  
  38.  
  39.  

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