Télécharger fvehv.eso

Retour à la liste

Numérotation des lignes :

  1. C FVEHV SOURCE AM 11/05/26 21:15:34 6982
  2. subroutine FVEHV (force,q,XMKel,Gradfs,hh)
  3. C Routine permettant le calcul de la fonction vectorielle d'écrouissage pour le mécanisme vertical
  4.  
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. *
  8. DIMENSION XMKel(5,5), force(5), Gradfs(5)
  9. *
  10. hh=-Gradfs(1)*XMKel(1,1)*(1-q)/q
  11.  
  12. return
  13. end
  14.  
  15.  

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