Sources Esope | Cast3M

idmeta
C IDMETA    SOURCE    JK148537  23/03/20    21:15:06     11638          
      SUBROUTINE IDMETA (MFR,TABOBL,TABFAC,JGOBL,JGFAC,ITA,IPLAC,IRET)
*--------------------------------------------------------------------*
*       Noms de composantes des caracteristiques melange             *
*--------------------------------------------------------------------*
*                                                                    *
*  ENTREES:                                                          *
*  -------                                                           *
*     MFR      numero de formulation                                 *
*     TABOBL   Tableau des mots OBLIGATOIRES                         *
*     TABFAC   Tableau des mots FACULTATIFS                          *
*     JGOBL    Taille utilisee du tableau des mots OBLIGATOIRES      *
*     JGFAC    Taille utilisee du tableau des mots FACULTATIFS       *
*     IPLAC    numero du materiau                                    *
*                                                                    *
*  SORTIE :                                                          *
*  -------                                                           *
*     IRET : 0 SI PROBLEME 1, si tout est OK                         *
*                                                                    *
*--------------------------------------------------------------------*
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
      CHARACTER*8  TABOBL(ITA),TABFAC(ITA)
 
      IRET = 1
 
*--------------------------------------------------------------------*
*        MODELE CEREM/M. MARTINEZ,H. BURLET, L.BRIOTTET,
*             changements de phase 16MND5
*--------------------------------------------------------------------*
      IF (IPLAC.EQ.1) THEN
         JGM0=JGOBL
         JGOBL=JGM0+19
         TABOBL(JGM0+1)=  'AC1'
         TABOBL(JGM0+2)=  'AR1'
         TABOBL(JGM0+3)=  'MS0'
         TABOBL(JGM0+4)=  'BETA'
         TABOBL(JGM0+5)=  'AC'
         TABOBL(JGM0+6)=  'AA'
         TABOBL(JGM0+7)=  'ZS'
         TABOBL(JGM0+8)=  'TPLM'
         TABOBL(JGM0+9)=  'CARB'
         TABOBL(JGM0+10)= 'ACAR'
         TABOBL(JGM0+11)= 'DG0'
         TABOBL(JGM0+12)= 'AGRA'
         TABOBL(JGM0+13)= 'TIHT'
         TABOBL(JGM0+14)= 'TFHT'
         TABOBL(JGM0+15)= 'DTHT'
         TABOBL(JGM0+16)= 'NHTR'
         TABOBL(JGM0+17)= 'NLEB'
         TABOBL(JGM0+18)= 'MS'
         TABOBL(JGM0+19)= 'DTPS'
 
      ELSE IF (IPLAC.EQ.2) THEN
*
*        approche ztmax
*
         JGM0=JGOBL
         JGOBL= JGM0+ 7
         TABOBL(JGM0+1)= 'VIPH'
         TABOBL(JGM0+2)= 'AC1'
         TABOBL(JGM0+3)= 'AC2'
         TABOBL(JGM0+4)= 'AC3'
         TABOBL(JGM0+5)= 'AC4'
         TABOBL(JGM0+6)= 'VDEH'
         TABOBL(JGM0+7)= 'VPAR'
 
      ELSE IF (IPLAC.EQ.6) THEN
*
*        approche TMM_LMT2
*
         JGM0=JGOBL
         JGOBL= JGM0+ 15
         TABOBL(JGM0+1)= 'tinc'
         TABOBL(JGM0+2)= 'AC1'
         TABOBL(JGM0+3)= 'Ka'
         TABOBL(JGM0+4)= 'm'
         TABOBL(JGM0+5)= 'Kea'
         TABOBL(JGM0+6)= 'Eea'
         TABOBL(JGM0+7)= 'Ms'
         TABOBL(JGM0+8)= 'Ks'
         TABOBL(JGM0+9)= 'Ar'
         TABOBL(JGM0+10)= 'Br'
         TABOBL(JGM0+11)= 'Cr'
         TABOBL(JGM0+12)= 'Amax'
         TABOBL(JGM0+13)= 'n'
         TABOBL(JGM0+14)= 'TF1'
         TABOBL(JGM0+15)= 'TF2'
*
      ELSE IF (IPLAC.EQ.3) THEN
*
*       parallele
*
      ELSE IF (IPLAC.EQ.4) THEN
*
*     serie
*
      ELSE IF (IPLAC.EQ.5) THEN
*
*     utilisateur
*
      ELSE IF (IPLAC.EQ.99) THEN
*
*   modele de Leblond et Devaux
*
         JGM0=JGOBL
         JGOBL=JGM0+13
         TABOBL(JGM0+1)= 'AC1'
         TABOBL(JGM0+2)= 'AC2'
         TABOBL(JGM0+3)= 'AC3'
         TABOBL(JGM0+4)= 'AC4'
         TABOBL(JGM0+5)= 'TAU1'
         TABOBL(JGM0+6)= 'TAU2'
         TABOBL(JGM0+7)= 'TAU3'
         TABOBL(JGM0+8)= 'TAU4'
         TABOBL(JGM0+9)= 'ZA'
         TABOBL(JGM0+10)= 'ZF'
         TABOBL(JGM0+11)= 'ZB'
         TABOBL(JGM0+12)= 'ZM'
         TABOBL(JGM0+13)= 'MS'
 
      ELSE IF (IPLAC.EQ.99) THEN
*
*   modele croissance de grain
*
         JGM0=JGOBL
         JGOBL=JGM0+6
         TABOBL(JGM0+1)= 'L0'
         TABOBL(JGM0+2)= 'A'
         TABOBL(JGM0+3)= 'Q'
         TABOBL(JGM0+4)= 'QN'
         TABOBL(JGM0+5)= 'ZA'
         TABOBL(JGM0+6)= 'DG'
*
      ELSE IF (IPLAC.EQ.99) THEN
*
*        approche semt2
*
         JGM0=JGOBL
         JGOBL=JGM0+6
         TABOBL(JGM0+1)= 'AC1'
         TABOBL(JGM0+2)= 'AC2'
         TABOBL(JGM0+3)= 'AC3'
         TABOBL(JGM0+4)= 'AC4'
         TABOBL(JGM0+5)= 'ZF'
         TABOBL(JGM0+6)= 'ZA'
 
         JGM0 = JGFAC
         JGFAC = JGM0+2
         TABFAC(JGM0+1)= '        '
         TABFAC(JGM0+2)= '        '
*-----------------------------------------------------------------------
*     SI PROBLEME , ON SORT AVEC IRET A 0
*-----------------------------------------------------------------------
      ELSE
        IRET = 0
        CALL ERREUR(261)
      ENDIF
      RETURN
      END