Test whether a directory exists or not

fortran fortran90 intel-fortran
Sebastian picture Sebastian · Mar 1, 2012 · Viewed 13.9k times · Source

I'm trying to verify that a directory exists using Fortan90. On various sites I found:

logical :: dir_e
inquire(file='./docs/.', exist=dir_e)

if ( dir_e ) then
  write(*,*) "dir exists!"
else
  ! workaround: it calls an extern program...
  call system('mkdir docs')
end if

However, inquire returns False whether or not the directory exists and if I execute this code twice, I get an error message

cannot make dir, file already exists

If I use:

inquire(file='./docs/test', exist=dir_e)

with an existing file test, inquire returns true.

How can I check for the existence of a directory? I am using ubuntu 11.04 and the ifort compiler.

Answer

Mison picture Mison · Feb 18, 2014

The Fortran standard 95, 2003 and 2008 do not specify, how inquire should treat directories. From my experience under Linux, gfortran treats them as files, ifort does not. The directory statement is a proprietary feature of ifort and should therefore be avoided.

The safest would be to test for a file in the said directory.

Related questions

Format string for output dependent on a variable

I would like to have a Fortran write statement formatted to depend on some variable. For example, I could write: write(*,'(3f15.3,3f9.2)') x,y,z,(var(i),i=1,nvari) where nvari = 3. But, what if, in some cases, …

Read More
The mysterious nature of Fortran 90 modules

Fortran 90 modules are evanescent creatures. I was using a (singular) module for a while with some success (compiling using Intel Visual Fortran and Visual Studio 2010). Then I wrote another module and tried to USE it in another function, before receiving …

Read More
How to use include statement in Fortran 90?

I have some .h files that are used for some modules in FORTRAN 77 (which I haven't written myself). I want to write a new routine in Fortran 90 and use such .h files. I've tried to use include 'foo.h', when …

Read More