Télécharger dohbrr.eso

Retour à la liste

Numérotation des lignes :

  1. C DOHBRR SOURCE CHAT 05/01/12 22:53:18 5004
  2. SUBROUTINE DOHBRR(VELA,SECT,DDHOOK,IRET)
  3. C
  4. C=======================================================================
  5. C
  6. C MATRICE DE HOOK DES BARRES
  7. C
  8. C ENTREES
  9. C VELA() = materiau dans un tableau de travail
  10. C SECT = section de la barre
  11. C
  12. C SORTIES
  13. C DDHOOK = matrice de hooke ( scalaire )
  14. C IRET = 1 si option existante 0 SINON
  15. C
  16. C Passage en nouveau CHAMELEM par I.Monnier le 4 05 90
  17. C=======================================================================
  18. IMPLICIT INTEGER(I-N)
  19. IMPLICIT REAL*8(A-H,O-Z)
  20. C
  21. DIMENSION VELA(*)
  22. C
  23. IRET=1
  24. YOU=VELA(1)
  25. DDHOOK=YOU*SECT
  26. RETURN
  27. END
  28.  
  29.  

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