Procedures | Cast3M

   1 : * ACCDCHI2  PROCEDUR  AURI      97/12/24    21:15:07     3025           
   2 :  DEBMETH ACCDCHI2 MOMET*MOT ;
   3 :  'SI' ('EGA' MOMET 'GLOGC') ;
   4 :   CHACHA= %LOGC ;
   5 :  'SINON' ;
   6 :      'SI' ('EGA' MOMET 'GTOT') ;
   7 :       CHACHA= %TOT ;
   8 :      'SINON' ;
   9 :          'SI' ('EGA' MOMET 'GFIONI') ;
  10 :           CHACHA= %FIONI;
  11 :          'SINON' ;
  12 :              'SI' ('EGA' MOMET 'GNTY4') ;
  13 :               CHACHA= %NTY4;
  14 :              'SINON' ;
  15 :                  'SI' ('EGA' MOMET 'GTEMPE') ;
  16 :                   CHACHA= %TEMPE;
  17 :                  'SINON' ;
  18 :                      'SI' ('EGA' MOMET 'GCLIM') ;
  19 :                          CHACHA= %CLIM;
  20 :                      'SINON' ;
  21 :                         ERREUR 21 ;
  22 :                         'QUITTER' ACCDCH2 ;
  23 :                      'FINSI' ;
  24 :                  'FINSI' ;
  25 :              'FINSI' ;
  26 :          'FINSI' ;
  27 :      'FINSI' ;
  28 :  'FINSI' ;
  29 : FINMETH CHACHA ;
  30 :