Procedures | Cast3M

   1 : * HTC_CHBW  PROCEDUR  AM        11/09/13    21:15:01     7126           
   2 : *-----------------------------------------------------------------------
   3 : *23456789012345678901234567890123456789012345678901234567890123456789012
   4 : *-----------------------------------------------------------------------
   5 : *------------------------------------------------------
   6 : * HTC_CHBW Dehydration curve 
   7 : * 
   8 : * Date: 16-03-98   mod : 21-07-11
   9 : *------------------------------------------------------
  10 : 'DEBP' HTC_CHBW  T0*'CHPOINT' H0*'CHPOINT' TAV1*'TABLE' ;
  11 : *------------------------------------------------------
  12 : FLG1= TAV1.'FLG1';
  13 : 'SI' FLG1; 'MESS' 'PROCEDURE-HTC_CHBW'; 'FINSI'; 
  14 :  EWD =TAV1.'EWD';  
  15 :  WD1= 'VARI' T0 EWD 'SCAL';
  16 :  WDM=TAV1.'WDM'; 
  17 :  DF1= WD1 - WDM;
  18 :  RESO1 = DF1 'MASQUE' 'SUPERIEUR' 0.;
  19 :  RESO2 = H0  'MASQUE' 'EGINFE'    1.; 
  20 :  DF2=RESO1 * RESO2 * DF1;
  21 : * DF2=RESO1 * DF1;
  22 : 'DETR' DF1;
  23 : 'DETR' RESO1;
  24 : 'DETR' RESO2;
  25 :  WD =DF2 + WDM; 
  26 : 'FINPROC' WD DF2;
  27 :