Проверьте, существует ли каталог или нет
Я пытаюсь проверить, что каталог существует с помощью 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.