diff --git a/src/CPFEM.f90 b/src/CPFEM.f90
index 3a7f35633..d74155703 100644
--- a/src/CPFEM.f90
+++ b/src/CPFEM.f90
@@ -377,7 +377,7 @@ subroutine CPFEM_results(inc,time)
   call constitutive_results
   call crystallite_results
   call homogenization_results
-  call results_removeLink('current') ! ToDo: put this into closeJobFile
+  call results_finalizeIncrement
   call results_closeJobFile
 
 end subroutine CPFEM_results
diff --git a/src/CPFEM2.f90 b/src/CPFEM2.f90
index 6b4479b89..bc3a424e3 100644
--- a/src/CPFEM2.f90
+++ b/src/CPFEM2.f90
@@ -201,7 +201,7 @@ subroutine CPFEM_results(inc,time)
   call crystallite_results
   call homogenization_results
   call discretization_results
-  call results_removeLink('current') ! ToDo: put this into closeJobFile?
+  call results_finalizeIncrement
   call results_closeJobFile
 
 end subroutine CPFEM_results
diff --git a/src/results.f90 b/src/results.f90
index 73c5d7dbb..ca2a868fb 100644
--- a/src/results.f90
+++ b/src/results.f90
@@ -47,6 +47,7 @@ module results
     results_openJobFile, &
     results_closeJobFile, &
     results_addIncrement, &
+    results_finalizeIncrement, &
     results_addGroup, &
     results_openGroup, &
     results_closeGroup, &
@@ -119,6 +120,17 @@ subroutine results_addIncrement(inc,time)
 end subroutine results_addIncrement
 
 
+!--------------------------------------------------------------------------------------------------
+!> @brief finalize increment
+!> @details remove soft link
+!--------------------------------------------------------------------------------------------------
+subroutine results_finalizeIncrement
+
+  call results_removeLink('current')
+
+end subroutine results_finalizeIncrement
+
+
 !--------------------------------------------------------------------------------------------------
 !> @brief open a group from the results file
 !--------------------------------------------------------------------------------------------------