Update TSHIKWAND_JABER_FULLY_COUPLED_STRAIN_BASED_SMA_MODEL.f

        E1_MA=EPSIL1EQ+C_MA*(T2-T1)/YOUNG

        E2_MA=EPSIL2EQ

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

C    VERIFY START CONDITIONS OF THE TRANSFORMATION OF AUSTENITE OR/AND 

C    TWINNED MARTENSITE TO DETWINNED MARTENSITE 

C    AND UPDATE THE VALUES OF VOLUME FACTIONS OF MARTENSITE 

C    VERIFY START CONDITIONS OF THE TRANSFORMATION OF AUSTENITE TO DETWINNED  

C     MARTENSITE AND UPDATE THE VALUES OF VOLUME FACTIONS OF MARTENSITE 

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

	  CALL FORWARD_TRANS(T3,E1_AM,E2_AM,ES_AM,EF_AM,

     +  XCI,XCI_T,XCI_D,H,DXCI,DEPSILTR,V_FORWORD)