223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

nicer preprocessor statements

This commit is contained in:
Martin Diehl 2014-11-06 11:47:27 +00:00
parent 95ec8b7b7b
commit b443ac6321
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/IO.f90
View File

@ -72,13 +72,11 @@ module IO
IO_warning, & IO_warning, &
IO_intOut, & IO_intOut, &
IO_timeStamp IO_timeStamp
#ifndef Spectral #if defined(Marc4DAMASK) || defined(Abaqus)
#ifndef FEM
public :: & public :: &
IO_open_inputFile, & IO_open_inputFile, &
IO_open_logFile IO_open_logFile
#endif #endif
#endif
#ifdef Abaqus #ifdef Abaqus
public :: & public :: &
IO_abaqus_hasNoPart IO_abaqus_hasNoPart
@ -316,8 +314,7 @@ logical function IO_open_jobFile_stat(fileUnit,ext)
end function IO_open_JobFile_stat end function IO_open_JobFile_stat
#ifndef Spectral #if defined(Marc4DAMASK) || defined(Abaqus)
#ifndef FEM
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief opens FEM input file for reading located in current working directory to given unit !> @brief opens FEM input file for reading located in current working directory to given unit
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -383,7 +380,6 @@ subroutine IO_open_logFile(fileUnit)
end subroutine IO_open_logFile end subroutine IO_open_logFile
#endif #endif
#endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------