Download gradfv.eso

Back to the list

   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 :  

© Cast3M 2003 - All rights reserved.
Disclaimer