/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   D E S   D I F F E R E N T E S   T R A N S L A T I O N S   E T   R O T A T I O N S  :               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrq/nucleon.LT.2$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1992??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E S T I O N   D E   L A   T R A N S L A T I O N   D E   L ' O R I G I N E  :                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
DEFV(Local,DEFV(deltaF_3D,translation_de_l_origine));
                                        /* Translation instantanee de l'origine. ATTENTION, pour simplifier l'introduction des       */
                                        /* parametres de positionnement et de translation, ceux-ci sont introduits, via les listes   */
                                        /* de type 'liste_TRANSLATION_OX' en unite de 'RAYON_D_UN_HADRON'. C'est ensuite la          */
                                        /* procedure 'ABSOLUTISATION_DES_POSITIONS_ET_TRANSLATIONS(...)' qui convertit tout cela     */
                                        /* en unite physique dans '___FIN_DE_L_INITIALISATION_DES_INTERPOLATIONS'...                 */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F A C T E U R   D E   " C O L L A P S E "  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
DEFV(Local,DEFV(Float,INIT(facteur_de_collapse,FLOT__UNDEF)));
                                        /* Facteur courant de collapse des coordonnees...                                            */