Update TSHIKWAND_JABER_FULLY_COUPLED_STRAIN_BASED_SMA_MODEL.f

      EPSILEL2=EPSIL2-EPSILTR

      CALL PRODUIT_M_V(6,DRT,EPSILEL2,DS2)

C-------------------------------------------------------------------------

C	THE THERMAL MODULUS TENSOR KT AND DKT 

C-------------------------------------------------------------------------

C      CALL THERMAL_TENSOR(KM,ALPHAM,EM,NUM)

C      CALL THERMAL_TENSOR(KA,ALPHAA,EA,NUA)

C      KT=XCI*KM+(ONE-XCI)*KA

C      DKT=DXCI*(KM-KA)

C-------------------------------------------------------------------------

C	COMPUTE DS=R.DEPS_EL+DR.EPS_EL+KT.DT+DKT.T 

C	COMPUTE DS=R.DEPS_EL+DR.EPS_EL 

C-------------------------------------------------------------------------

      DS=DS1+DS2

C      +KT*(T2-T1)+DKT*(T2-T0)

      S1=S1+DS

C*************************************************************************