$$$$ HTC_CHBW
* HTC_CHBW  PROCEDUR  AM        11/09/13    21:15:01     7126           
*-----------------------------------------------------------------------
*23456789012345678901234567890123456789012345678901234567890123456789012
*-----------------------------------------------------------------------
*------------------------------------------------------
* HTC_CHBW Dehydration curve 
* 
* Date: 16-03-98   mod : 21-07-11
*------------------------------------------------------
'DEBP' HTC_CHBW  T0*'CHPOINT' H0*'CHPOINT' TAV1*'TABLE' ;
*------------------------------------------------------
FLG1= TAV1.'FLG1';
'SI' FLG1; 'MESS' 'PROCEDURE-HTC_CHBW'; 'FINSI'; 
 EWD =TAV1.'EWD';  
 WD1= 'VARI' T0 EWD 'SCAL';
 WDM=TAV1.'WDM'; 
 DF1= WD1 - WDM;
 RESO1 = DF1 'MASQUE' 'SUPERIEUR' 0.;
 RESO2 = H0  'MASQUE' 'EGINFE'    1.; 
 DF2=RESO1 * RESO2 * DF1;
* DF2=RESO1 * DF1;
'DETR' DF1;
'DETR' RESO1;
'DETR' RESO2;
 WD =DF2 + WDM; 
'FINPROC' WD DF2;