Télécharger @rempfat.procedur

Retour à la liste

Numérotation des lignes :

  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.  
  72.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales