C ...........................................................
      SUBROUTINE UEXPAN(EXPAN,DEXPANDT,TEMP,TIME,DTIME,PREDEF,
     1 DPRED,STATEV,CMNAME,NSTATV,NOEL)
C
      INCLUDE 'ABA_PARAM.INC'

C
      parameter (zero=0.0d0)
      CHARACTER*80 CMNAME
C
      DIMENSION EXPAN(*),DEXPANDT(*),TEMP(2),TIME(2),PREDEF(*),
     1 DPRED(*),STATEV(NSTATV)

      parameter (maxParams=30)
      character*80 cParams(maxParams)
      dimension iParamDataTypes(maxParams)
      dimension rParams(maxParams) 
      dimension iParams(maxParams)
      character*80 tcName, pttName

      pttName = 'RESIN_CTE'
      call getParameterTable(pttName,
     *     numParams, iParamDataTypes, iParams,
     *     rParams, cParams, jError)
      if (jError.ne.0) then
         write(0,*)'get TC error = ',jError
      endif

      cte_r = rParams(1)
      cte_g = rParams(2)    
      
c
      expan(1) = zero
      dExpandT(1) = zero
c
      temperature = temp(1)
      dTemp = temp(2)
      doc = PREDEF(1)
      tgtdiff = PREDEF(2)     
C
      tangent_cte = zero
      if(doc.gt.0.5) then      
         if (tgtdiff .gt. zero) then
            tangent_cte = cte_g
         else
            tangent_cte = cte_r
         end if
      end if
c
      DEXPANDT(1) = tangent_cte
      expan(1) = tangent_cte*dTemp

      return
      end