Download fvehv.eso

Back to the list

   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 :  

© Cast3M 2003 - All rights reserved.
Disclaimer