Merge pull request dftbplus#1408 from bhourahine/redundantRoutine

Remove unused file opening routine
pecchia · Mar 8, 2024 · e6ec93f · e6ec93f
2 parents 2e33dae + 805b473
commit e6ec93f
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,&