Télécharger la plaquette Cast3M


fr en

Télécharger idva11.eso

Retour à la liste

Numérotation des lignes : 

idva11

  1. C IDVA11    SOURCE    CHAT      05/01/13    00:30:53     5004
  2.  
  3. C=======================================================================
  4. *      RECHERCHE DES NOMS DE COMPOSANTES DES VARIABLES INTERNES
  5. *      --------------------------------------------------------
  6. *
  7. *  ENTREES :
  8. *  ---------
  9. *     MATEPL   NUMERO DU MATERIAU PLASTIQUE
  10. *     MFR      NUMERO DE FORMULATION
  11. *     IFOUR    VALEUR DE IFOU DANS CCOPTIO
  12. *     NPINT  NOMBRE DE POINTS D'INTEGRATION DANS L'EPAISSEUR
  13. *            POUR LES ELEMENTS DE COQUE INTEGRES
  14. *
  15. *  SORTIES :
  16. *  ---------
  17. *     IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  18. *              OBLIGATOIRES ET FACULTATIVES
  19. *     NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
  20. *     NBRFAC   NOMBRE DE COMPOSANTES FACTULTATIVES
  21. C=======================================================================
  22.  
  23.       SUBROUTINE IDVA11 (MATEPL,MFR,IFOUR,NPINT,IPCOMP,NBROBL,NBRFAC)
  24.  
  25.       IMPLICIT INTEGER(I-N)
  26.       IMPLICIT REAL*8 (A-H,O-Z)
  27.  
  28.       SEGMENT NOMID
  29.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  30.       ENDSEGMENT
  31.  
  32.       NBROBL=0
  33.       NBRFAC=0
  34.       NOMID=0
  35.  
  36. C  1 - MATERIAU HINTE contraintes planes
  37. C =======================================
  38.       IF (MATEPL.EQ.89) THEN
  39.         NBROBL=5
  40.         SEGINI,NOMID
  41.         LESOBL(1)='EPSE'
  42.         LESOBL(2)='D3  '
  43.         LESOBL(3)='D2  '
  44.         LESOBL(4)='D1  '
  45.         LESOBL(5)='YDB '
  46.  
  47. C  2 - MATERIAU VISCOHINTE contraintes planes
  48. C ============================================
  49.       ELSE IF (MATEPL.EQ.90) THEN
  50.         NBROBL=5
  51.         SEGINI,NOMID
  52.         LESOBL(1)='EPSE'
  53.         LESOBL(2)='D3  '
  54.         LESOBL(3)='D2  '
  55.         LESOBL(4)='D1  '
  56.         LESOBL(5)='YDB '
  57.       ENDIF
  58.  
  59.       IPCOMP=NOMID
  60.       SEGDES,NOMID
  61.  
  62.       RETURN
  63.       END
  64.  
  65.  
  66.  

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