diff --git a/src/DAMASK_abaqus.f b/src/DAMASK_abaqus.f index 7a43f688e..e2c56a06e 100644 --- a/src/DAMASK_abaqus.f +++ b/src/DAMASK_abaqus.f @@ -21,7 +21,6 @@ module DAMASK_interface implicit none private character(len=4), dimension(2), parameter, public :: INPUTFILEEXTENSION = ['.pes','.inp'] - character(len=4), parameter, public :: LOGFILEEXTENSION = '.log' public :: & DAMASK_interface_init, & diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90 index 09a1c83c8..58c5349c6 100644 --- a/src/DAMASK_marc.f90 +++ b/src/DAMASK_marc.f90 @@ -41,8 +41,7 @@ module DAMASK_interface implicit none private - character(len=4), parameter, public :: InputFileExtension = '.dat' - character(len=4), parameter, public :: LogFileExtension = '.log' + character(len=4), parameter, public :: INPUTFILEEXTENSION = '.dat' public :: & DAMASK_interface_init, & diff --git a/src/IO.f90 b/src/IO.f90 index d5ab35825..d5f0efd4e 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -37,7 +37,6 @@ module IO #if defined(Marc4DAMASK) || defined(Abaqus) public :: & IO_open_inputFile, & - IO_open_logFile, & IO_countContinuousIntValues, & IO_continuousIntValues, & #if defined(Abaqus) @@ -288,24 +287,6 @@ subroutine IO_open_inputFile(fileUnit) #endif end subroutine IO_open_inputFile - - -!-------------------------------------------------------------------------------------------------- -!> @brief opens existing FEM log file for reading to given unit. File is named after solver job -!! name and located in current working directory -!-------------------------------------------------------------------------------------------------- -subroutine IO_open_logFile(fileUnit) - - integer, intent(in) :: fileUnit !< file unit - - integer :: myStat - character(len=1024) :: path - - path = trim(getSolverJobName())//LogFileExtension - open(fileUnit,status='old',iostat=myStat,file=path,action='read',position='rewind') - if (myStat /= 0) call IO_error(100,el=myStat,ext_msg=path) - -end subroutine IO_open_logFile #endif