diff --git a/code/constitutive.f90 b/code/constitutive.f90
index 465580076..06586c830 100644
--- a/code/constitutive.f90
+++ b/code/constitutive.f90
@@ -381,7 +381,6 @@ endif
 !$OMP END PARALLEL DO
 
 !----- write out state size file----------------
-open(777)
 call IO_write_jobBinaryFile(777,'sizeStateConst', size(constitutive_sizeState))
 write (777,rec=1) constitutive_sizeState
 close(777)
diff --git a/code/homogenization.f90 b/code/homogenization.f90
index ed327669c..92166f2aa 100644
--- a/code/homogenization.f90
+++ b/code/homogenization.f90
@@ -195,7 +195,6 @@ end forall
 !$OMP END PARALLEL DO
 
 !---write state size file out---------------------------------------
-open(777)
 call IO_write_jobBinaryFile(777,'sizeStateHomog',size(homogenization_sizeState))
 write (777,rec=1) homogenization_sizeState
 close(777)