Procedures | Cast3M

   1 : * ACCDCHI1  PROCEDUR  AURI      97/12/24    21:15:04     3025           
   2 :  DEBMETH ACCDCHI1 MOMET*MOT ;
   3 :  'SI' ('EGA' MOMET 'GIDEN') ;
   4 :     II= %IDEN ;
   5 :  'SINON';
   6 :    'SI' ('EGA' MOMET 'GCHXMX') ;
   7 :       II= %CHXMX ;
   8 :    'SINON';
   9 :      'SI' ('EGA' MOMET 'GCLIM') ;
  10 :         ARGU MOMO/MOT ;
  11 :         'SI' ( 'EXIS' MOMO) ;
  12 :          II= %CLIM.MOMO ;
  13 :         'SINON' ;
  14 :         II= %CLIM ;
  15 :         'FINSI' ;
  16 :      'SINON';
  17 :        'SI' ('EGA' MOMET 'GNVCOMP') ;
  18 :           ARGU NUNU/ENTIER ;
  19 :           'SI'('EXIS' NUNU);
  20 :           II= %NVCOMP.NUNU ;
  21 :           'SINON' ;
  22 :           II= %NVCOMP ;
  23 :           FINSI ;
  24 :        'SINON';
  25 :          'SI' ('EGA' MOMET 'GNVESP') ;
  26 :             ARGU NUNU/ENTIER ;
  27 :             'SI'('EXIS' NUNU);
  28 :             II= %NVESP.NUNU ;
  29 :             'SINON' ;
  30 :             II= %NVESP ;
  31 :             FINSI ;
  32 :          'SINON';
  33 :              'SI' ('EGA' MOMET 'GNVSOSO') ;
  34 :               ARGU NUNU/ENTIER ;
  35 :               'SI'('EXIS' NUNU);
  36 :               II= %NVSOSO.NUNU ;
  37 :               'SINON' ;
  38 :                 II= %NVSOSO ;
  39 :               FINSI ;
  40 :            'SINON';
  41 :              'SI' ('EGA' MOMET 'GECHANGE') ;
  42 :                 II= %ECHANGE ;
  43 :              'SINON';
  44 :                'SI' ('EGA' MOMET 'GTEMPERA') ;
  45 :                   II= %TEMPERATURE ;
  46 :                'SINON';
  47 :                  'SI' ('EGA' MOMET 'GBDD') ;
  48 :                     II= %BDD ;
  49 :                  'SINON';
  50 :                     ERREUR 21 ;
  51 :                     QUITTER ACCDCHI1 ;
  52 :                  'FINSI' ;
  53 :                'FINSI' ;
  54 :              'FINSI' ;
  55 :            'FINSI' ;
  56 :          'FINSI' ;
  57 :        'FINSI' ;
  58 :      'FINSI' ;
  59 :    'FINSI' ;
  60 :  'FINSI' ;
  61 :  FINMETH  II ;
  62 :