Procédures | Cast3M

* @TOTAL    PROCEDUR  PV090527  25/12/21    07:19:11     12434          
*-------------------------------------------------
******          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 ;                                                              
  M1 = (EXTR CHTOT 'MAIL') ;
  'SI' ('NBEL' M1 NEG 0);
   P1 = M1 POIN 1 ;
   TOT1 = EXTR CHTOT COMP1 P1 ;
  'SINON';
   TOT1 = 0.;
  'FINSI';
FINPROC TOT1 ;