Télécharger @CHCOTAE.procedur

Retour à la liste

Numérotation des lignes :

  1. * @CHCOTAE PROCEDUR MB234859 18/11/21 21:15:01 10007
  2. ***********************************************************************
  3. *
  4. * CETTE PROCEDURE A ETE MISE GRACIEUSEMENT A DISPOSITION DES
  5. * UTILISATEURS PAR LE LTDS - Ecole Centrale Lyon (S. Fouvry et S.Garcin)
  6. *
  7. ***********************************************************************
  8. * PROCEDURE D INITIALISATION DES TABLES DE STOCKAGE
  9. * DES RESULTATS (@ChCoTaE)
  10. *
  11. * Entrees :
  12. * T1 : Table de PASAPAS
  13. * ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
  14. *
  15. * Sortie :
  16. * T1 : Table de PASAPAS avec initialisation des tables de stockage
  17. *
  18. * Appelee par @EVN_IDT
  19. *
  20. ***********************************************************************
  21. DEBP @CHCOTAE BOITE_US*'TABLE' ID_BU*'ENTIER' ;
  22. *
  23. SI (NON (EXIS BOITE_US 'INDICATEUR_INITIALISATION_VAR_CUMUL')) ;
  24. BOITE_US.'INDICATEUR_INITIALISATION_VAR_CUMUL' = 0 ;
  25. * Indices rempli dans @PRCA1
  26. BOITE_US.'EVO_GLISSEMENT_CONTACT' = TABL ;
  27. BOITE_US.'CISAILLEMENT_DE_CONTACT' = TABL ;
  28. BOITE_US.'EVO_CISAILLEMENT_CONTACT' = TABL ;
  29. BOITE_US.'PRESSION_DE_CONTACT' = TABL ;
  30. BOITE_US.'EVO_PRESSION_CONTACT' = TABL ;
  31. BOITE_US.'ENERGIE_DISSIPEE_SUR_INCREMENT' = TABL ;
  32. BOITE_US.'ENERGIE_DISSIPEE_SUR_CYCLE' = TABL ;
  33. BOITE_US.'ENERGIE_DISSIPEE_TOTALE' = TABL ;
  34. BOITE_US.'EVO_ENERGIE_DISSIPEE_INCR' = TABL ;
  35. BOITE_US.'EVO_ENERGIE_DISSIPEE_CYCLE' = TABL ;
  36. BOITE_US.'EVO_ENERGIE_DISSIPEE_TOTALE' = TABL ;
  37. * Indice rempli dans @PRCA2
  38. BOITE_US.'CYCLE_DE_FRETTING' = TABL ;
  39. * Indices rempli dans @PRCA3
  40. BOITE_US.'USURE_APPLIQUEE' = TABL ;
  41. BOITE_US.'USURE_CUMULEE' = TABL ;
  42. BOITE_US.'EVO_USURE_APPLIQUEE' = TABL ;
  43. BOITE_US.'EVO_USURE_CUMULEE' = TABL ;
  44. * Indices rempli dans @PRCA5
  45. BOITE_US.'EVO_CISAILLEMENT_MOYEN_SUR_CYCLE' = TABL ;
  46. BOITE_US.'EVO_PRESSION_MOYENNE_SUR_CYCLE' = TABL ;
  47. BOITE_US.'EVO_MAX_DCSLIP_VS_TEMPS_DU_CYCLE' = TABL ;
  48. FINSI ;
  49. *
  50. FINP BOITE_US ;
  51.  
  52.  

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