From 805b473ea58d637406a38aaadc569f09fb933e97 Mon Sep 17 00:00:00 2001 From: Ben Hourahine Date: Fri, 8 Mar 2024 11:16:13 +0000 Subject: [PATCH] Remove unused file opening routine --- src/dftbp/dftbplus/mainio.F90 | 14 -------------- 1 file changed, 14 deletions(-) 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,&