/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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.1A$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M E M O R I S A T I O N   D E S   P O I N T S   A V A N T   D E P L A C E M E N T  :                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
                         Bblock
                                        /* ATTENTION : le 'Eblock' associe est dans '$xrk/recuit_2D.1B$I'...                         */

                         DEFV(Float,INIT(anti_qualite_du_placement_des_points_avant,FLOT__UNDEF));
                         DEFV(Float,INIT(anti_qualite_du_placement_des_points_apres,FLOT__UNDEF));
                                        /* Afin d'evaluer l'interet du bouleversement aleatoire...                                   */

                         DoIn(point,PREMIER_POINT_DU_RESEAU,DERNIER_POINT_DU_RESEAU,I)
                              Bblock
                              TRANSFERT_POINT_3D(ACCES_SAUVEGARDE_POINT(point),ACCES_POINT(point));
                                        /* Sauvegarde de la configuration des points avant la tentative courante de deplacement      */
                                        /* aleatoire de ceux-ci...                                                                   */
                              Eblock
                         EDoI

                         CALCUL_DE_LA_SOMME_DES_DIFFERENCES_DES_CARRES(anti_qualite_du_placement_des_points_avant);
                                        /* Calcul de la "qualite" du placement courant des points (avant la tentative de deplacement */
                                        /* aleatoire de ceux-ci).                                                                    */