diff --git a/src/dftbp/dftbplus/mainio.F90 b/src/dftbp/dftbplus/mainio.F90
index 87e6151643..bace87fbcd 100644
--- a/src/dftbp/dftbplus/mainio.F90
+++ b/src/dftbp/dftbplus/mainio.F90
@@ -1861,20 +1861,6 @@ end subroutine writeProjPauliEigvecsSerial
 #:endif
 
 
-  !> Open an output file and clear it
-  subroutine initOutputFile(fileName)
-
-    !> File name
-    character(*), intent(in) :: fileName
-
-    type(TFileDescr) :: fd
-
-    call openFile(fd, fileName, mode="w")
-    call closeFile(fd)
-
-  end subroutine initOutputFile
-
-
   !> Write tagged output of data from the code at the end of the DFTB+ run, data being then used for
   !> regression testing
   subroutine writeAutotestTag(fileName, electronicSolver, tPeriodic, cellVol, tMulliken, qOutput,&