Я пытаюсь проверить существование каталога с помощью 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.
mkdir -p
. - person Vladimir F   schedule 02.03.2012file='./docs'
, это работает и для меня. - person Vladimir F   schedule 02.03.2012