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

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

          DEFV(pointF_3D,DdTb1(POINTERs
                              ,liste_des_points_dans_leurs_positions_theoriques
                              ,NOMBRE_DE_POINTS_DU_RESEAU
                              ,tMalo(MUL2(NOMBRE_DE_POINTS_DU_RESEAU,SIZE(pointF_3D)),pointF_3D)
                               )
               );
                                        /* Definition de la liste des points du reseau dans leurs positions esperees a la fin du     */
                                        /* processus...                                                                              */
          DEFV(pointF_3D,DdTb1(POINTERs
                              ,liste_des_points_dans_leurs_positions_courantes
                              ,NOMBRE_DE_POINTS_DU_RESEAU
                              ,tMalo(MUL2(NOMBRE_DE_POINTS_DU_RESEAU,SIZE(pointF_3D)),pointF_3D)
                               )
               );
          DEFV(pointF_3D,DdTb1(POINTERs
                              ,Sliste_des_points_dans_leurs_positions_courantes
                              ,NOMBRE_DE_POINTS_DU_RESEAU
                              ,tMalo(MUL2(NOMBRE_DE_POINTS_DU_RESEAU,SIZE(pointF_3D)),pointF_3D)
                               )
               );
                                        /* Definition de la liste des points du reseau dans leurs positions courantes et de sa       */
                                        /* sauvegarde...                                                                             */
          DEFV(Float,DdTb2(POINTERf
                          ,matrice_des_distances
                          ,NOMBRE_DE_POINTS_DU_RESEAU
                          ,NOMBRE_DE_POINTS_DU_RESEAU
                          ,fMalo(MUL2(EXP2(NOMBRE_DE_POINTS_DU_RESEAU),size_Float))
                           )
               );
                                        /* Definition de la matrice des distances entre les points telles qu'elles sont attendues    */
                                        /* a la fin du processus iteratif...                                                         */
          DEFV(Logical,DdTb2(POINTERl
                            ,matrice_des_connexions
                            ,NOMBRE_DE_POINTS_DU_RESEAU
                            ,NOMBRE_DE_POINTS_DU_RESEAU
                            ,lMalo(MUL2(EXP2(NOMBRE_DE_POINTS_DU_RESEAU),size_Logical))
                             )
               );
                                        /* Definition de la matrice des connexions entre les points du reseau.                       */
          DEFV(Float,DdTb1(POINTERf
                          ,liste_ROUGE
                          ,NOMBRE_DE_POINTS_DU_RESEAU
                          ,fMalo(MUL2(NOMBRE_DE_POINTS_DU_RESEAU,size_Float))
                           )
               );
          DEFV(Float,DdTb1(POINTERf
                          ,liste_VERTE
                          ,NOMBRE_DE_POINTS_DU_RESEAU
                          ,fMalo(MUL2(NOMBRE_DE_POINTS_DU_RESEAU,size_Float))
                           )
               );
          DEFV(Float,DdTb1(POINTERf
                          ,liste_BLEUE
                          ,NOMBRE_DE_POINTS_DU_RESEAU
                          ,fMalo(MUL2(NOMBRE_DE_POINTS_DU_RESEAU,size_Float))
                           )
               );
                                        /* Definition des couleurs arbitraires des points...                                         */

          DEFV(Int,INIT(point,UNDEF));
          DEFV(Int,INIT(pointI,UNDEF));
          DEFV(Int,INIT(pointJ,UNDEF));
                                        /* Definition de trois points servant d'index d'acces aux listes precedentes...              */