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    CB215821  24/04/12    21:16:23     11897          
  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.10) THEN
  16.          nbrobl = 1
  17.          nbrfac = 0
  18.          segini nomid
  19.  
  20.          lesobl(1) = 'EPSE'
  21.  
  22. C plastique cinematique
  23.          IF (inatuu.eq.3) THEN
  24.           jj = nbrfac
  25.           nbrfac = nbrfac + 2
  26.           segadj nomid
  27.           lesfac(jj + 1) = 'DMAX'
  28.           lesfac(jj + 2) = 'DANE'
  29.          ENDIF
  30.  
  31.        ELSE IF(MATEPL.EQ.11) THEN
  32. C        Recuperation du NOMID des composantes primales
  33.          NOMID1=IMODEL.LNOMID(1)
  34.          nbrobl=NOMID1.LESOBL(/2)
  35.          nbrfac=NOMID1.LESFAC(/2)
  36.          segini,NOMID
  37.          do io = 1,nbrobl
  38.            LESOBL(io)='V'//NOMID1.LESOBL(io)(1:3)
  39.          enddo
  40.          do io = 1,nbrfac
  41.            LESFAC(io)='V'//NOMID1.LESFAC(io)(1:3)
  42.          enddo
  43.  
  44.        ENDIF
  45.  
  46.        IPNOMC=NOMID
  47.  
  48.        END
  49.  
  50.  
  51.  

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