/*************************************************************************************************************************************/ /* */ /* G E S T I O N D E S F I C H I E R S : */ /* */ /* */ /* Author of '$xrv/particule.21$I' : */ /* */ /* Jean-Francois Colonna (LACTAMME, 1997??????????). */ /* */ /*************************************************************************************************************************************/ #define PREMIER_ELEMENT_D_UNE_LISTE_VERSION_PREMIER_POINT_DES_LISTES_1 \ /* Afin de faire la difference entre les programmes dont les premiers elements sont */ \ /* numerotes 'PREMIER_POINT_DES_LISTES' ('v $xrv/particule.10$K') et ceux dont les premiers */ \ /* elements sont numerotes 'PREMIER_ELEMENT_D_UN_FICHIER' ('v $xrv/distance.02$K'). */ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* R E C U P E R A T I O N D ' U N F I C H I E R " L I S T E " : */ /* */ /*************************************************************************************************************************************/ #include xrv/particule.11.I" #ifdef GESTION_DES_LISTES_QUELCONQUES_VERSION_01 # define lTRANSFORMAT_11(fichier_des_transformations,liste_des_transformations,valeur_par_defaut) \ Bblock \ EGAL(nombre_de_corps \ ,MIN2(nombre_de_corps \ ,NOMBRE_MAXIMAL_DE_PERIODES_DE_LA_SIMULATION \ ) \ ); \ /* On notera que cette mise a jour aura lieu plusieurs fois, mais sans consequences... */ \ \ CALS(FLOAD_FICHIER_FORMATTE_Float(fichier_des_transformations \ ,liste_des_transformations \ ,nombre_de_corps \ ,valeur_par_defaut \ ) \ ); \ /* ATTENTION, jusqu'au 20010422142633, a la place de 'nombre_de_corps', il y avait : */ \ /* */ \ /* MIN2(nombre_de_corps */ \ /* ,NOMBRE_MAXIMAL_DE_PERIODES_DE_LA_SIMULATION */ \ /* ) */ \ /* */ \ /* et cette valeur pouvait alors se retrouver dans une definition de '__ParaLon', ce qui se */ \ /* trouvait etre incompatible avec le fonctionnement de 'v $xcc/ccp$Z' qui, etant donnee la */ \ /* definition de 'NOMBRE_MAXIMAL_DE_PERIODES_DE_LA_SIMULATION' (via 'DIX_MILLE'), est */ \ /* decoupee au cours du processus, et le 'define' correspondant se retrouve sur deux */ \ /* lignes. D'ou cette solution... */ \ Eblock \ /* Recuperation d'un fichier contenant une liste de type {X,Y,Z} ou {R,V,B}. */ #Aifdef GESTION_DES_LISTES_QUELCONQUES_VERSION_01 #Eifdef GESTION_DES_LISTES_QUELCONQUES_VERSION_01 #ifdef GESTION_DES_LISTES_QUELCONQUES_VERSION_02 # define lTRANSFORMAT_11(fichier_des_transformations,liste_des_transformations,valeur_par_defaut) \ Bblock \ gaINITIALISATION_LISTE(liste_des_transformations \ ,valeur_par_defaut \ ,PREMIER_POINT_DES_LISTES \ ,nombre_de_corps \ ); \ /* Allocation de la memoire necessaire et initialisation par defaut (operation redondante */ \ /* avec celle qui est faite dans 'FLOAD_FICHIER_FORMATTE_Float(...)'). */ \ \ CALS(FLOAD_FICHIER_FORMATTE_Float(fichier_des_transformations \ ,liste_des_transformations \ ,nombre_de_corps \ ,valeur_par_defaut \ ) \ ); \ Eblock \ /* Recuperation d'un fichier contenant une liste de type {X,Y,Z} ou {R,V,B}. */ #Aifdef GESTION_DES_LISTES_QUELCONQUES_VERSION_02 #Eifdef GESTION_DES_LISTES_QUELCONQUES_VERSION_02