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