Remove unused file opening routine

pecchia · Mar 8, 2024 · 805b473 · 805b473
1 parent 2e33dae
commit 805b473
Showing 1 changed file with 0 additions and 14 deletions.
diff --git 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,&