blocks|key|799749|text|下列措施应能发挥作用：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|799750|INQUIRE+(DIRECTORY=dir,+EXIST=ex+[,+DIRSPEC=dirspec]+[,+ERR=label]+[,+IOSTAT=i-var]+)|code-block|syntax|javascript|799751|我在这台机器上没有福特所以我不能测试它。|799752|增编:发布的代码最初适用于gfortran。DIRECTORY语句适用于ifort，但不适用于gfortran。|offset|length|style|CODE|799753|如果需要更多信息，请检查：http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/fortran/win/compiler_f/lref_for/source_files/rfinquir.htm#rfinquir|799754|entityMap|0|LINK|mutability|MUTABLE|url|http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/fortran/win/compiler_f/lref_for/source_files/rfinquir.htm#rfinquir^0|0|0|0|M|9|0|D|3Z|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Z|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|10|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|11|8|@$K|12|L|13|M|N]]|9|@]|A|$]]|$1|O|3|P|5|6|7|14|8|@]|9|@$K|15|L|16|1|17]]|A|$]]|$1|Q|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|R|$S|$5|T|U|V|A|$W|X]]]]

The following should work:

<pre><code>INQUIRE (DIRECTORY=dir, EXIST=ex [, DIRSPEC=dirspec] [, ERR=label] [, IOSTAT=i-var] )
</code></pre>

I don't have ifort on this machine so I can't test it.

Addendum: The code posted originally works with gfortran. The <code>DIRECTORY</code> statement works with ifort but not with gfortran.

And in case for more information check: <a href="http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/fortran/win/compiler_f/lref_for/source_files/rfinquir.htm#rfinquir" rel="noreferrer">http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/fortran/win/compiler_f/lref_for/source_files/rfinquir.htm#rfinquir</a>

blocks|key|1896981|text|Fortran标准95、2003和2008没有具体说明，查询应该如何对待目录。根据我在Linux下的经验，gfortran将它们视为文件，而ifort则不这样做。目录语句是ifort的一个专有特性，因此应该避免。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1896982|最安全的方法是测试该目录中的文件。|1896983|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

The Fortran standard 95, 2003 and 2008 do not specify, how inquire should treat directories. From my experience under Linux, gfortran treats them as files, ifort does not. The directory statement is a proprietary feature of ifort and should therefore be avoided.

The safest would be to test for a file in the said directory.

blocks|key|1896988|text|下面是我经常使用的一个子例程--它使用您询问的条件：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1896989|subroutine+create_directory(+newDirPath+)
++++!+Author:++Jess+Vriesema
++++!+Date:++++Spring+2011
++++!+Purpose:+Creates+a+directory+at+./newDirPath

++++implicit+none

++++character(len=*),+intent(in)+::+newDirPath
++++character(len=256)+++++++++++::+mkdirCmd
++++logical++++++++++++++++++++++::+dirExists

++++!+Check+if+the+directory+exists+first
!+++inquire(+file=trim(newDirPath)//'/.',+exist=dirExists+)++!+Works+with+gfortran,+but+not+ifort
++++inquire(+directory=newDirPath,+exist=dirExists+)+++++++++!+Works+with+ifort,+but+not+gfortran


++++if+(dirExists)+then
!++++++write+(*,*)+"Directory+already+exists:+'"//trim(newDirPath)//"'"
++++else
++++++++mkdirCmd+=+'mkdir+-p+'//trim(newDirPath)
++++++++write(*,'(a)')+"Creating+new+directory:+'"//trim(mkdirCmd)//"'"
++++++++call+system(+mkdirCmd+)
++++endif
end+subroutine+create_directory|code-block|syntax|javascript|1896990|根据您使用的编译器，您必须决定哪些条件适合您。|1896991|不幸的是，我无法访问nagfor，也不知道它是如何对待目录的。|offset|length|style|CODE|1896992|entityMap^0|0|0|0|A|6|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|T|8|@$K|U|L|V|M|N]]|9|@]|A|$]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

