/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O N V E R S I O N   P O L A I R E - C A R T E S I E N N E                                                                */
/*        D E S   N O M B R E S   H Y P E R - C O M P L E X E S  :                                                                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/RTPA_RIJK.01$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20061209113143).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V A L E U R S   I M P L I C I T E S   D E S   P A R A M E T R E S  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PONDERATION_R_IMPLICITE                                                                                                       \
                    FZERO
#define   PONDERATION_I_IMPLICITE                                                                                                       \
                    FZERO
#define   PONDERATION_J_IMPLICITE                                                                                                       \
                    FZERO
#define   PONDERATION_K_IMPLICITE                                                                                                       \
                    FZERO
                                        /* Ponderation de selection des composantes apres transformation.                            */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   F I C H I E R S  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   RHO_IMPLICITE                                                                                                                 \
                    FZERO
#define   THETA_IMPLICITE                                                                                                               \
                    FZERO
#define   PHI_IMPLICITE                                                                                                                 \
                    FZERO
#define   ALPHA_IMPLICITE                                                                                                               \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_LISTE_RHO,liste_initiale_des_RHO);
gGENERATION_D_UN_FICHIER(fichier_LISTE_THETA,liste_initiale_des_THETA);
gGENERATION_D_UN_FICHIER(fichier_LISTE_PHI,liste_initiale_des_PHI);
gGENERATION_D_UN_FICHIER(fichier_LISTE_ALPHA,liste_initiale_des_ALPHA);
                                        /* Definition en memoire des fichiers de composantes polaires.                               */

#define   ELEMENT_DU_FICHIER_LISTE_RHO(index)                                                                                           \
                    gELEMENT_DU_FICHIER(liste_initiale_des_RHO,index)
#define   ELEMENT_DU_FICHIER_LISTE_THETA(index)                                                                                         \
                    gELEMENT_DU_FICHIER(liste_initiale_des_THETA,index)
#define   ELEMENT_DU_FICHIER_LISTE_PHI(index)                                                                                           \
                    gELEMENT_DU_FICHIER(liste_initiale_des_PHI,index)
#define   ELEMENT_DU_FICHIER_LISTE_ALPHA(index)                                                                                         \
                    gELEMENT_DU_FICHIER(liste_initiale_des_ALPHA,index)
                                        /* Acces a un element courant des fichiers de composantes polaires.                          */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O N V E R S I O N   P O L A I R E - C A R T E S I E N N E                                                                */
/*        D E S   N O M B R E S   H Y P E R - C O M P L E X E S  :                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"

     DEFV(Float,INIT(ponderation_R,PONDERATION_R_IMPLICITE));
     DEFV(Float,INIT(ponderation_I,PONDERATION_I_IMPLICITE));
     DEFV(Float,INIT(ponderation_J,PONDERATION_J_IMPLICITE));
     DEFV(Float,INIT(ponderation_K,PONDERATION_K_IMPLICITE));
                                        /* Ponderation de selection des composantes apres transformation.                            */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"
                                        /* Ceci fut introduit le 20070103172715...                                                   */

     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
                                           ,BLOC(VIDE;)
                                           ,BLOC(Bblock
                                                 PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
                                                 Eblock
                                                 )
                                            );

                         PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;

                         PROKESF_ARGUMENT_FICHIER("LISTE_RHO="
                                                 ,fichier_LISTE_RHO
                                                 ,liste_initiale_des_RHO
                                                 ,RHO_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("LISTE_THETA="
                                                 ,fichier_LISTE_THETA
                                                 ,liste_initiale_des_THETA
                                                 ,THETA_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("LISTE_PHI="
                                                 ,fichier_LISTE_PHI
                                                 ,liste_initiale_des_PHI
                                                 ,PHI_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("LISTE_ALPHA="
                                                 ,fichier_LISTE_ALPHA
                                                 ,liste_initiale_des_ALPHA
                                                 ,ALPHA_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_F("r=""px=""pX=""R=""Pond1=",ponderation_R);
                                        /* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasX'...                     */
                         GET_ARGUMENT_F("py=""pY=""i=""Pond2=""I=",ponderation_I);
                                        /* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasY'...                     */
                         GET_ARGUMENT_F("pz=""pZ=""j=""Pond3=""J=",ponderation_J);
                                        /* A ne pas confondre avec 'v $xig/fonct$vv$DEF ENTREE_ARGUMENT_pasZ'...                     */
                         GET_ARGUMENT_F("pt=""pT=""k=""Pond4=""K=",ponderation_K);

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
                                        /* Cette procedure fut introduite le 20070103172715...                                       */

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
                                        /* Cette procedure fut introduite le 20061226193846...                                       */

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
                                        /* Cette procedure fut introduite le 20211005104857...                                       */
                         )
                    );

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(composante_RHO,ELEMENT_DU_FICHIER_LISTE_RHO(index)));
                                      DEFV(Float,INIT(composante_THETA,ELEMENT_DU_FICHIER_LISTE_THETA(index)));
                                      DEFV(Float,INIT(composante_PHI,ELEMENT_DU_FICHIER_LISTE_PHI(index)));
                                      DEFV(Float,INIT(composante_ALPHA,ELEMENT_DU_FICHIER_LISTE_ALPHA(index)));
                                        /* Recuperation des composantes {Rho,Theta,Phi,Alpha} courantes dans les fichiers.           */
                                      DEFV(hyper_complexe,nombre_RIJK);
                                      FHCinitialisation(nombre_RIJK
                                                       ,FHCcomposanteR(composante_RHO,composante_THETA,composante_PHI,composante_ALPHA)
                                                       ,FHCcomposanteI(composante_RHO,composante_THETA,composante_PHI,composante_ALPHA)
                                                       ,FHCcomposanteJ(composante_RHO,composante_THETA,composante_PHI,composante_ALPHA)
                                                       ,FHCcomposanteK(composante_RHO,composante_THETA,composante_PHI,composante_ALPHA)
                                                        );
                                        /* Nombre hyper-complexe de manoeuvre.                                                       */
                                      )
                                ,LIZ4(ponderation_R,HReelle(nombre_RIJK)
                                     ,ponderation_I,HImaginaire(nombre_RIJK)
                                     ,ponderation_J,HJmaginaire(nombre_RIJK)
                                     ,ponderation_K,HKmaginaire(nombre_RIJK)
                                      )
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Conversion hyper-spherique-cartesienne.                                                   */

     lGENERATION_D_UN_FICHIER(liste_initiale_des_ALPHA,ALPHA_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_initiale_des_PHI,PHI_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_initiale_des_THETA,THETA_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_initiale_des_RHO,RHO_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande