From af0a4c5d268bb88f4dbf8816a597c05a63fd31fe Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 26 Dec 2019 15:24:37 +0100 Subject: [PATCH] unused --- src/IO.f90 | 20 -------------------- 1 file changed, 20 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index 8926e1e21..9a0c94661 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -23,7 +23,6 @@ module IO IO_read_ASCII, & IO_open_file, & IO_open_jobFile_binary, & - IO_write_jobFile, & IO_isBlank, & IO_getTag, & IO_stringPos, & @@ -289,25 +288,6 @@ end subroutine IO_open_inputFile #endif -!-------------------------------------------------------------------------------------------------- -!> @brief opens ASCII file to given unit for writing. File is named after solver job name plus -!! given extension and located in current working directory -!-------------------------------------------------------------------------------------------------- -subroutine IO_write_jobFile(fileUnit,ext) - - integer, intent(in) :: fileUnit !< file unit - character(len=*), intent(in) :: ext !< extension of file - - integer :: myStat - character(len=1024) :: path - - path = trim(getSolverJobName())//'.'//ext - open(fileUnit,status='replace',iostat=myStat,file=path) - if (myStat /= 0) call IO_error(100,el=myStat,ext_msg=path) - -end subroutine IO_write_jobFile - - !-------------------------------------------------------------------------------------------------- !> @brief identifies strings without content !--------------------------------------------------------------------------------------------------