Procédures | Cast3M

* @TOTAL    PROCEDUR  FD218221  21/02/04    21:15:00     10878          
*-------------------------------------------------
******          PROCEDURE @TOTAL            ******
*-------------------------------------------------
*
*
*    CETTE PROCEDURE A ETE MISE GRACIEUSEMENT
*   A DISPOSOTION DE LA COMMUNAUTE  CASTEM2000
*    PAR M. LIBEYRE ( CEA/DSM/DRFC )
*
*     TEL : ( 33 1 ) 42 25 46 03
*
*-------------------------------------------------
*
DEBPROC @TOTAL CH1*'CHPOINT' GEO*'MAILLAGE' COMP1*'MOT' ;
  CH2 = REDU CH1 GEO ;
  CHTOT = RESU CH2 ;                                                              
  P1 = (EXTR CHTOT 'MAIL') POIN 1 ;
  TOT1 = EXTR CHTOT COMP1 P1 ;
FINPROC TOT1 ;