Download loasfv.eso

Back to the list

   1 : C LOASFV    SOURCE    AM        11/05/26    21:15:59     6982           
   2 :       subroutine LOASFV (force, q, yield)
   3 : C     Routine permettant le calcul de la valeur de la surface de charge pour le mécanisme vertical
   4 : 
   5 :         IMPLICIT INTEGER(I-N)
   6 :         IMPLICIT REAL*8(A-H,O-Z)
   7 :         DIMENSION force(5)
   8 : *
   9 :         yield=force(1)-q
  10 : 
  11 :         return
  12 :         end
  13 :  

© Cast3M 2003 - All rights reserved.
Disclaimer