Here's a subroutine I use often -- it uses the conditional you asked about:

<pre><code>subroutine create_directory( newDirPath )
 ! Author: Jess Vriesema
 ! Date: Spring 2011
 ! Purpose: Creates a directory at ./newDirPath

 implicit none

 character(len=*), intent(in) :: newDirPath
 character(len=256) :: mkdirCmd
 logical :: dirExists

 ! Check if the directory exists first
! inquire( file=trim(newDirPath)//'/.', exist=dirExists ) ! Works with gfortran, but not ifort
 inquire( directory=newDirPath, exist=dirExists ) ! Works with ifort, but not gfortran


 if (dirExists) then
! write (*,*) "Directory already exists: '"//trim(newDirPath)//"'"
 else
 mkdirCmd = 'mkdir -p '//trim(newDirPath)
 write(*,'(a)') "Creating new directory: '"//trim(mkdirCmd)//"'"
 call system( mkdirCmd )
 endif
end subroutine create_directory
</code></pre>

Depending on which compiler you use, you'll have to decide which of those conditionals is right for you. 

Unfortunately, I do not have access to <code>nagfor</code> and don't know how it treats directories.

blocks|key|799803|text|我也有同样的问题。如果您想要一种独立于编译器的方法来实现这一点，您可以尝试在目录中打开一个小文件。如果open语句失败，open语句允许代码跳转到特定行(由err=指定)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|799804|!+Tests+whether+the+directory+exists
subroutine+checkdir(dir)
+++++++implicit+none
+++++++character(len=*),+intent(in)+::+dir
+++++++integer+::+unitno

+++++++!+Test+whether+the+directory+exists
+++++++open(newunit=unitno,file=trim(dir)//'deleteme.txt',status='replace',err=1234)
+++++++close+(unitno)
+++++++return

+++++++!+If+doesn't+exist,+end+gracefully
1234+++write(*,*)+'Data+directory,+'//trim(dir)//'+does+not+exist+or+could+not+write+there!'
+++++++STOP

end+subroutine|code-block|syntax|javascript|799805|请注意，这不是万无一失的，因为根据所使用的操作系统，假定"dir“有尾随"/”或"\“。|799806|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

I had the same problem. If you want a compiler independent way of doing this, you can try to open a small file within the directory. The open statement allows for the code to jump to a particular line (specified by err=) if the open statement fails:

<pre><code>! Tests whether the directory exists
subroutine checkdir(dir)
 implicit none
 character(len=*), intent(in) :: dir
 integer :: unitno

 ! Test whether the directory exists
 open(newunit=unitno,file=trim(dir)//'deleteme.txt',status='replace',err=1234)
 close (unitno)
 return

 ! If doesn't exist, end gracefully
1234 write(*,*) 'Data directory, '//trim(dir)//' does not exist or could not write there!'
 STOP

end subroutine
</code></pre>

Note that this is not foolproof, as it is assumed "dir" has the trailing "/" or "\" depending on the OS being used.

blocks|key|1899461|text|另一个不可移植的解决方案是让shell+(在本例中是Bash)执行以下工作：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1899462|call+system('[[+!+-e+docs+]]+&&+mkdir+docs')|code-block|syntax|javascript|1899463|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Another non-portable solution is to let the shell (Bash, in this case) do the work:

<pre><code>call system('[[ ! -e docs ]] &amp;&amp; mkdir docs')
</code></pre>

blocks|key|799852|text|您可以使用C例程来测试文件：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|799853|C端(可以在Win32和Linux32/64上使用ifort和gfortran+)|799854|#include+<stdlib.h>
#include+<stdio.h>
#include+<string.h>
#include+<errno.h>
#include+<sys/stat.h>
#if+defined(_WIN32)+&&+defined(__INTEL_COMPILER)
#++include+"dirent_windows.h"
#else
#++include+<dirent.h>
#endif

void+file_info(const+char*filename,int*mode,int*exist,int*time){
++int+k;
++struct+stat+buf;
++k=stat(filename,&buf);
++if(k+!=+0)+{
++++*mode=0;
++++*exist=0;
++++*time=0;
++}else{
++++*mode=buf.st_mode;
++++if(*mode+==+0)+*exist=0;+else+*exist=1;
++++*time=buf.st_mtime;
++}
}|code-block|syntax|javascript|799855|Fortran侧：|799856|MODULE+file

++USE+iso_c_binding

++INTERFACE
++++SUBROUTINE+file_info(filename,mode,exist,time)+BIND(C,name="file_info")
++++++USE+iso_c_binding
++++++CHARACTER(kind=C_CHAR),INTENT(in)+::+filename(*)
++++++INTEGER(C_INT),INTENT(out)+::+mode,exist,time
++++END+SUBROUTINE
++END+INTERFACE

END+MODULE|799857|如何在Fortran例程中使用：|799858|..
use+file
use+iso_c_binding
...
integer(c_int)+::+mode,exist,time
...
call+file_info("./docs"//char(0),mode,exist,time)|799859|优点:它适用于任何类型的文件，并提供其他信息，如模式(读/写/执行权限)和创建时间。|799860|entityMap^0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|V|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|W|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|X|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|Z|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|10|8|@]|9|@]|A|$G|H]]|$1|Q|3|R|5|6|7|11|8|@]|9|@]|A|$]]|$1|S|3|-4|5|6|7|12|8|@]|9|@]|A|$]]]|T|$]]

You could use C routines to test the files :

C side (OK with ifort and gfortran on Win32 and Linux 32/64)

<pre><code>#include &lt;stdlib.h&gt;
#include &lt;stdio.h&gt;
#include &lt;string.h&gt;
#include &lt;errno.h&gt;
#include &lt;sys/stat.h&gt;
#if defined(_WIN32) &amp;&amp; defined(__INTEL_COMPILER)
# include "dirent_windows.h"
#else
# include &lt;dirent.h&gt;
#endif

void file_info(const char*filename,int*mode,int*exist,int*time){
 int k;
 struct stat buf;
 k=stat(filename,&amp;buf);
 if(k != 0) {
 *mode=0;
 *exist=0;
 *time=0;
 }else{
 *mode=buf.st_mode;
 if(*mode == 0) *exist=0; else *exist=1;
 *time=buf.st_mtime;
 }
}
</code></pre>

Fortran side :

<pre><code>MODULE file

 USE iso_c_binding

 INTERFACE
 SUBROUTINE file_info(filename,mode,exist,time) BIND(C,name="file_info")
 USE iso_c_binding
 CHARACTER(kind=C_CHAR),INTENT(in) :: filename(*)
 INTEGER(C_INT),INTENT(out) :: mode,exist,time
 END SUBROUTINE
 END INTERFACE

END MODULE
</code></pre>

How to use in a Fortran routine :

<pre><code>..
use file
use iso_c_binding
...
integer(c_int) :: mode,exist,time
...
call file_info("./docs"//char(0),mode,exist,time)
</code></pre>

Advantage : it works for any kind of file and provides additional pieces of information like the mode (read/write/execute permission) and the creation time.

I'm trying to verify that a directory exists using Fortan90. On various sites I found:

<pre><code>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
</code></pre>

However, <code>inquire</code> returns <code>False</code> whether or not the directory exists and if I execute this code twice, I get an error message

<blockquote>
 cannot make dir, file already exists
</blockquote>

If I use:

<pre><code>inquire(file='./docs/test', exist=dir_e)
</code></pre>

with an existing file test, <code>inquire</code> returns <code>true</code>.

How can I check for the existence of a directory? I am using ubuntu 11.04 and the ifort compiler.

Test whether a directory exists or not

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

EdgeOne AI 安全实战专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我正在尝试使用Fortan90验证一个目录是否存在。我在不同的网站上发现：logical :: dir_einquire(file='./docs/.', exist=dir_e)if ( dir_e ) then  write(*,*) "dir exists!"else  ! workaround: it call...

问测试目录是否存在
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问测试目录是否存在EN