/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   R E L A T I V E S   A U   R E C U I T   S I M U L E  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrk/recuit_2D.1F$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1998??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N I T I A L I S A T I O N S   N E C E S S A I R E S   A   L A   T E M P E R A T U R E  :                                 */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
          Test(IL_FAUT(utiliser_une_temperature))
               Bblock
               EGAL(temperature_courante,temperature_initiale);
                                        /* Initialisation de la temperature courante sur la temperature initiale...                  */
               EGAL(pas_de_la_temperature
                   ,DIVI(SOUS(temperature_finale,temperature_initiale)
                        ,COND(IL_FAUT(changer_la_temperature_a_chaque_essai)
                             ,MUL2(nombre_de_periodes_de_la_simulation,nombre_d_essais_par_image)
                             ,nombre_de_periodes_de_la_simulation
                              )
                         )
                    );
                                        /* Calcul du pas d'evolution de la temperature...                                            */
               Eblock
          ATes
               Bblock
               Eblock
          ETes