4. Example in the case of steel

An example of creating the initial field of internal variables is presented (with 70% ferrite, 30% bainite and the rest at zero).

phasinit = CREA_CHAMP (OPERATION =' AFFE ',
                      TYPE_CHAM = 'CART_VAR2_R',
                      MAILLAGE = email,
                      AFFE =_F (TOUT = 'OUI',
                      NOM_CMP = ('V1', 'V2', 'V2', 'V3', 'V4', 'V5', 'V6', 'V7'),
                      VALE = (0.7,0.0,0.3,0.0,0,0,1.,0. ))),

Then the thermal evolution is calculated:

temple = THER_LINEAIRE (MODELE = moth,
                      CHAM_MATER = chmat,
                      EXCIT = _F (CHARGE = chth1),
                      INCREMENT = (LIST_INST = lr8),
                      TEMP_INIT =( VALE = 700),)

Finally, the evolution of the metallurgical phases is calculated:

temple = CALC_META (reuse = temple,
                   MODELE = moth,
                   CHAM_MATER = chmat,
                   RESULTAT = temple,
                   ETAT_INIT =_F (META_INIT_ELNO = phasinit),
                   COMPORTEMENT =_F (RELATION =' ACIER ', TOUT =' OUI '))