Procedures | Cast3M

   1 : * IMPCHI2   PROCEDUR  TTMF5     97/08/12    21:31:49     2787           
   2 : 'DEBPROC' IMPCHI2 TB3*'TABLE' NOMTB3*'MOT' ;
   3 : *
   4 : *  IMPRESSION D'UNE TABLE DE SOUSTYPE CHIMI2
   5 : *
   6 : *
   7 :  BL20='                    '  ;
   8 :  'MESS' BL20 'Impression de la table ' NOMTB3 ;
   9 :  'LIST' TB3 ;
  10 :  'SAUT' 'LIGNE' ;
  11 :  'MESS' BL20 'Concentration des composants en solution' ;
  12 :  'MESS' BL20  NOMTB3 '.AQUE' ;
  13 :  'LIST' TB3.'AQUE' ;
  14 :  'SAUT' 'LIGNE' ;
  15 :  'MESS' BL20 'Concentration des composants précipité+surface';
  16 :   'MESS' BL20  NOMTB3 '.FIXE' ;
  17 :  'LIST' TB3.'FIXE' ;
  18 :  'SAUT' 'LIGNE' ;
  19 :  'SI'( 'EXIS' TB3 'PREC');
  20 :  'MESS' BL20 'Concentration des espèces précipitées';
  21 :  'MESS' BL20  NOMTB3 '.PREC' ;
  22 :    'LIST' TB3.'PREC' ;
  23 :  'SAUT' 'LIGNE' ;
  24 :  'FINSI' ;
  25 :  'SI'( 'EXIS' TB3 'FION');
  26 :  'MESS' BL20 'Force ionique'  ;
  27 :   'MESS' BL20  NOMTB3 '.FION';
  28 :    'LIST' TB3.'FION' ;
  29 :  'SAUT' 'LIGNE' ;
  30 :  'FINSI' ;
  31 :  'SI'( 'EXIS' TB3 'TYP6');
  32 :  'MESS' BL20 'Concentration des espèces non prises en compte' ;
  33 :   'MESS' BL20  NOMTB3 '.TYP6' ;
  34 :    'LIST' TB3.'TYP6' ;
  35 :  'SAUT' 'LIGNE' ;
  36 :  'FINSI' ;
  37 :  'SI'( 'EXIS' TB3 'POLE');
  38 :  'MESS' BL20 'Fractions molaires des poles de solutions solides' ;
  39 :   'MESS' BL20  NOMTB3 '.POLE' ;
  40 :    'LIST' TB3.'POLE' ;
  41 :  'SAUT' 'LIGNE' ;
  42 :  'FINSI' ;
  43 :  'SI'( 'EXIS' TB3 'LOGK');
  44 :  'MESS' BL20 'Constantes apparentes des solutions solides' ;
  45 :   'MESS' BL20  NOMTB3 '.LOGK' ;
  46 :    'LIST' TB3.'LOGK' ;
  47 :  'SAUT' 'LIGNE' ;
  48 :  'FINSI' ;
  49 :  'SI'( 'EXIS' TB3 'TYP3');
  50 :  'MESS' BL20 'Concentration des espèces de type 3' ;
  51 :   'MESS' BL20  NOMTB3 '.TYP3' ;
  52 :    'LIST' TB3.'TYP3' ;
  53 :  'SAUT' 'LIGNE' ;
  54 :  'FINSI' ;
  55 :  'SI'( 'EXIS' TB3 'NTY4');
  56 :  'MESS' BL20 'Présence du minéral précipité' ;
  57 :   'MESS' BL20  NOMTB3 '.NTY4' ;
  58 :    'LIST' TB3.'NTY4' ;
  59 :  'SAUT' 'LIGNE' ;
  60 :  'FINSI' ;
  61 :  'SI'( 'EXIS' TB3 'TYP5');
  62 :  'MESS' BL20 'Concentration des espèces de type 5' ;
  63 :   'MESS' BL20  NOMTB3 '.TYP5' ;
  64 :    'LIST' TB3.'TYP5' ;
  65 :  'SAUT' 'LIGNE' ;
  66 :  'FINSI' ;
  67 :  'SI'( 'EXIS' TB3 'SURF');
  68 :  'MESS' BL20 'Concentration des espèces de surface' ;
  69 :  'MESS' BL20 BL20   NOMTB3 '.SURF' ;
  70 :    'LIST' TB3.'SURF' ;
  71 :  'SAUT' 'LIGNE' ;
  72 :  'FINSI' ;
  73 :  'SI'( 'EXIS' TB3 'SOLU');
  74 :  'MESS' BL20 'Concentration des espèces en solution' ;
  75 :   'MESS' BL20  NOMTB3 '.SOLU' ;
  76 :    'LIST' TB3.'SOLU' ;
  77 :  'SAUT' 'LIGNE' ;
  78 :  'FINSI' ;
  79 : 'FINPROC'  ;
  80 :  
  81 :