Télécharger gradfv.eso

Retour à la liste

Numérotation des lignes :

  1. C GRADFV SOURCE AM 11/05/26 21:15:34 6982
  2. subroutine GRADFV (force, q, Gradfs, Gradfq)
  3. C Routine permettant le calcul des dérivées de la surface de charge par rapport à l'effort et au vecteur force et d'écrouissage
  4.  
  5.  
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. *
  9. DIMENSION force(5), Gradfs(5)
  10. *
  11. Gradfs(1) = 1
  12. Gradfs(2) = 0
  13. Gradfs(3) = 0
  14. Gradfs(4) = 0
  15. Gradfs(5) = 0
  16.  
  17. Gradfq = -1
  18.  
  19. return
  20. end
  21.  
  22.  

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