Télécharger dohooo.eso

Retour à la liste

Numérotation des lignes :

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

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