Numérotation des lignes :

C IDMETA    SOURCE    FANDEUR   16/12/05    21:39:47     9211                 SUBROUTINE IDMETA (MFR,MOOBL,MOFAC,IPLAC,IRET)*--------------------------------------------------------------------**       Noms de composantes des caracteristiques melange             **--------------------------------------------------------------------**                                                                    **  ENTREES:                                                          **  -------                                                           **     MFR      numero de formulation                                 **     MOOBL    pointeur sur les mots obligatoires                    **     MOFAC    POINTEUR SUR LES 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 CCOPTIO -INC SMLMOTS       MLMOTS = MOOBL      MLMOT1 = MOFAC       JGN    = 8c* On a aussi :     JGN    = mlmots.mots(/1)       IRET = 1 *--------------------------------------------------------------------**        MODELE CEREM/M. MARTINEZ,H. BURLET, L.BRIOTTET,*             changements de phase 16MND5*--------------------------------------------------------------------*      IF (IPLAC.EQ.1) THEN         JGA=MOTS(/2)         JGM=JGA+23         SEGADJ MLMOTS          MOTS(JGA+1)=  'AC1'         MOTS(JGA+2)=  'AR1'         MOTS(JGA+3)=  'MS0'         MOTS(JGA+4)=  'BETA'         MOTS(JGA+5)=  'AC'         MOTS(JGA+6)=  'AA'         MOTS(JGA+7)=  'ZS'         MOTS(JGA+8)=  'TPLM'         MOTS(JGA+9)=  'CARB'         MOTS(JGA+10)= 'ACAR'         MOTS(JGA+11)= 'DG0'         MOTS(JGA+12)= 'AGRA'          MOTS(JGA+13)= 'TIHT'         MOTS(JGA+14)= 'TFHT'         MOTS(JGA+15)= 'DTHT'         MOTS(JGA+16)= 'NHTR'         MOTS(JGA+17)= 'NLEB'          MOTS(JGA+18)= 'AUST'         MOTS(JGA+19)= 'FERR'         MOTS(JGA+20)= 'BAIN'         MOTS(JGA+21)= 'MART'         MOTS(JGA+22)= 'MS'          MOTS(JGA+23)= 'DTPS'       ELSE IF (IPLAC.EQ.2) THEN**        approche ztmax*         JGA = MOTS(/2)         JGM = JGA+ 9         SEGADJ MLMOTS         MOTS(JGA+1)= 'PHA1'         MOTS(JGA+2)= 'PHA2'         MOTS(JGA+3)= 'VIPH'         MOTS(JGA+4)= 'AC1'         MOTS(JGA+5)= 'AC2'         MOTS(JGA+6)= 'AC3'         MOTS(JGA+7)= 'AC4'         MOTS(JGA+8)= 'VDEH'         MOTS(JGA+9)= 'VPAR'      ELSE IF (IPLAC.EQ.6) THEN**        approche TMM_LMT2*         JGA = MOTS(/2)         JGM = JGA+ 20         SEGADJ MLMOTS         MOTS(JGA+1)= 'PHA1'         MOTS(JGA+2)= 'PHA2'         MOTS(JGA+3)= 'PHA3'         MOTS(JGA+4)= 'tinc'         MOTS(JGA+5)= 'AC1'         MOTS(JGA+6)= 'Ka'         MOTS(JGA+7)= 'm'         MOTS(JGA+8)= 'Kea'         MOTS(JGA+9)= 'Eea'         MOTS(JGA+10)= 'Ms'         MOTS(JGA+11)= 'Ks'         MOTS(JGA+12)= 'Ar'         MOTS(JGA+13)= 'Br'         MOTS(JGA+14)= 'Cr'         MOTS(JGA+15)= 'Amax'         MOTS(JGA+16)= 'n'         MOTS(JGA+17)= 'TF1'         MOTS(JGA+18)= 'TF2'         MOTS(JGA+19)= 'PHA4'         MOTS(JGA+20)= 'PHA5'*      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*         JGA=MOTS(/2)         JGM=JGA+13         SEGADJ MLMOTS         MOTS(JGA+1)= 'AC1'         MOTS(JGA+2)= 'AC2'         MOTS(JGA+3)= 'AC3'         MOTS(JGA+4)= 'AC4'         MOTS(JGA+5)= 'TAU1'         MOTS(JGA+6)= 'TAU2'         MOTS(JGA+7)= 'TAU3'         MOTS(JGA+8)= 'TAU4'         MOTS(JGA+9)= 'ZA'         MOTS(JGA+10)= 'ZF'         MOTS(JGA+11)= 'ZB'         MOTS(JGA+12)= 'ZM'         MOTS(JGA+13)= 'MS'       ELSE IF (IPLAC.EQ.99) THEN**   modele croissance de grain*         JGA=MOTS(/2)         JGM=JGA+6         SEGADJ MLMOTS         MOTS(JGA+1)= 'L0'         MOTS(JGA+2)= 'A'         MOTS(JGA+3)= 'Q'         MOTS(JGA+4)= 'QN'         MOTS(JGA+5)= 'ZA'         MOTS(JGA+6)= 'DG'*      ELSE IF (IPLAC.EQ.99) THEN**        approche semt2*         JGA=MOTS(/2)         JGM=JGA+6         SEGADJ MLMOTS         MOTS(JGA+1)= 'AC1'         MOTS(JGA+2)= 'AC2'         MOTS(JGA+3)= 'AC3'         MOTS(JGA+4)= 'AC4'         MOTS(JGA+5)= 'ZF'         MOTS(JGA+6)= 'ZA'          JGA = mlmot1.MOTS(/2)         JGM = JGA+2         SEGADJ,MLMOT1         mlmot1.MOTS(JGA+1)= ' '         mlmot1.MOTS(JGA+2)= ' '*-----------------------------------------------------------------------*     SI PROBLEME , ON SORT AVEC IRET A 0*-----------------------------------------------------------------------      ELSE        IRET = 0        CALL ERREUR(261)      ENDIF       MOOBL = MLMOTS      MOFAC = MLMOT1       RETURN      END

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