Procedures | Cast3M

   1 : * @REMPGRO  PROCEDUR  MO        97/11/28    21:16:41     2950           
   2 : * @REMPGRO PROCEDURE                                 96/11/12   09:00:00
   3 : * ----------------------------------------------------------------------
   4 : ******                     PROCEDURE @REMPGRO                     ******
   5 : * ----------------------------------------------------------------------
   6 : *
   7 : *   CETTE PROCEDURE PERMET DE REMPLIR LA TABLE POUR FORMATION DES
   8 : *   GROUPES
   9 : *
  10 : * ----------------------------------------------------------------------
  11 : *
  12 : *   LES DONNEES SONT :
  13 : *    ----> la table a remplir
  14 : *    ----> la liste des  etats qui forment le groupe
  15 : *
  16 : * ----------------------------------------------------------------------
  17 : *   PAR Joseph MANNINO
  18 : * ----------------------------------------------------------------------
  19 : 'DEBPROC' @REMPGRO TABGROU*TABLE ETATS*LISTENTI ;
  20 : IND = 1 ;
  21 : SI ( ( DIME TABGROU ) NEG 0 ) ;
  22 :   TABIND = INDEX ( TABGROU ) ;
  23 :   NIND   = DIME TABIND ;
  24 :   J      = 0 ;
  25 :   REPETER BOUCLE ( NIND ) ;
  26 :     I = &BOUCLE ;
  27 :     SI ( TABIND.I EGA IND ) ;
  28 :       J = 1 ;
  29 :       QUITTER BOUCLE ;
  30 :     FINSI ;
  31 :   FIN BOUCLE ;
  32 :   SI ( J EGA 0 ) ;
  33 :     TABGROU.IND = TABLE ;
  34 :   FINSI ;
  35 : SINON ;
  36 :   TABGROU.IND = TABLE ;
  37 : FINSI ;
  38 : N = DIME TABGROU.IND ;
  39 : N = N + 1 ;
  40 : TABGROU.IND.N = ETATS ;
  41 : FINPROC ;
  42 :