{$DS.}

{!SECTION 3.2: Suction line (Pressure drop and heat exchange)                      }
{ ******************************************************************************** }
eta_Q[10]=0
DELTAT[10]=0
CALL VELOCITY(SP[10,6],PIPE_IN_SL[7],m_dot:d_SL_I_mm)
DELTAT_SL=0; DELTAp_SL=0
PIPE_IN_SL[3]=0
PIPE_OUT_SL[1]=0; PIPE_OUT_SL[2]=0; PIPE_OUT_SL[3]=0; PIPE_OUT_SL[4]=0
PIPE_OUT_SL[5]=0
d_SL_I_mm=PIPE_IN_SL[2]-2*PIPE_IN_SL[3]

{!SECTION 3.3: Discharge line (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
eta_Q[2]=0
DELTAT[2]=0
CALL VELOCITY(SP[2,6],PIPE_IN_DL[7],m_dot:d_DL_I_mm)
DELTAT_DL=0; DELTAp_DL=0
PIPE_IN_DL[3]=0
PIPE_OUT_DL[1]=0; PIPE_OUT_DL[2]=0; PIPE_OUT_DL[3]=0; PIPE_OUT_DL[4]=0
PIPE_OUT_DL[5]=0
d_DL_I_mm=PIPE_IN_DL[2]-2*PIPE_IN_DL[3]

{!SECTION 3.4: Liquid line #1 (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
eta_Q[4]=0
DELTAT[4]=0
CALL VELOCITY(SP[4,6],PIPE_IN_LL_1[8],m_dot:d_LL_1_I_mm)
DELTAT_LL_1=0; DELTAp_LL_1=0
PIPE_IN_LL_1[3]=0
PIPE_OUT_LL_1[1]=0; PIPE_OUT_LL_1[2]=0; PIPE_OUT_LL_1[3]=0; PIPE_OUT_LL_1[4]=0
PIPE_OUT_LL_1[5]=0
d_LL_1_I_mm=PIPE_IN_LL_1[2]-2*PIPE_IN_LL_1[3]
error_LL_1$=' '

{!SECTION 3.5: Liquid line #2 (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
eta_Q[7]=0
DELTAT[7]=0
CALL VELOCITY(SP[7,6],PIPE_IN_LL_2[8],m_dot:d_LL_2_I_mm)
DELTAT_LL_2=0; DELTAp_LL_2=0
PIPE_IN_LL_2[3]=0
PIPE_OUT_LL_2[1]=0; PIPE_OUT_LL_2[2]=0; PIPE_OUT_LL_2[3]=0; PIPE_OUT_LL_2[4]=0
PIPE_OUT_LL_2[5]=0
d_LL_2_I_mm=PIPE_IN_LL_2[2]-2*PIPE_IN_LL_2[3]
error_LL_2$=' '

{!SECTION 3.5: SUBCOOLING after LL_1                                               }
{ ******************************************************************************** }
DELTAT_SC_LL_1_OUT=DELTAT_SC