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).

.. code-block:: text

    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:

.. code-block:: text

    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:

.. code-block:: text

    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 '))