论坛 › A11：FEPG › Fortran中判断某个文件存在的函数是什么？

独孤 发表于 2009-2-21 10:32:04

Fortran中判断某个文件存在的函数是什么？

判断是否存在某个文件的函数是什么？查询了两日也没有什么收获，哪位高手告知一下？

也就是用fortran实现这句话：
if exist stop del stop

谢谢了！

zhoulon 发表于 2009-2-21 14:04:19

这个语句哪里是fortran的语句呀，这个是dos语句呀。

独孤 发表于 2009-2-23 14:29:00

我是想用fortran语句实现这个DOS语句的功能，也就是判断stop这个文件是否存在，如果存在则删除

zhoulon 发表于 2009-2-23 18:06:14

有没有stop可以设置一个逻辑变量来进行判断，至于能不能删除stop文件不太清楚，至少fortran77好像不可以的，我用的for77，for90和95没有用过，不太清楚。

zhoulon 发表于 2009-2-24 20:18:37

      logical filflg

      inquire(file='stop',exist=filflg)
      if (filflg) then
      open(16,file='stop',form='unformatted',status='delete')
      close(16)
      endif
   这个代码可以完成你说的功能

独孤 发表于 2009-2-25 09:07:49

谢谢总版主。
同时有人告知了另外一种写法，如下。这仅仅是删除文件的代码：
open(11,file="END")
close (11, STATUS = 'DELETE')

来simwe的fepg版块好几个月了，才疏学浅，每次来这里都是提问问题。版主热肠古道，无论什么问题都尽力帮忙，在此赞一下！ 同时希望大家能够发扬版主的精神，活跃FEPG版块的人气！

zhoulon 发表于 2009-2-25 16:11:30

呵呵，谢谢夸奖，希望大家都能将看家本领拿出来与大家一块交流提高。

查看完整版本: Fortran中判断某个文件存在的函数是什么？