苦思无果，前来求助，关于调用系统CD命令的返回值问题

小二 · 发表于 2014-11-7 10:37:55

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

程序如下，想不明白为什么，abcd文件夹不存在的时候，逻辑值返回的是T呢？为什么不是F呢

program abc
use DFPORT
implicit none
character*20 infile1,infile2,infile3
logical istatus1,istatus2

infile2='C:\abcd'
   infile1='MD '//trim(infile2)
   infile3='CD '//trim(infile2)
   istatus1=system(infile3)

   print*,istatus1

end program

Mid_Farmer · 发表于 2014-11-7 11:29:33

在没有abcd文件夹的时候 system（infile3）运行不成功逻辑返回值是0 在fortran里的逻辑变量就认为是T
当存在abcd时运行成功逻辑返回值是1 在fortran里就变成F了

小二 · 发表于 2014-11-7 18:02:41

Mid_Farmer 发表于 2014-11-7 11:29
在没有abcd文件夹的时候 system（infile3）运行不成功逻辑返回值是0 在fortran里的逻辑变量就认为是T
当 ...

谢啦。明白了

		自动登录	找回密码
密码			立即注册

[求助] 苦思无果，前来求助，关于调用系统CD命令的返回值问题

登录后查看更多精彩内容~