{$DS.}

{!SECTION 3.2: Suction line (Pressure drop and heat exchange)                      }
{ ******************************************************************************** }
eta_Q[12]=0
DELTAT_PIPE[12]=0
CALL PIPEDATA(P_SPEC$[12],0,0:d_SL_I_mm,PIPE_IN_SL[3],e_mm_SL)
CALL VELO(SP[12,6],d_SL_I_mm,m_dot_Ref:PIPE_IN[12,8])
DELTAT_S[12]=0; DELTAp_PIPE[12]=0
PIPE_OUT[12,1]=0; PIPE_OUT[12,4]=0; PIPE_OUT[12,5]=0

{!SECTION 3.3: Discharge line (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
eta_Q[2]=0
DELTAT_PIPE[2]=0
CALL PIPEDATA(P_SPEC$[2],0,0:d_DL_I_mm,PIPE_IN_DL[3],e_mm_DL)
CALL VELO(SP[2,6],d_DL_I_mm,m_dot_Ref:PIPE_IN[2,8])
DELTAT_S[2]=0; DELTAp_PIPE[2]=0
PIPE_OUT[2,1]=0; PIPE_OUT[2,4]=0; PIPE_OUT[2,5]=0

{!SECTION 3.4: Liquid line #1 (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
eta_Q[4]=0
DELTAT_PIPE[4]=0
CALL PIPEDATA(P_SPEC$[4],0,0:d_LL_1_I_mm,PIPE_IN_LL_1[3],e_mm_LL_1)
CALL VELO(SP[4,6],d_LL_1_I_mm,m_dot_Ref:PIPE_IN[4,8])
DELTAT_S[4]=0; DELTAp_PIPE[4]=0
PIPE_OUT[4,1]=0; PIPE_OUT[4,4]=0; PIPE_OUT[4,5]=0
error$[4]=' '

{!SECTION 3.5: Liquid line #2 (Pressure drop and heat exchange)                    }
{ ******************************************************************************** }
eta_Q[7]=0
DELTAT_PIPE[7]=0
CALL PIPEDATA(P_SPEC$[7],0,0:d_LL_2_I_mm,PIPE_IN_LL_2[3],e_mm_LL_2)
CALL VELO(SP[7,6],d_LL_2_I_mm,m_dot_Ref:PIPE_IN[7,8])
DELTAT_S[7]=0; DELTAp_PIPE[7]=0
PIPE_OUT[7,1]=0; PIPE_OUT[7,4]=0; PIPE_OUT[7,5]=0
error$[7]=' '

{!SECTION 3.5: CHECK R717 and copper                                               }
{ ******************************************************************************** }
CALL R717_CHECK(Ref$,P_SPEC$[2]:Pipe_Note$)