C PRMU      SOURCE    KICH      11/01/07    21:16:12     6839
      SUBROUTINE PRMU(IRIG,ITBST)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      logical l0,l1
      CHARACTER*16 mwi
*--------------------------------------------------------------------*
* calcul MU pour les solutions statiques et range dans la table
*--------------------------------------------------------------------*
*                                                                    *

-INC PPARAM
-INC CCOPTIO
*-
-INC SMTABLE
      CHARACTER*8 TYPRET

      ijwi = 0
        CALL ACCTAB(ITBST,'MOT',I0,X0,'SOUSTYPE',L0,IP0,
     &                  'MOT',I1,X1,mwi,L1,ITDEPL)
      if (mwi(1:13).eq.'BASE_DE_MODES') ijwi = 1

      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
        if (ijwi.eq.1) then
        CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,
     &                  'CHPOINT ',I1,X1,' ',L1,ITDEPL)
        else
        CALL ACCTAB(ITAB2,'MOT',I0,X0,'DEFORMEE',L0,IP0,
     &                  'CHPOINT ',I1,X1,' ',L1,ITDEPL)
        endif
         call MUCPRI(itdepl,irig,ire1)
         if (ierr.ne.0) return
         CALL ECCTAB(ITAB2,'MOT',0,0.0D0,'MASSE_DEFORMEE',.TRUE.,0,
     &        'CHPOINT ',0,0.0d0,' ',.TRUE.,ire1)
      ENDIF
      if (im.lt.mlotab) goto 50
      segdes mtable
      return

      END