/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F O N C T I O N   D I V E R S E S   D ' E N T R E E   D E   D O N N E S   E X T E R N E S  :                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Ce fichier contient toutes les fonctions                                                                       */
/*                  d'entree de donnees externes...                                                                                  */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xiii/entrees$DEF' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 19920000000000).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        R E C U P E R A T I O N   D E   P O I N T S   B I - D I M E N S I O N N E L S                                              */
/*        A   P A R T I R   D ' U N   P R O G R A M M E   F O R T R A N  :                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#if       (         (! defined(BUG_SYSTEME_APC_GCC_too_large_stack_frames))                                                             \
          &&        (! defined(BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported))                                      \
           )
#    define    __VERSION__COMPILER_LA_FONCTION_point2d_                                                                                 \
                                        /* Cas ou l'on peut generer la fonction 'point2d_(...)' qui possede une declaration          */ \
                                        /* locale du type :                                                                          */ \
                                        /*                                                                                           */ \
                                        /*                  DEFV(Statique,DEFV(image,...));                                          */ \
                                        /*                                                                                           */
#Aif      (         (! defined(BUG_SYSTEME_APC_GCC_too_large_stack_frames))                                                             \
          &&        (! defined(BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported))                                      \
           )
#    nodefine  __VERSION__COMPILER_LA_FONCTION_point2d_                                                                                 \
                                        /* Cas ou l'on peut generer la fonction 'point2d_(...)' qui possede une declaration          */ \
                                        /* locale du type :                                                                          */ \
                                        /*                                                                                           */ \
                                        /*                  DEFV(Statique,DEFV(image,...));                                          */ \
                                        /*                                                                                           */
#Eif      (         (! defined(BUG_SYSTEME_APC_GCC_too_large_stack_frames))                                                             \
          &&        (! defined(BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported))                                      \
           )

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        R E C U P E R A T I O N   D E   P O I N T S   T R I - D I M E N S I O N N E L S                                            */
/*        A   P A R T I R   D ' U N   P R O G R A M M E   F O R T R A N  :                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#if       (         (! defined(BUG_SYSTEME_APC_GCC_too_large_stack_frames))                                                             \
          &&        (! defined(BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported))                                      \
           )
#    define    __VERSION__COMPILER_LA_FONCTION_point3d_                                                                                 \
                                        /* Cas ou l'on peut generer la fonction 'point3d_(...)' qui possede une declaration          */ \
                                        /* locale du type :                                                                          */ \
                                        /*                                                                                           */ \
                                        /*                  DEFV(Statique,DEFV(image,...));                                          */ \
                                        /*                                                                                           */
#Aif      (         (! defined(BUG_SYSTEME_APC_GCC_too_large_stack_frames))                                                             \
          &&        (! defined(BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported))                                      \
           )
#    nodefine  __VERSION__COMPILER_LA_FONCTION_point3d_                                                                                 \
                                        /* Cas ou l'on peut generer la fonction 'point3d_(...)' qui possede une declaration          */ \
                                        /* locale du type :                                                                          */ \
                                        /*                                                                                           */ \
                                        /*                  DEFV(Statique,DEFV(image,...));                                          */ \
                                        /*                                                                                           */
#Eif      (         (! defined(BUG_SYSTEME_APC_GCC_too_large_stack_frames))                                                             \
          &&        (! defined(BUG_SYSTEME_DECALPHA_OSF1_CC_large_stack_frames_not_yet_supported))                                      \
           )

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E N T R E E   D U   C A T A L O G U E   D E S   G A L A X I E S   D E   L ' U N I V E R S   C O N N U  :                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   M E S U R E S  :                                                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   MAGNITUDE_LIMITE                                                                                                              \
                    PARE(14.5)                                                                                                          \
                                        /* Magnitude au-dela de laquelle les galaxies ne sont plus observables...                    */
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D ' U N E   G A L A X I E  :                                                                         */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
Dstruct02(_galaxie
         ,DEFV(pointF_3D,Gcoordonnees)
                                        /* Coordonnees de la galaxie.                                                                */
         ,DEFV(Float,magnitude)
                                        /* Magnitude apparente de la galaxie.                                                        */
         ,NOM_VIDE
          );
Typedef(galaxie,STRU(_galaxie))
                                        /* Definition d'une galaxie.                                                                 */

                                        /* A cause de 'DECLARATIONS_DES_FONCTIONS_ET_DE_LEURS_ARGUMENTS_VERSION_02', il a ete        */
                                        /* necessaire le 20040617183624 de mettre ici les definitions des 'TypedefS(A___...)'        */
                                        /* car, en effet, avec cette nouvelle VERSION, les fichiers de type '$EXT' contiendront      */
                                        /* en general des 'Argument's et il est donc necessaire que les 'A___...' correspondant      */
                                        /* soient disponibles avant ces declarations 'Argument's...                                  */

TypedefS(A___galaxie,galaxie)
                                        /* Definition d'une galaxie.                                                                 */
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D U   F I C H I E R   " C A T A L O G U E "  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   NOMBRE_DE_GALAXIES                                                                                                            \
                    PARE(5015)                                                                                                          \
                                        /* Nombre de blocs d'informations (qui est aussi le nombre de galaxies).                     */
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S   G E N E R A U X  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PREMIERE_GALAXIE                                                                                                              \
                    INDEX0                                                                                                              \
                                        /* Numero de la premiere galaxie...                                                          */