C UTMU      SOURCE    KICH      05/05/26    21:16:18     5092           
      SUBROUTINE UTMU(IRIG,ITBST)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

*--------------------------------------------------------------------*
* calcul UtMU pour les solutions statiques et range dans la table
*--------------------------------------------------------------------*
*                                                                    *
-INC CCOPTIO
*- 
-INC SMTABLE
      CHARACTER*8 TYPRET

      mtable = itbst 
      segact mtable 

      IM = 0 
      IMA = 0                                        
 50   CONTINUE                  
      IM = IM + 1
      itmod = mtabiv(im)
      typret = mtabtv(im)
      IF (ITMOD.NE.0 .AND. TYPRET.EQ.'TABLE   ') THEN 
        ITAB2=itmod   
        CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE',L0,IP0, 
     &                  'CHPOINT ',I1,X1,' ',L1,ITDEPL)
         call XTMX(itepl,irig,x1)
         if (ierr.ne.0) return
         CALL ECCTAB(IPTAB2,'MOT',0,0.0D0,'MASSE_DEFORMEE',.TRUE.,0,
     &        'FLOTTANT',0,x1,' ',.TRUE.,0)       
      ENDIF
      if (im.lt.mlotab) goto 50
      segdes mtable
      return

      END