diff --git a/src/constitutive.f90 b/src/constitutive.f90
index de38e11cf..47a7dfc4b 100644
--- a/src/constitutive.f90
+++ b/src/constitutive.f90
@@ -448,7 +448,7 @@ end function constitutive_deltaState
     crystallite_restartRead, &
     crystallite_forward, &
     constitutive_initializeRestorationPoints, &
-    crystallite_windForward, &
+    constitutive_windForward, &
     crystallite_restore
 
 contains
@@ -1216,7 +1216,7 @@ end subroutine constitutive_initializeRestorationPoints
 !--------------------------------------------------------------------------------------------------
 !> @brief Wind homog inc forward.
 !--------------------------------------------------------------------------------------------------
-subroutine crystallite_windForward(i,e)
+subroutine constitutive_windForward(i,e)
 
   integer, intent(in) :: &
     i, &                                                                                            !< integration point number
@@ -1242,7 +1242,7 @@ subroutine crystallite_windForward(i,e)
     enddo
   enddo
 
-end subroutine crystallite_windForward
+end subroutine constitutive_windForward
 
 
 !--------------------------------------------------------------------------------------------------
diff --git a/src/homogenization.f90 b/src/homogenization.f90
index 49cb0a9f7..dcde08f32 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -231,7 +231,7 @@ subroutine materialpoint_stressAndItsTangent(dt)
           steppingNeeded: if (subStep(i,e) > num%subStepMinHomog) then
 
             ! wind forward grain starting point
-            call crystallite_windForward(i,e)
+            call constitutive_windForward(i,e)
 
             if(homogState(material_homogenizationAt(e))%sizeState > 0) &
                 homogState(material_homogenizationAt(e))%subState0(:,material_homogenizationMemberAt(i,e)) = &