{$DS.}

{!SECTION 3.2: Suction line (Pressure drop and heat exchange)                      }
{ ******************************************************************************** }
call PIPE_GAS_DIM(Ref$,SP[10,1..6],PIPE_IN_SL[1..9],P_MAT_SL$,P_INS_SL$,'Yes':eta_Q[10],DELTAT[10],m_dot,DELTAT_SC_SL_OUT,DELTAp_SL,DELTAT_SL,PIPE_OUT_SL[1..5],Error_SL$)
PIPE_IN_SL[3]=PIPE_OUT_SL[2]
d_SL_I_mm=PIPE_IN_SL[2]-2*PIPE_IN_SL[3]

{!SECTION 3.3: Discharge line (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
call PIPE_GAS_DIM(Ref$,SP[2,1..6],PIPE_IN_DL[1..9],P_MAT_DL$,P_INS_DL$,'Yes':eta_Q[2],DELTAT[2],m_dot,DELTAT_SC_DL_OUT,DELTAp_DL,DELTAT_DL,PIPE_OUT_DL[1..5],Error_DL$)
PIPE_IN_DL[3]=PIPE_OUT_DL[2]
d_DL_I_mm=PIPE_IN_DL[2]-2*PIPE_IN_DL[3]

{!SECTION 3.4: Liquid line #1 (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
call PIPE_LIQ_DIM(Ref$,SP[4,1..6],PIPE_IN_LL_1[1..10],P_MAT_LL_1$,P_INS_LL_1$,'Yes':eta_Q[4],DELTAT[4],m_dot,DELTAT_SC_LL_1_OUT,DELTAp_LL_1,DELTAT_LL_1,PIPE_OUT_LL_1[1..5],Error_LL_1$)
PIPE_IN_LL_1[3]=PIPE_OUT_LL_1[2]
d_LL_1_I_mm=PIPE_IN_LL_1[2]-2*PIPE_IN_LL_1[3]

{!SECTION 3.5: Liquid line #2 (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
call PIPE_LIQ_DIM(Ref$,SP[7,1..6],PIPE_IN_LL_2[1..10],P_MAT_LL_2$,P_INS_LL_2$,'Yes':eta_Q[7],DELTAT[7],m_dot,DELTAT_SC_LL_2_OUT,DELTAp_LL_2,DELTAT_LL_2,PIPE_OUT_LL_2[1..5],Error_LL_2$)
PIPE_IN_LL_2[3]=PIPE_OUT_LL_2[2]
d_LL_2_I_mm=PIPE_IN_LL_2[2]-2*PIPE_IN_LL_2[3]
