Télécharger la plaquette Cast3M


fr en

Télécharger idvar3.eso

Retour à la liste

Numérotation des lignes : 

idvar3

  1. C IDVAR3    SOURCE    AM        16/06/08    21:15:10     8953           
  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. *
  13. *  SORTIES :
  14. *  ---------
  15. *     IPCOMP   POINTEUR SUR LA LISTE DES NOMS DE COMPOSANTES
  16. *              OBLIGATOIRES ET FACULTATIVES
  17. *     NBROBL   NOMBRE DE COMPOSANTES OBLIGATOIRES
  18. *     NBRFAC   NOMBRE DE COMPOSANTES FACULTATIVES
  19. C=======================================================================
  20.  
  21.       SUBROUTINE IDVAR3 (MATEPL,MFR,IFOUR,IPCOMP,NBROBL,NBRFAC)
  22.  
  23.       IMPLICIT INTEGER(I-N)
  24.       IMPLICIT REAL*8 (A-H,O-Z)
  25.  
  26.       SEGMENT NOMID
  27.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  28.       ENDSEGMENT
  29.  
  30.       NBROBL=0
  31.       NBRFAC=0
  32.       NOMID=0
  33.  
  34. C  1 - Modele de LEMAITRE
  35. C ========================
  36.       IF (MATEPL.EQ.24) THEN
  37.         NBROBL=2
  38.         SEGINI,NOMID
  39.         LESOBL(1)='XX  '
  40.         LESOBL(2)='EPSE'
  41.  
  42. C  2 - Modele de MAXWELL
  43. C =======================
  44.       ELSE IF (MATEPL.EQ.74) THEN
  45.         NBROBL=6
  46.         NBRFAC=4
  47.         SEGINI,NOMID
  48.         LESOBL(1)='EPSE'
  49.         LESOBL(2)='SM0 '
  50.         LESOBL(3)='SM1 '
  51.         LESOBL(4)='SM2 '
  52.         LESOBL(5)='SM3 '
  53.         LESOBL(6)='SM4 '
  54.         LESFAC(1)='SM5 '
  55.         LESFAC(2)='SM6 '
  56.         LESFAC(3)='SM7 '
  57.         LESFAC(4)='SM8 '
  58.  
  59. C  3 - Modele BPEL_RELAX
  60. C =======================
  61.       ELSE IF (MATEPL.EQ.95) THEN
  62.         NBROBL=1
  63.         SEGINI,NOMID
  64.         LESOBL(1)='ERLX'
  65.  
  66.  
  67.       IPCOMP=NOMID
  68.       SEGDES,NOMID
  69.  
  70. C  4 - Modele KELVIN
  71. C =======================
  72. C MATEPL=174            
  73.       ELSE IF (MATEPL.EQ.174) THEN              
  74.        NBROBL=19                
  75.        SEGINI,NOMID             
  76.        LESOBL(1)        =       'EPF1'
  77.        LESOBL(2)        =       'EPF2'
  78.        LESOBL(3)        =       'EPF3'
  79.        LESOBL(4)        =       'EPF4'
  80.        LESOBL(5)        =       'EPF5'
  81.        LESOBL(6)        =       'EPF6'
  82.        LESOBL(7)        =       'SMR1'
  83.        LESOBL(8)        =       'SMR2'
  84.        LESOBL(9)        =       'SMR3'
  85.        LESOBL(10)       =       'SMR4'
  86.        LESOBL(11)       =       'SMR5'
  87.        LESOBL(12)       =       'SMR6'
  88.        LESOBL(13)       =       'EPE1'
  89.        LESOBL(14)       =       'EPE2'
  90.        LESOBL(15)       =       'EPE3'
  91.        LESOBL(16)       =       'EPE4'
  92.        LESOBL(17)       =       'EPE5'
  93.        LESOBL(18)       =       'EPE6'     
  94.        LESOBL(19)       =       'EPSE'
  95.       ENDIF
  96.  
  97.       IPCOMP=NOMID
  98.       SEGDES,NOMID
  99.  
  100.       RETURN
  101.       END
  102.  
  103.  
  104.  
  105.  
  106.  

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