From 63e2ea7d8f5eac38ae3ac095c8cb5eb9ed201dbe Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 16 Feb 2019 12:49:28 +0100 Subject: [PATCH] was not use (anymore) --- src/IO.f90 | 25 ------------------------- 1 file changed, 25 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index 42ba479cd..3d330a2df 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -27,7 +27,6 @@ module IO IO_open_file_stat, & IO_open_jobFile_stat, & IO_open_file, & - IO_open_jobFile, & IO_write_jobFile, & IO_write_jobRealFile, & IO_read_realFile, & @@ -291,30 +290,6 @@ logical function IO_open_file_stat(fileUnit,path) end function IO_open_file_stat -!-------------------------------------------------------------------------------------------------- -!> @brief opens existing file for reading to given unit. File is named after solver job name -!! plus given extension and located in current working directory -!> @details like IO_open_jobFile_stat, but error is handled via call to IO_error and not via return -!! value -!-------------------------------------------------------------------------------------------------- -subroutine IO_open_jobFile(fileUnit,ext) - use DAMASK_interface, only: & - getSolverJobName - - implicit none - integer(pInt), intent(in) :: fileUnit !< file unit - character(len=*), intent(in) :: ext !< extension of file - - integer(pInt) :: myStat - character(len=1024) :: path - - path = trim(getSolverJobName())//'.'//ext - open(fileUnit,status='old',iostat=myStat,file=path,action='read',position='rewind') - if (myStat /= 0_pInt) call IO_error(100_pInt,el=myStat,ext_msg=path) - -end subroutine IO_open_jobFile - - !-------------------------------------------------------------------------------------------------- !> @brief opens existing file for reading to given unit. File is named after solver job name !! plus given extension and located in current working directory