Télécharger idva13.eso

Retour à la liste

Numérotation des lignes :

  1. C IDVA13 SOURCE CB215821 17/01/16 21:15:49 9279
  2. SUBROUTINE IDVA13(MFR,IPMODL,IPNOMC,NBROBL,NBRFAC,MATEPL)
  3. c variables internes IMPEDANCE
  4. IMPLICIT INTEGER(I-N)
  5. LOGICAL limped
  6. -INC CCOPTIO
  7. -INC CCHAMP
  8. -INC SMMODEL
  9. POINTEUR nomid1.nomid
  10.  
  11. IMODEL = IPMODL
  12.  
  13. IF (MATEPL.EQ.10) THEN
  14. nbrobl = 1
  15. nbrfac = 0
  16. segini nomid
  17. IPNOMC = nomid
  18.  
  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. segdes nomid
  30.  
  31. ELSE IF(MATEPL.EQ.11) THEN
  32. call IDPRIM(IMODEL,MFR,IPNOMC,NBROBL,NBRFAC)
  33. nomid = ipnomc
  34. segini, nomid1
  35. IPNOMC = nomid1
  36. do io = 1,nbrobl
  37. nomid1.lesobl(io)(2:4)=lesobl(io)(1:3)
  38. nomid1.lesobl(io)(1:1)='V'
  39. enddo
  40. do io = 1,nbrfac
  41. nomid1.lesfac(io)(2:4)=lesfac(io)(1:3)
  42. nomid1.lesfac(io)(1:1)='V'
  43. enddo
  44. segdes nomid,nomid1
  45.  
  46. ENDIF
  47.  
  48. RETURN
  49. END
  50.  
  51.  
  52.  

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