!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*     --------------------------------------------------------
*     FONCTION CALCULANT  H/CP
*     TTP= TEMPERATURE EN K
*     AI,BI,AW,BW,T1S,T2S,SLP = VOIR COMMON /CTESDYN/
*
!      HTVOCP(TTP) = CVMGT((AI-BI*TTP),CVMGT((AW-BW*TTP),
!     X             SLP*((AW-BW*TTP)*(TTP-T2S)+(AI-BI*TTP)*(T1S-TTP))
!     Y             ,TTP.GE.T1S),TTP.LE.T2S)
*     -----------------------------------------------------------
!
!  internal function definition
!

      REAL FUNCTION htvocp(ttp) 8
      REAL ttp

      if      (TTP.LE.T2S) then
         htvocp = AI-BI*TTP
      else if (TTP.GE.T1S) then
            htvocp = AW-BW*TTP
      else
            htvocp = SLP*((AW-BW*TTP)*(TTP-T2S)+(AI-BI*TTP)*(T1S-TTP))
      endif
      END FUNCTION htvocp