{$DS.}

{!SECTION 4.2: Discharge line (state point 2 to 3)                                 }
{ ******************************************************************************** }
CALL PIPE_GAS(Ref$,SP[2,1..6],PIPE_IN[2,1..10],P_SPEC$[2],Lambda_INS$[2],STATUS$:eta_Q[2],DELTAT_S[2],m_dot_Ref,DELTAT_SH_PIPE[2],DELTAp_PIPE[2],DELTAT_PIPE[2],PIPE_OUT[2,1..5],Error$[2])

{!SECTION 4.3: Liquid line (state point 4 to 5)                                    }
{ ******************************************************************************** }
CALL PIPE_LIQ(Ref$,SP[4,1..6],PIPE_IN[4,1..10],P_SPEC$[4],Lambda_INS$[4],STATUS$:eta_Q[4],DELTAT_S[4],m_dot_Ref,DELTAT_SC_PIPE[4],DELTAp_PIPE[4],DELTAT_PIPE[4],PIPE_OUT[4,1..5],Error$[4])

{!SECTION 4.4: Liquid line subcooled (state point 7 to 8)                          }
{ ******************************************************************************** }
CALL PIPE_LIQ(Ref$,SP[7,1..6],PIPE_IN[7,1..10],P_SPEC$[7],Lambda_INS$[7],STATUS$:eta_Q[7],DELTAT_S[7],m_dot_Ref,DELTAT_SC_PIPE[7],DELTAp_PIPE[7],DELTAT_PIPE[7],PIPE_OUT[7,1..5],Error$[7])

{!SECTION 4.4: Suction line (state point 13 to 1)                                  }
{ ******************************************************************************** }
CALL PIPE_GAS(Ref$,SP[12,1..6],PIPE_IN[12,1..10],P_SPEC$[12],Lambda_INS$[12],STATUS$:eta_Q[12],DELTAT_S[12],m_dot_Ref,DELTAT_SH_PIPE[12],DELTAp_PIPE[12],DELTAT_PIPE[12],PIPE_OUT[12,1..5],Error$[12])

CALL R717_CHECK(Ref$,P_SPEC$[2]:Pipe_Note$)