Télécharger @total.procedur

Retour à la liste

Numérotation des lignes :

  1. * @TOTAL PROCEDUR AM 92/06/12 21:15:18 595
  2. *-------------------------------------------------
  3. ****** PROCEDURE @TOTAL ******
  4. *-------------------------------------------------
  5. *
  6. *
  7. * CETTE PROCEDURE A ETE MISE GRACIEUSEMENT
  8. * A DISPOSOTION DE LA COMMUNAUTE CASTEM2000
  9. * PAR M. LIBEYRE ( CEA/DSM/DRFC )
  10. *
  11. * TEL : ( 33 1 ) 42 25 46 03
  12. *
  13. *-------------------------------------------------
  14. *
  15. DEBPROC @TOTAL CH1*CHPOINT GEO*MAILLAGE COMP1*MOT ;
  16. CH2 = REDU CH1 GEO ;
  17. CHTOT = RESU CH2 ;
  18. P1 = (EXTR CHTOT MAIL) POIN 1 ;
  19. *MESS 'RESULTANTE DE LA COMPOSANTE ' COMP1 ;
  20. TOT1 = EXTR CHTOT COMP1 P1 ;
  21. LIST TOT1 ;
  22. FINPROC TOT1 ;
  23.  

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