FCPHREC(RECC)$SUM(REC$(ORD(REC) EQ ORD(RECC)), EXIST(REC) AND (NOT MILP) )..
     fcphs(recc)*FCPH(RECC) =E=
     SUM(REC$(ORD(REC) EQ ORD(RECC)), F('OUT-1',REC)*fs*REFLUX(REC)*
     SUM(WE, XC(REC,compon)*DHVV('OUT-1',REC,compon)))
 ---------------------------------------------------------------------------------------------------------------------
disthb(distr)$
sum((dist,distc)$((ord(dist)eq ord(distr))or (ord(dist) eq ord(distc))),
exist(dist))..

Qh(distr)=e= sum(distc$(ord(distr) eq ord(distc)),
sum(COMPON, fc('in-1',distc,COMPON)*cp(COMPON))*T('out-1',distc)/3600) +
sum(COMPON, fc('in-1',distr,COMPON)*cp(COMPON))*T('out-1',distr)/3600 +
sum(distc$(ord(distr) eq ord(distc)),Qc(distc))     -
sum(dist$(ord(dist)eq  ord(distr)),
sum(COMPON,fc('in-1',dist,COMPON)*cp(COMPON))*T('in-1',dist)/3600);