Проверить, существует ли каталог

Я пытаюсь проверить, существует ли каталог, используя Fortan90. На разных сайтах я нашел:

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

Однако inquire возвращает False , существует ли каталог, и если я выполню этот код дважды, я получаю сообщение об ошибке

не могу сделать dir, файл уже существует

Если я использую:

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

с существующим тестом файла, inquire возвращает true .

Как я могу проверить наличие каталога? Я использую ubuntu 11.04 и компилятор ifort.

6
задан nullglob 10 May 2016 в 05:06
поделиться