Procedures | Cast3M

   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 ;