belongs to elastic submodule

src/phase_mechanical.f90

@@ -1015,26 +1015,6 @@ module subroutine mechanical_forward()
 end subroutine mechanical_forward
 
 
-
-!--------------------------------------------------------------------------------------------------
-!> @brief returns the homogenize elasticity matrix
-!> ToDo: homogenizedC66 would be more consistent
-!--------------------------------------------------------------------------------------------------
-module function phase_homogenizedC(ph,en) result(C)
-
-  real(pReal), dimension(6,6) :: C
-  integer,      intent(in)    :: ph, en
-
-  plasticType: select case (phase_plasticity(ph))
-    case (PLASTICITY_DISLOTWIN_ID) plasticType
-     C = plastic_dislotwin_homogenizedC(ph,en)
-    case default plasticType
-     C = lattice_C66(1:6,1:6,ph)
-  end select plasticType
-
-end function phase_homogenizedC
-
-
 !--------------------------------------------------------------------------------------------------
 !> @brief calculate stress (P)
 !--------------------------------------------------------------------------------------------------

src/phase_mechanical_elastic.f90

@@ -113,4 +113,23 @@ module subroutine phase_hooke_SandItsTangents(S, dS_dFe, dS_dFi, &
 end subroutine phase_hooke_SandItsTangents
 
 
+!--------------------------------------------------------------------------------------------------
+!> @brief returns the homogenized elasticity matrix
+!> ToDo: homogenizedC66 would be more consistent
+!--------------------------------------------------------------------------------------------------
+module function phase_homogenizedC(ph,en) result(C)
+
+  real(pReal), dimension(6,6) :: C
+  integer,      intent(in)    :: ph, en
+
+  plasticType: select case (phase_plasticity(ph))
+    case (PLASTICITY_DISLOTWIN_ID) plasticType
+     C = plastic_dislotwin_homogenizedC(ph,en)
+    case default plasticType
+     C = lattice_C66(1:6,1:6,ph)
+  end select plasticType
+
+end function phase_homogenizedC
+
+
 end submodule elastic