/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E S T I O N   A R B I T R A I R E   D E S   C O O R D O N N E E S   { u , v , w , t }  :                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/hyper_volumes.51$I' :                                                                                      */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20230210110531).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  xrv/ARITHMET.1d.I"
#include  xrv/ARITHMET.21.I"

DEFV(Local,DEFV(Logical,INIT(definir_arbitrairement_les_coordonnees_u_v_w_t,FAUX)));
                                        /* Doit-on definir arbitrairement les coordonnees {u,v,w,t} ('VRAI') ou pas ('FAUX') ?       */
DEFV(Local,DEFV(Int,INIT(nombre_d_elements,NOMBRE_D_ELEMENTS)));
                                        /* Nombre d'elements attendus a priori dans les fichiers.                                    */

DEFV(Local,DEFV(Int,INIT(index_de_definition_arbitraire_des_coordonnees_u_v_w_t,PREMIER_ELEMENT_D_UN_FICHIER)));
DEFV(Local,DEFV(Float,INIT(separateur_de_definition_arbitraire_des_coordonnees_u_v_w_t,SEPARATEUR_DE_LISTES_DE_COORDONNEES)));
                                        /* La possibilite de definir plusieurs blocs successifs a ete introduite le 20230217101706.  */

#define   COORDONNEE_u_IMPLICITE                                                                                                        \
                    FZERO
#define   COORDONNEE_v_IMPLICITE                                                                                                        \
                    FZERO
#define   COORDONNEE_w_IMPLICITE                                                                                                        \
                    FZERO
#define   COORDONNEE_t_IMPLICITE                                                                                                        \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_u,liste_des_coordonnees_u);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_v,liste_des_coordonnees_v);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w,liste_des_coordonnees_w);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_t,liste_des_coordonnees_t);
                                        /* Definition en memoire des fichiers des coordonnees {u,v,w,t}.                             */

#define   ELEMENT_DU_FICHIER_COORDONNEES_u(index)                                                                                       \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_u,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_v(index)                                                                                       \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_v,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w(index)                                                                                       \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_t(index)                                                                                       \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_t,index)
                                        /* Acces a un element courant des fichiers des coordonnees {u,v,w,t}.                        */

#define   COORDONNEE_ROUGE_IMPLICITE                                                                                                    \
                    FZERO
#define   COORDONNEE_VERTE_IMPLICITE                                                                                                    \
                    FZERO
#define   COORDONNEE_BLEUE_IMPLICITE                                                                                                    \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_ROUGE,liste_des_coordonnees_ROUGE);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_VERTE,liste_des_coordonnees_VERTE);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_BLEUE,liste_des_coordonnees_BLEUE);
                                        /* Definition en memoire des fichiers des coordonnees {ROUGE,VERTE,BLEUE}.                   */

#define   ELEMENT_DU_FICHIER_COORDONNEES_ROUGE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_ROUGE,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_VERTE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_VERTE,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_BLEUE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_BLEUE,index)
                                        /* Acces a un element courant des fichiers des coordonnees {ROUGE,VERTE,BLEUE}.              */

#define   COORDONNEE_RAYON_IMPLICITE                                                                                                    \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_RAYON,liste_des_coordonnees_RAYON);
                                        /* Definition en memoire du fichier des coordonnees {RAYON} (introduit le 20240517141729)... */

#define   ELEMENT_DU_FICHIER_COORDONNEES_RAYON(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_RAYON,index)                                                              \
                                        /* Acces a un element courant du fichier des coordonnees {RAYON}.                            */ \
                                        /* 20240517141729)...                                                                        */

#define   COORDONNEE_MASSE_IMPLICITE                                                                                                    \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_MASSE,liste_des_coordonnees_MASSE);
                                        /* Definition en memoire du fichier des coordonnees {MASSE} (introduit le 20240519091448)... */

#define   ELEMENT_DU_FICHIER_COORDONNEES_MASSE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_MASSE,index)                                                              \
                                        /* Acces a un element courant du fichier des coordonnees {RAYON} (introduit le               */ \
                                        /* 20240519091448)...                                                                        */