diff --git a/src/phase_mechanical_eigen_thermalexpansion.f90 b/src/phase_mechanical_eigen_thermalexpansion.f90
index 087cf7d3d..70bf84cd8 100644
--- a/src/phase_mechanical_eigen_thermalexpansion.f90
+++ b/src/phase_mechanical_eigen_thermalexpansion.f90
@@ -99,11 +99,11 @@ module subroutine thermalexpansion_LiAndItsTangent(Li, dLi_dTstar, ph,me)
   associate(prm => param(kinematics_thermal_expansion_instance(ph)))
     Li = dot_T * ( &
                   prm%A(1:3,1:3,1) &                                                                ! constant  coefficient
-                + prm%A(1:3,1:3,2)*(T - prm%T_ref)**1 &                                             ! linear    coefficient
+                + prm%A(1:3,1:3,2)*(T - prm%T_ref) &                                                ! linear    coefficient
                 + prm%A(1:3,1:3,3)*(T - prm%T_ref)**2 &                                             ! quadratic coefficient
                 ) / &
          (1.0_pReal &
-               + prm%A(1:3,1:3,1)*(T - prm%T_ref)**1 / 1.0_pReal &
+               + prm%A(1:3,1:3,1)*(T - prm%T_ref)    / 1.0_pReal &
                + prm%A(1:3,1:3,2)*(T - prm%T_ref)**2 / 2.0_pReal &
                + prm%A(1:3,1:3,3)*(T - prm%T_ref)**3 / 3.0_pReal &
          )
diff --git a/src/phase_mechanical_elastic.f90 b/src/phase_mechanical_elastic.f90
index bb530747b..8972367d5 100644
--- a/src/phase_mechanical_elastic.f90
+++ b/src/phase_mechanical_elastic.f90
@@ -101,32 +101,32 @@ pure module function elastic_C66(ph,en) result(C66)
     T = thermal_T(ph,en)
 
     C66(1,1) = prm%C_11(1) &
-             + prm%C_11(2)*(T - prm%T_ref)**1 &
+             + prm%C_11(2)*(T - prm%T_ref) &
              + prm%C_11(3)*(T - prm%T_ref)**2
 
     C66(1,2) = prm%C_12(1) &
-             + prm%C_12(2)*(T - prm%T_ref)**1 &
+             + prm%C_12(2)*(T - prm%T_ref) &
              + prm%C_12(3)*(T - prm%T_ref)**2
 
     C66(4,4) = prm%C_44(1) &
-             + prm%C_44(2)*(T - prm%T_ref)**1 &
+             + prm%C_44(2)*(T - prm%T_ref) &
              + prm%C_44(3)*(T - prm%T_ref)**2
 
 
     if (any(phase_lattice(ph) == ['hP','tI'])) then
       C66(1,3) = prm%C_13(1) &
-               + prm%C_13(2)*(T - prm%T_ref)**1 &
+               + prm%C_13(2)*(T - prm%T_ref) &
                + prm%C_13(3)*(T - prm%T_ref)**2
 
       C66(3,3) = prm%C_33(1) &
-               + prm%C_33(2)*(T - prm%T_ref)**1 &
+               + prm%C_33(2)*(T - prm%T_ref) &
                + prm%C_33(3)*(T - prm%T_ref)**2
 
     end if
 
     if (phase_lattice(ph) == 'tI') then
       C66(6,6) = prm%C_66(1) &
-               + prm%C_66(2)*(T - prm%T_ref)**1 &
+               + prm%C_66(2)*(T - prm%T_ref) &
                + prm%C_66(3)*(T - prm%T_ref)**2
     end if