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