C IDVA13    SOURCE    CHAT      11/03/16    21:25:37     6902           
         SUBROUTINE IDVA13(MFR,IPMODL,IPCOMP,NBROBL,NBRFAC,MATEPL)
c variables internes IMPEDANCE
      IMPLICIT INTEGER(I-N)
      LOGICAL limped
-INC SMMODEL
-INC CCOPTIO
-INC CCHAMP

       IMODEL = IPMODL

       IF (MATEPL.EQ.10) THEN
       nbrobl = 1
       nbrfac = 0
       segini nomid
       ipcomp = nomid

       lesobl(1) = 'EPSE'

* plastique cinematique
        IF (inatuu.eq.3) THEN
         jj = nbrfac
         nbrfac = nbrfac + 2
         segadj nomid
         lesfac(jj + 1) = 'DMAX'
         lesfac(jj + 2) = 'DANE'
        ENDIF
       segdes nomid
 
       ELSE IF(MATEPL.EQ.11) THEN
         call iddepl(MFR,IFOUR,IPNOMC,NBROBL,NBRFAC)
         nomid = ipnomc
         segact nomid*mod
         do io = 1,nbrobl
          lesobl(io)(2:4)=lesobl(io)(1:3)
          lesobl(io)(1:1)='V'
         enddo 
         do io = 1,nbrfac
          lesfac(io)(2:4)=lesfac(io)(1:3)
          lesfac(io)(1:1)='V'
         enddo 
         segdes nomid
         IPCOMP = NOMID
         
       ENDIF

          

       RETURN 
       END