Télécharger @rempfat.procedur

Retour à la liste

Numérotation des lignes :

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

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