Procedures | Cast3M

   1 : * IMPCHI1   PROCEDUR  AURI      97/10/10    21:15:02     2871           
   2 : 'DEBPROC' IMPCHI1 TB1*'TABLE'  NOMTB*'MOT'     ;
   3 : option echo 1 ;
   4 : *
   5 : *     IMPRESSION D'UNE TABLE DE TYPE CHIMI1
   6 : *
   7 : *
   8 : BL20 = '                    ' ;
   9 : 'MESS'  BL20 'Description de la table ' NOMTB  ;
  10 : 'LIST' TB1 ;
  11 : 'SAUT' 'LIGNE' ;
  12 : 'MESS' BL20 ' Identifiants des composants retenus ' ;
  13 : 'MESS' BL20  NOMTB  '.DESCHI.IDX';
  14 : 'LIST' TB1. 'DESCHI' . 'IDX' ;
  15 : 'SAUT' 'LIGNE' ;
  16 : 'MESS'  BL20 'Noms des composants retenus ';
  17 : 'MESS' BL20 NOMTB  '.DESCHI.NOM';
  18 : 'LIST' TB1. 'DESCHI' . 'NOM' ;
  19 : 'SAUT' 'LIGNE' ;
  20 :  'MESS' BL20 ' Identifiants des espèces retenues ';
  21 :  'MESS' BL20    NOMTB  '.DESCHI.IDY' ;
  22 : 'LIST' TB1. 'DESCHI' . 'IDY' ;
  23 : 'SAUT' 'LIGNE' ;
  24 : 'SI' ( 'EXIS' TB1 'DESCHI' 'IDZ' ) ;
  25 :  'MESS' BL20 ' Identifiants des solutions solides retenues ';
  26 :  'MESS' BL20    NOMTB  '.DESCHI.IDZ' ;
  27 : 'LIST' TB1. 'DESCHI' . 'IDZ' ;
  28 : 'FINSI' ;
  29 : 'SAUT' 'LIGNE' ;  
  30 :  'MESS' BL20 ' Nombre d espèce de chaque type  ' ;
  31 : 'MESS' BL20  NOMTB '.DESCHI.NN';
  32 : 'LIST' TB1. 'DESCHI'  . 'NN' ;
  33 : 'SAUT' 'LIGNE' ;
  34 :  'MESS' BL20 'Nature des espèces de type 2 ';
  35 :  'MESS' BL20 NOMTB  '.DESCHI.IDSURF ' ;
  36 : 'LIST' TB1. 'DESCHI' . 'IDSURF' ;
  37 : 'SAUT' 'LIGNE' ;
  38 : 'MESS'  NOMTB  '.IDEN ';
  39 : 'LIST' TB1. 'IDEN'    ;
  40 : 'SAUT' 'LIGNE' ;
  41 :  'SI'( 'EXIS' TB1 'IDEN' 'SOLU');
  42 : 'MESS'  BL20 'Identifiants des espèces en solution ';
  43 : 'MESS' BL20 NOMTB  '.IDEN.SOLU '  ;
  44 : 'LIST' TB1. 'IDEN' . 'SOLU' ;
  45 : 'SAUT' 'LIGNE' ;
  46 :  'FINSI' ;
  47 :  'SI' ( 'EXIS' TB1 'IDEN' 'PRECI');
  48 : 'MESS' BL20  'Identifiants des espèces précipitées ' ;
  49 : 'MESS' BL20 NOMTB  '.IDEN.PRECI' ;
  50 : 'LIST' TB1. 'IDEN' . 'PRECI' ;
  51 : 'SAUT' 'LIGNE' ;
  52 : 'MESS' BL20 'Noms des espèces précipitées ';
  53 : 'MESS' BL20 NOMTB  '.IDEN.NOMPRECI' ;
  54 : 'LIST' TB1. 'IDEN' . 'NOMPRECI' ;
  55 : 'SAUT' 'LIGNE' ;
  56 :  'FINSI' ;
  57 :  'SI' ( 'EXIS' TB1 'IDEN' 'SOLSOL');
  58 : 'MESS' BL20  'Identifiants des solutions solides ' ;
  59 : 'MESS' BL20 NOMTB  '.IDEN.SOLSOL' ;
  60 : 'LIST' TB1. 'IDEN' . 'SOLSOL' ;
  61 : 'SAUT' 'LIGNE' ;
  62 : 'MESS' BL20 'Noms des solutions solides ';
  63 : 'MESS' BL20 NOMTB  '.IDEN.NOMSOLSOL' ;
  64 : 'LIST' TB1. 'IDEN' . 'NOMSOLSOL' ;
  65 : 'SAUT' 'LIGNE' ;
  66 :  'FINSI' ;
  67 :  'SI' ( 'EXIS' TB1 'IDEN' 'POLE');
  68 : 'MESS' BL20 'Identifiants des poles de solutions solides ' ;
  69 : 'MESS' BL20 NOMTB  '.IDEN.POLE' ;
  70 : 'LIST' TB1.  'IDEN' . 'POLE' ;
  71 : 'SAUT' 'LIGNE' ;
  72 : 'MESS' BL20 'Noms des poles de solutions solides ' ;
  73 : 'MESS' BL20 NOMTB  '.IDEN.NOMPOLE' ;
  74 : 'LIST' TB1. 'IDEN' . 'NOMPOLE' ;
  75 : 'SAUT' 'LIGNE' ;
  76 : 'FINSI' ;   
  77 :  'SI' ( 'EXIS' TB1 'IDEN' 'SURF');
  78 : 'MESS' BL20 'Identifiants des espèces de surface ';
  79 : 'MESS' BL20 NOMTB  '.IDEN.SURF' ;
  80 : 'LIST' TB1. 'IDEN' . 'SURF' ;
  81 : 'SAUT' 'LIGNE' ;
  82 : 'MESS' BL20 'Noms des espèces de surface ';
  83 : 'MESS' BL20 NOMTB  '.IDEN.NOMSURF' ;
  84 : 'LIST' TB1.'IDEN' . 'NOMSURF' ;
  85 : 'SAUT' 'LIGNE' ;
  86 :  'FINSI' ;
  87 :  'SI' ( 'EXIS'  TB1 'IDEN' 'TYP3' );
  88 : 'MESS' BL20 'Identifiants des espèces de type 3 ';
  89 : 'MESS' BL20  NOMTB  '.IDEN.TYP3';
  90 : 'LIST' TB1. 'IDEN' . 'TYP3' ;
  91 : 'SAUT' 'LIGNE' ;
  92 : 'MESS' BL20 'Noms des espèces de type 3 ';
  93 : 'MESS' BL20 NOMTB  '.IDEN.NOMTYP3' ;
  94 : 'LIST' TB1. 'IDEN' . 'NOMTYP3' ;
  95 : 'SAUT' 'LIGNE' ;
  96 :  'FINSI' ;
  97 :  'SI' ( 'EXIS' TB1 'IDEN'  'TYP6' );
  98 : 'MESS' BL20 'Identifiants des espèces de type 6 ';
  99 : 'MESS' BL20  NOMTB  '.IDEN.TYP6' ;
 100 : 'LIST' TB1. 'IDEN' . 'TYP6' ;
 101 : 'SAUT' 'LIGNE' ;
 102 : 'MESS' BL20 'Noms des espèces de type 6 ';
 103 : 'MESS' BL20  NOMTB  '.IDEN.NOMTYP6' ;
 104 : 'LIST' TB1. 'IDEN' . 'NOMTYP6' ;
 105 : 'SAUT' 'LIGNE' ;
 106 :  'FINSI' ;
 107 :  'SI' ( 'EXIS' TB1 'IDEN' 'PARF');
 108 : 'MESS' BL20 'Identifiants des composants non réactifs ';
 109 : 'MESS' BL20 NOMTB '.IDEN.PARF' ;
 110 : 'LIST' TB1. 'IDEN' . 'PARF' ;
 111 : 'SAUT' 'LIGNE' ;
 112 :  'FINSI' ;
 113 :  'SI'( 'EXIS' TB1 'IDEN' 'REAC' ) ;
 114 : 'MESS' BL20 'Identifiants des composants réactifs ';
 115 : 'MESS' BL20 NOMTB  '.IDEN.REAC' ;
 116 : 'LIST' TB1. 'IDEN' . 'REAC' ;
 117 : 'SAUT' 'LIGNE' ;
 118 :  'FINSI' ;
 119 :  'SI'( 'EXIS' TB1 'IDEN' 'IMMO');
 120 : 'MESS' BL20  'Identifiants des composants non transportés ';
 121 : 'MESS' BL20  NOMTB '.IDEN.IMMO' ;
 122 : 'LIST' TB1. 'IDEN' . 'IMMO' ;
 123 : 'SAUT' 'LIGNE' ;
 124 :  'FINSI' ;
 125 :  'SI' ( 'EXIS' TB1 'REDOX');
 126 : 'MESS'  BL20 'Table des données relatives aux redox ' ;
 127 : 'MESS' BL20 NOMTB  '.REDOX' ;
 128 : 'LIST' TB1.'REDOX' ;
 129 : 'SAUT' 'LIGNE' ;
 130 : 'MESS'  BL20 'Identifiant du composant mobile ' ;
 131 : 'MESS' BL20 NOMTB  '.REDOX.I1' ;
 132 : 'LIST' TB1. 'REDOX' . 'I1' ;
 133 : 'SAUT' 'LIGNE' ;
 134 : 'MESS'  BL20 'Identifiant du composant lié au composant mobile ' ;
 135 : 'MESS' BL20 NOMTB  '.REDOX.I2' ;
 136 : 'LIST' TB1.'REDOX' . 'I2' ;
 137 : 'SAUT' 'LIGNE' ;
 138 : 'MESS'  BL20 'Coefficient stoechiométrique de l electron e- ' ;
 139 : 'MESS' BL20 NOMTB  '.REDOX.A1' ;
 140 : 'LIST' TB1.'REDOX' . 'A1' ;
 141 : 'SAUT' 'LIGNE' ;
 142 : 'MESS'  BL20 'Coefficient stoechiométrique du proton H+ ' ;
 143 : 'MESS' BL20 NOMTB  '.REDOX.A2' ;
 144 : 'LIST' TB1.'REDOX' . 'A2' ;
 145 : 'SAUT' 'LIGNE' ;
 146 :  'FINSI' ;
 147 :  'SI'( 'EXIS' TB1 'TEMPE');
 148 : 'MESS'  BL20 'Table des données relatives à la température ' ;
 149 : 'MESS' BL20 NOMTB  '.TEMPE' ;
 150 : 'LIST' TB1.'TEMPE' ;
 151 : 'SAUT' 'LIGNE' ;
 152 :  'FINSI' ;
 153 : 'FINPROC'  ;
 154 :  
 155 :  
 156 :