/*************************************************************************************************************************************/ /* */ /* T E S T D E S S E L E C T E U R S : */ /* */ /* */ /* Author of '$xtKg/selecteurs$K' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 1987??????????). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* 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 : */ /* */ /*************************************************************************************************************************************/ @define PRAGMA_CPP_____MODULE_NON_DERIVABLE /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* F I C H I E R S D ' I N C L U D E S : */ /* */ /*************************************************************************************************************************************/ #include INCLUDES_MINI /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* T E S T D E S S E L E C T E U R S : */ /* */ /*************************************************************************************************************************************/ BCommande(nombre_d_arguments,arguments) /*-----------------------------------------------------------------------------------------------------------------------------------*/ Bblock /*..............................................................................................................................*/ GET_ARGUMENTS_(nombre_d_arguments ,BLOC(VIDE;) ); CAL2(Prin1("NEUT(1)=%d\n",PINTE(NEUT(1)))); CAL2(Prin1("SE11(1)=%d\n",PINTE(SE11(1)))); CAL2(Prin1("SE12(1,2)=%d\n",PINTE(SE12(1,2)))); CAL2(Prin1("SE22(1,2)=%d\n",PINTE(SE22(1,2)))); CAL2(Prin1("SE13(1,2,3)=%d\n",PINTE(SE13(1,2,3)))); CAL2(Prin1("SE23(1,2,3)=%d\n",PINTE(SE23(1,2,3)))); CAL2(Prin1("SE33(1,2,3)=%d\n",PINTE(SE33(1,2,3)))); CAL2(Prin1("SE14(1,2,3,4)=%d\n",PINTE(SE14(1,2,3,4)))); CAL2(Prin1("SE24(1,2,3,4)=%d\n",PINTE(SE24(1,2,3,4)))); CAL2(Prin1("SE34(1,2,3,4)=%d\n",PINTE(SE34(1,2,3,4)))); CAL2(Prin1("SE44(1,2,3,4)=%d\n",PINTE(SE44(1,2,3,4)))); CAL2(Prin1("NEUT(1)=%d\n",PINTE(NEUT(1)))); CAL2(Prin1("CHOI(1,2)=%d\n",PINTE(CHOI(1,2)))); RETU_Commande; Eblock ECommande