Sources Esope | Cast3M

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