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

Я пытаюсь проверить, что каталог существует с помощью 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 существует ли каталог, и если я выполню этот код дважды, я получу сообщение об ошибке

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

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

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

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

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

Ответы на вопрос(7)

Ваш ответ на вопрос