From 35be468b243c3ec1fa6194a151aed53d18a3bebd Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 25 Feb 2014 21:10:55 +0000 Subject: [PATCH] fixed detection of working directory for ifort --- code/DAMASK_spectral_interface.f90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/code/DAMASK_spectral_interface.f90 b/code/DAMASK_spectral_interface.f90 index 313331acd..5c69b09cf 100644 --- a/code/DAMASK_spectral_interface.f90 +++ b/code/DAMASK_spectral_interface.f90 @@ -257,7 +257,11 @@ character(len=1024) function storeWorkingDirectory(workingDirectoryArg,geometryA endif if (storeWorkingDirectory(len(trim(storeWorkingDirectory)):len(trim(storeWorkingDirectory))) & ! if path seperator is not given, append it /= pathSep) storeWorkingDirectory = trim(storeWorkingDirectory)//pathSep - inquire(file = trim(storeWorkingDirectory)//'.', exist=dirExists) +#ifdef __INTEL_COMPILER + inquire(directory = trim(storeWorkingDirectory)//'.', exist=dirExists) +#else + inquire(file = trim(storeWorkingDirectory), exist=dirExists) +#endif if(.not. dirExists) then ! check if the directory exists write(6,'(a20,a,a16)') ' working directory "',trim(storeWorkingDirectory),'" does not exist' call quit(1_pInt)