fortran inquire函数问题，各位前辈好，求助求助

奔奔 · 发表于 2016-9-8 16:14:10

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

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

x

本帖最后由奔奔于 2016-9-8 16:19 编辑

用inquire判断文件是否存在，写了个小程序，
program test
implicit none
real::tmp
logical::alive
character(len=20)::F1
F1='E:\data\tm2\'
inquire(file=trim(adjustl(F1))//'15040820.000',exist=alive)
print*,TRIM(ADJUSTL(F1))//'15040820.000'
print*,alive
pause
end program

这样写，结果返回F，但是如果直接把F1的内容粘贴到file里面，
inquire(file='E:\data\tm2\15040820.000',exist=alive)

返回值为T，为什么呢，好抓狂。。。。

lqouc · 发表于 2016-9-8 21:22:00

如果这个文件不存在的话，我这里是都是F。
程序应该是两种写法都可以的。

奔奔 · 发表于 2016-9-9 07:59:14

lqouc 发表于 2016-9-8 21:22
如果这个文件不存在的话，我这里是都是F。
程序应该是两种写法都可以的。

可是我的文件是存在的呢？所以觉得好奇怪。。。

lqouc · 发表于 2016-9-9 10:03:35

额，如果文件存在的话，我这里第一种写法还是没问题。。。。。

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

[求助] fortran inquire函数问题，各位前辈好，求助求助

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