Procedures | Cast3M

   1 : * CCDONCHI  PROCEDUR  AURI      98/12/29    21:16:08     3419           
   2 :  DEBPROC CCDONCHI DOMHYB*TABLE TYPG*MOT TB1*OBJET ;
   3 :  'SI' ('NON' ( 'EGA' ( TB1. 'CLASSE' ) 'DONCHI2 ' )) ;
   4 :  MESS ' on attend un objet de CLASSE DONCHI2 ' ;
   5 :  QUITTER CCDONCHI ;
   6 :  FINSI ;
   7 :  TBTT= OBJET DONCHI2 ;
   8 :  CTOTT= TB1%ACCES GTOT ;
   9 :  CLOGCT= TB1%ACCES GLOGC ;
  10 :  CTOT= CTOTT- CTOTT ;
  11 :  CLOGC= CLOGCT - CLOGCT ;
  12 :  LICOMP= 'EXTR' CTOTT 'COMP' ;
  13 :  NBCOMP= DIME LICOMP ;
  14 :  REPE BOU1 NBCOMP ;
  15 :  MO1= EXTR LICOMP &BOU1 ;
  16 :  CTOT1= EXCO CTOTT MO1 MO1 ;
  17 :  CLOGC1= EXCO CLOGCT MO1 MO1 ;
  18 :  CTOT2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CTOT1 ;
  19 :  CLOGC2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CLOGC1 ;
  20 :  CTOT= CTOT+ CTOT2 ;
  21 :  CLOGC= CLOGC+ CLOGC2 ;
  22 :  FIN BOU1 ;
  23 :  ILFION=FAUX ;
  24 :  ILTEMP=FAUX ;
  25 :  ILNTY4=FAUX ;
  26 :  ILCLIM=FAUX ;
  27 :  'SI'  ('EXIS' TB1 'FIONI') ;
  28 :        CFIONT= TB1%ACCES GFIONI ;
  29 :        CFION= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CFIONT ;
  30 :   ILFION= VRAI ;
  31 :  'FINS' ;
  32 :  'SI'  ('EXIS' TB1 'NTY4') ;
  33 :        CNTY4T= TB1%ACCES GNTY4 ;
  34 :        CNTY4= CNTY4T - CNTY4T ;
  35 :        ILNTY4= VRAI ;
  36 :        LICOM4= 'EXTR' CNTY4T 'COMP' ;
  37 :        NBCOM4= DIME LICOM4 ;
  38 :        REPE BOU3 NBCOM4 ;
  39 :        MO1= EXTR LICOM4 &BOU3 ;
  40 :        CNTY41= EXCO CNTY4T MO1 MO1 ;
  41 :        CNTY42= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CNTY41 ;
  42 :        CNTY4= CNTY4+ CNTY42 ;
  43 :        FIN BOU3 ;
  44 :  'FINS' ;
  45 :  'SI'  ('EXIS' TB1 'TEMPE') ;
  46 :        CTEMPT= TB1%ACCES GTEMPE ;
  47 :        CTEMP= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CTEMPT ;
  48 :   ILTEMP= VRAI ;
  49 :  'FINS' ;
  50 :  'SI'  ('EXIS' TB1 'CLIM') ;
  51 :        CCLIMT= TB1%ACCES GCLIM ;
  52 :        CCLIM= CCLIMT - CCLIMT ;
  53 :        ILCLIM= VRAI ;
  54 :        LICLIM= 'EXTR' CCLIMT 'COMP' ;
  55 :        NBCLIM= DIME LICLIM ;
  56 :        REPE BOU4 NBCLIM ;
  57 :        MO1= EXTR LICLIM &BOU4 ;
  58 :        CCLIM1= EXCO CCLIMT MO1 MO1 ;
  59 :        CCLIM2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CCLIM1 ;
  60 :        CCLIM= CCLIM+ CCLIM2 ;
  61 :        FIN BOU4 ;
  62 :  'FINS' ;
  63 : *
  64 :  REPE BOUINF ;
  65 :  ARGU TB2/OBJET ;
  66 :  'SI' ('NON' ( 'EXIS'  TB2 )) ;
  67 :  QUITTER BOUINF ;
  68 :  FINSI ;
  69 :  'SI' ('NON' ( 'EGA' ( TB2. 'CLASSE' ) 'DONCHI2 ' )) ;
  70 :  MESS ' on attendait un objet de CLASSE DONCHI2 ' ;
  71 :  QUITTER BOUINF ;
  72 :  FINSI ;
  73 :  CTOTT= TB2%ACCES GTOT ;
  74 :  CLOGCT= TB2%ACCES GLOGC ;
  75 :  REPE BOU2 NBCOMP ;
  76 :  MO1= EXTR LICOMP &BOU2 ;
  77 :  CTOT1= EXCO CTOTT MO1 MO1 ;
  78 :  CTOT3= EXCO CTOT MO1 MO1 ;
  79 :  CLOGC1= EXCO CLOGCT MO1 MO1 ;
  80 :  CLOGC3= EXCO CLOGC MO1 MO1 ;
  81 :  CTOT2= KCHT DOMHYB SCAL TYPG COMP MO1 0 CTOT3 CTOT1  ;
  82 :  CLOGC2= KCHT DOMHYB SCAL TYPG COMP MO1 0 CLOGC3 CLOGC1 ;
  83 :  CTOT= CTOT+ CTOT2 - CTOT3 ;
  84 :  CLOGC= CLOGC+ CLOGC2 - CLOGC3 ;
  85 :  FIN BOU2 ;
  86 :  'SI' ILFION ;
  87 :  'SI'  ('EXIS' TB2 'FIONI') ;
  88 :        CFIONT= TB2%ACCES GFIONI ;
  89 :       CFION2='KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CFION CFIONT ;
  90 :        CFION= CFION2 ;
  91 :  'SINON';
  92 :   ILFION= FAUX ;
  93 :  'MESS' 'Il manque la force ionique dans l OBJET ' (&BOUINF+1)
  94 :  ' on ne la prendra pas en compte' ;
  95 :  'FINS'  ;
  96 :  'SINON' ;
  97 :  'SI'  ('EXIS' TB2 'FIONI') ;
  98 :  'MESS' 'Il manque la force ionique dans l OBJET 1'
  99 :  ' on ne la prendra pas en compte' ;
 100 :  'FINS'  ;
 101 :  'FINS'  ;
 102 :  'SI' ILTEMP ;
 103 :  'SI'  ('EXIS' TB2 'TEMPE') ;
 104 :        CTEMPT= TB2%ACCES GTEMPE ;
 105 :        CTEMP2='KCHT' DOMHYB 'SCAL' TYPG 'COMP' 'SCAL' 0 CTEMP CTEMPT ;
 106 :        CTEMP= CTEMP2 ;
 107 :  'SINON';
 108 :   ILTEMP= FAUX ;
 109 :  'MESS' 'Il manque la température dans l OBJET ' (&BOUINF+1)
 110 :  ' on ne la prendra pas en compte' ;
 111 :  'FINS'  ;
 112 :  'SINON';
 113 :  'SI'  ('EXIS' TB2 'TEMPE') ;
 114 :  'MESS' 'Il manque la température dans l OBJET 1 '
 115 :  ' on ne la prendra pas en compte' ;
 116 :  'FINS'  ;
 117 :  'FINS'  ;
 118 :  'SI'  ILNTY4 ;
 119 :  'SI'  ('EXIS' TB2 'NTY4') ;
 120 :        CNTY4T= TB2%ACCES GNTY4 ;
 121 :        REPE BOU5 NBCOM4 ;
 122 :        MO1= EXTR LICOM4 &BOU5 ;
 123 :        CNTY41= EXCO CNTY4T MO1 MO1 ;
 124 :        CNTY43= EXCO CNTY4 MO1 MO1 ;
 125 :        CNTY42= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CNTY43 CNTY41 ;
 126 :        CNTY4= CNTY4+ CNTY42 - CNTY43 ;
 127 :        FIN BOU5 ;
 128 :  'SINON';
 129 :         ILNTY4= FAUX ;
 130 :        'MESS' 'Il manque l indice NTY4 dans l OBJET ' (&BOUINF+1)
 131 :        ' on ne le prendra pas en compte' ;
 132 :  'FINS' ;
 133 :  'SINON';
 134 :  'SI'  ('EXIS' TB2 'NTY4') ;
 135 :        'MESS' 'Il manque l indice NTY4 dans l OBJET 1 '
 136 :        ' on ne le prendra pas en compte' ;
 137 :  'FINS' ;
 138 :  'FINS' ;
 139 :  'SI'  ILCLIM ;
 140 :  'SI'  ('EXIS' TB2 'CLIM') ;
 141 :        CCLIMT= TB2%ACCES GCLIM ;
 142 :        REPE BOU6 NBCLIM ;
 143 :        MO1= EXTR LICLIM &BOU6 ;
 144 :        CCLIM1= EXCO CCLIMT MO1 MO1 ;
 145 :        CCLIM3= EXCO CCLIM MO1 MO1 ;
 146 :        CCLIM2= 'KCHT' DOMHYB 'SCAL' TYPG 'COMP' MO1 0 CCLIM3 CCLIM1 ;
 147 :        CCLIM= CCLIM+ CCLIM2 - CCLIM3 ;
 148 :        FIN BOU6 ;
 149 :  'SINON';
 150 :         ILCLIM= FAUX ;
 151 :        'MESS' 'Il manque l indice CLIM dans l OBJET ' (&BOUINF+1)
 152 :        ' on ne le prendra pas en compte' ;
 153 :  'FINS' ;
 154 :  'SINON';
 155 :  'SI'  ('EXIS' TB2 'CLIM') ;
 156 :        'MESS' 'Il manque l indice CLIM dans l OBJET 1 '
 157 :        ' on ne le prendra pas en compte' ;
 158 :  'FINS' ;
 159 :  'FINS' ;
 160 :  FIN BOUINF ;
 161 :  TBTT%GTOT CTOT ;
 162 :  TBTT%GLOGC CLOGC ;
 163 :  'SI' ILFION ;
 164 :  TBTT%GFIONI CFION ;
 165 :  'FINS';
 166 :  'SI' ILTEMP ;
 167 :  TBTT%GTEMPE CTEMP ;
 168 :  'FINS';
 169 :  'SI'  ILNTY4 ;
 170 :  TBTT%GNTY4 CNTY4 ;
 171 :  'FINS';
 172 :  'SI'  ILCLIM ;
 173 :  TBTT%GCLIM CCLIM ;
 174 :  'FINS';
 175 :  FINP TBTT ;
 176 :