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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   D E   L A   M A T R I C E   D E S   D I S T A N C E S  :                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
          Bblock
          DoIn(pointI,PREMIER_POINT_DU_RESEAU,DERNIER_POINT_DU_RESEAU,I)
               Bblock
               DoIn(pointJ,PREMIER_POINT_DU_RESEAU,DERNIER_POINT_DU_RESEAU,I)
                    Bblock
                    DEFV(pointF_3D,point1);
                    DEFV(pointF_3D,point2);
                                        /* Definition de deux points de manoeuvre...                                                 */
                    TRANSFERT_POINT_3D(point1,ACCES_CIBLE(pointI));
                                        /* Initialisation du premier point de manoeuvre en fonction de 'pointI'.                     */
                    TRANSFERT_POINT_3D(point2,ACCES_CIBLE(pointJ));
                                        /* Initialisation du deuxieme point de manoeuvre en fonction de 'pointJ'.                    */
                    EGAL(ACCES_DISTANCE(pointI,pointJ)
                        ,RpdisF3D(point1
                                 ,point2
                                  )
                         );
                                        /* Calcul de la matrice des distances correspondant a la position "theorique" des points,    */
                                        /* c'est-a-dire celle qui est esperee a la fin du processus...                               */
                    Eblock
               EDoI
               Eblock
          EDoI
          Eblock