Esope source files

   1 : C IDVA13    SOURCE    CHAT      11/03/16    21:25:37     6902           
   2 :          SUBROUTINE IDVA13(MFR,IPMODL,IPCOMP,NBROBL,NBRFAC,MATEPL)
   3 : c variables internes IMPEDANCE
   4 :       IMPLICIT INTEGER(I-N)
   5 :       LOGICAL limped
   6 : -INC SMMODEL
   7 : -INC CCOPTIO
   8 : -INC CCHAMP
   9 : 
  10 :        IMODEL = IPMODL
  11 : 
  12 :        IF (MATEPL.EQ.10) THEN
  13 :        nbrobl = 1
  14 :        nbrfac = 0
  15 :        segini nomid
  16 :        ipcomp = nomid
  17 : 
  18 :        lesobl(1) = 'EPSE'
  19 : 
  20 : * plastique cinematique
  21 :         IF (inatuu.eq.3) THEN
  22 :          jj = nbrfac
  23 :          nbrfac = nbrfac + 2
  24 :          segadj nomid
  25 :          lesfac(jj + 1) = 'DMAX'
  26 :          lesfac(jj + 2) = 'DANE'
  27 :         ENDIF
  28 :        segdes nomid
  29 :  
  30 :        ELSE IF(MATEPL.EQ.11) THEN
  30 :          call iddepl(MFR,IFOUR,IPNOMC,NBROBL,NBRFAC)
  31 :          nomid = ipnomc
  32 :          segact nomid*mod
  33 :          do io = 1,nbrobl
  34 :           lesobl(io)(2:4)=lesobl(io)(1:3)
  35 :           lesobl(io)(1:1)='V'
  36 :          enddo 
  37 :          do io = 1,nbrfac
  38 :           lesfac(io)(2:4)=lesfac(io)(1:3)
  39 :           lesfac(io)(1:1)='V'
  40 :          enddo 
  41 :          segdes nomid
  42 :          IPCOMP = NOMID
  43 :          
  44 :        ENDIF
  45 : 
  46 :           
  47 : 
  48 :        RETURN 
  49 :        END
  50 :  
  51 :  
  52 :  
  53 :