Télécharger la plaquette Cast3M


fr en

Télécharger idva13.eso

Retour à la liste

Numérotation des lignes : 

idva13

  1. C IDVA13    SOURCE    MB234859  25/08/04    21:15:24     12339          
  2.          SUBROUTINE IDVA13(MFR,IPMODL,IPNOMC,NBROBL,NBRFAC,MATEPL)
  3. c variables internes IMPEDANCE
  4.       IMPLICIT INTEGER(I-N)
  5.       LOGICAL limped
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCHAMP
  10. -INC SMMODEL
  11.        POINTEUR nomid1.nomid
  12.  
  13.        IMODEL = IPMODL
  14.  
  15.        IF (MATEPL.EQ.161.OR.MATEPL.EQ.162.OR.MATEPL.EQ.164) THEN
  16.          NBROBL = 1
  17.          NBRFAC = 0
  18.          SEGINI NOMID
  19.          LESOBL(1) = 'EPSE'
  20.  
  21. C plastique cinematique
  22.          IF (inatuu.eq.3) THEN
  23.           jj = nbrfac
  24.           nbrfac = nbrfac + 2
  25.           segadj nomid
  26.           lesfac(jj + 1) = 'DMAX'
  27.           lesfac(jj + 2) = 'DANE'
  28.          ENDIF
  29.  
  30.        ELSEIF (MATEPL.EQ.163) THEN
  31. C        Recuperation du NOMID des composantes primales
  32.          NOMID1=IMODEL.LNOMID(1)
  33.          nbrobl=NOMID1.LESOBL(/2)
  34.          nbrfac=NOMID1.LESFAC(/2)
  35.          segini,NOMID
  36.          do io = 1,nbrobl
  37.            LESOBL(io)='V'//NOMID1.LESOBL(io)(1:3)
  38.          enddo
  39.          do io = 1,nbrfac
  40.            LESFAC(io)='V'//NOMID1.LESFAC(io)(1:3)
  41.          enddo
  42.  
  43.        ENDIF
  44.  
  45.        IPNOMC=NOMID
  46.        END
  47.  
  48.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales