Procedures | Cast3M

   1 : * CH2CLIM   PROCEDUR  AURI      97/12/24    21:15:11     3025           
   2 :  DEBMETH CH2CLIM MOMO*MOT LILI*LISTENTI ;
   3 :  'SI' ('NEG' MOMO 'TYP3' ) ;
   4 :     'SI' ('NEG' MOMO 'COMP3' ) ;
   5 :        'SI' ('NEG' MOMO 'TYP4' ) ;
   6 :           'SI' ('NEG' MOMO 'TYP5' ) ;
   7 :              'SI' ('NEG' MOMO 'TYP6' ) ;
   8 :                  ERREUR 21 ;
   9 :                  QUITTER CH2CLIM ;
  10 :              'FINSI';
  11 :           'FINSI';
  12 :        'FINSI';
  13 :     'FINSI';
  14 :  'FINSI';
  15 :  'SI' ('EXIS' %CLIM) ;
  16 :        %CLIM%GDCLIM MOMO LILI ;
  17 :  'SINON' ;
  18 :        %CLIM= OBJET CHDCLIM ;
  19 :        %CLIM%GDCLIM MOMO LILI ;
  20 :  'FINSI' ;
  21 :  FINMETH ;
  22 :