/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   D E   L A   G E S T I O N   D U   P A R A L L E L I S M E  :                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/champs_5.34$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1995??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O N T R O L E   D U   P A R A L L E L I S M E  :                                                                         */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   FAIRE_DU_PARALLELISME                                                                                                         \
                    FAUX
DEFV(Local,DEFV(Logical,INIT(faire_du_parallelisme,FAIRE_DU_PARALLELISME)));
                                        /* Indique si l'on doit faire du parallelisme ('VRAI') ou pas ('FAUX').                      */

#define   EDITER_LES_NUMEROS_PRIS_EN_CHARGE_LOCALEMENT                                                                                  \
                    FAUX
DEFV(Local,DEFV(Logical,INIT(editer_les_numeros_pris_en_charge_localement,EDITER_LES_NUMEROS_PRIS_EN_CHARGE_LOCALEMENT)));
                                        /* Indique si l'on doit editer ('VRAI') le numero des images generees localement ou pas      */
                                        /* ('FAUX').                                                                                 */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E S T I O N   D U   P A R A L L E L I S M E  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PARALLELISME(sequence_fondamentale,sequence_alternative,numero_image)                                                         \
                    Bblock                                                                                                              \
                    ePARALLELE(BLOC(Bblock                                                                                              \
                                    Test(IL_FAUT(editer_les_numeros_pris_en_charge_localement))                                         \
                                         Bblock                                                                                         \
                                         CAL2(Prin1("%04d\n",numero_image));                                                            \
                                         Eblock                                                                                         \
                                    ATes                                                                                                \
                                         Bblock                                                                                         \
                                         Eblock                                                                                         \
                                    ETes                                                                                                \
                                                                                                                                        \
                                    BLOC(sequence_fondamentale);                                                                        \
                                                                                                                                        \
                                    Eblock                                                                                              \
                                    )                                                                                                   \
                              ,BLOC(sequence_alternative)                                                                               \
                              ,faire_du_parallelisme                                                                                    \
                              ,chain_Aconcaten2_sauf_nom_pipe(nom_imageR,NUMERO_IMAGE(numero_image))                                    \
                               );                                                                                                       \
                    Eblock                                                                                                              \
                                        /* Execution eventuelle d'une sequence en parallele...                                       */