Procedures | Cast3M

   1 : * @REMPFAT  PROCEDUR  MO        97/11/28    21:16:39     2950           
   2 : * @REMPFAT PROCEDURE                                 96/11/12   09:00:00
   3 : * ----------------------------------------------------------------------
   4 : ******                     PROCEDURE @REMPFAT                     ******
   5 : * ----------------------------------------------------------------------
   6 : *
   7 : *   CETTE PROCEDURE PERMET DE REMPLIR LA TABLE POUR LA FATIGUE
   8 : *
   9 : * ----------------------------------------------------------------------
  10 : *
  11 : *   LES DONNEES SONT :
  12 : *    ----> la table a remplir
  13 : *    ----> le premier indice de la table a remplir :
  14 : *            - 1 : liste des nombres d'occurences (une seule liste et une
  15 : *                  seule occurence par etat)
  16 : *            - 2 : listes des caracteristiques des materiaux, une liste
  17 : *                  par coupe
  18 : *    ----> la liste a fournir siuvant l'indice
  19 : *
  20 : * ----------------------------------------------------------------------
  21 : *   PAR Joseph MANNINO
  22 : * ----------------------------------------------------------------------
  23 : 'DEBPROC' @REMPFAT TABFATI*TABLE IND*ENTIER LISTF*LISTREEL ;
  24 : 
  25 : SI ( ( IND > 3 ) OU ( IND < 1 ) ) ;
  26 :   MESSAGE 'L"INDICE DE LA TABLE A REMPLIR POUR LA FATIGUE NE CONVIENT'
  27 :   ' PAS' ;
  28 :   QUITTER @REMPFAT ;
  29 : FINSI ;
  30 : 
  31 : SI ( ( DIME TABFATI ) NEG 0 ) ;
  32 :   TABIND = INDEX ( TABFATI ) ;
  33 :   NIND   = DIME TABIND ;
  34 :   J      = 0 ;
  35 :   REPETER BOUCLE ( NIND ) ;
  36 :     I = &BOUCLE ;
  37 :     SI ( TABIND.I EGA IND ) ;
  38 :       J = 1 ;
  39 :       QUITTER BOUCLE ;
  40 :     FINSI ;
  41 :   FIN BOUCLE ;
  42 :   SI ( J EGA 0 ) ;
  43 :     TABFATI.IND = TABLE ;
  44 :   FINSI ;
  45 : SINON ;
  46 :   TABFATI.IND = TABLE ;
  47 : FINSI ;
  48 : 
  49 : N = DIME TABFATI.IND ;
  50 : N = N + 1 ;
  51 : 
  52 : SI ( IND EGA 1 ) ;
  53 :   SI ( N > 1 ) ;
  54 :     MESSAGE 'L"INDICE DE LA TABLE A REMPLIR POUR LA FATIGUE NE CONVIENT'
  55 :     ' PAS' ;
  56 :     QUITTER @REMPFAT ;
  57 :   FINSI ;
  58 :   NBOCCUR = DIME LISTF ; UY =TABFATI.IND; 
  59 :   REPETER BOUCLE  NBOCCUR  ;
  60 :     UY . &BOUCLE  = EXTRAIRE LISTF &BOUCLE ;
  61 :   FIN BOUCLE ;
  62 : FINSI ;
  63 : 
  64 : SI ( IND EGA 2 ) ;
  65 :   TABFATI.IND.N = LISTF ;
  66 : FINSI ;
  67 : SI ( IND EGA 3 ) ;
  68 :   TABFATI.IND.N = LISTF ;
  69 : FINSI ;
  70 : FINPROC ;
  71 :