放弃Compaq Fortran，强烈推荐Simply Fortran编译器

小肥妞

谢谢楼主下来试试

albert007zh

不错，支持一下！

辞觉

在使用simply Fortran批量读取文件中遇到问题，求各位大神指点！原来用CVF里面常用的批量读取命令： res=SYSTEMQQ(CMD)，用simply Fortran报错：can't convert REAL（4）to LOGICAL（4） at 1，上网查了一下SYSTEMQQ命令是CVF封装的，请问用SF怎么实现呢？

普鲁斯特

辞觉 发表于 2017-12-26 19:26
在使用simply Fortran批量读取文件中遇到问题，求各位大神指点！原来用CVF里面常用的批量读取命令： res=SY ...

1. 
   
2. subroutine ListToFile(fPath,outPut)
   
3.   character*(*),InTent(In):: fPath,outPut
   
4.   call system("dir /a-d/b/s "//trim(fPath)//" >"//trim(outPut))
   
5. 
   
6. endsubroutine

复制代码

你试一下，我这边可以读取目录下的所有文件到outPut里了

jqjtzq1234

谢谢楼主分享！@

辞觉

普鲁斯特 发表于 2017-12-27 08:41
你试一下，我这边可以读取目录下的所有文件到outPut里了

谢谢大神的回复，问题已经解决了，还想请教一下读文件的时候判断文件到末尾用的eof函数，在simply fortran中也不能用，请问应该怎么改呢？有没有simply fortran的教程啊？这些问题也想自己解决，但是网上很难搜到解决方法

普鲁斯特

辞觉 发表于 2017-12-28 19:52
谢谢大神的回复，问题已经解决了，还想请教一下读文件的时候判断文件到末尾用的eof函数，在simply fortra ...

在open中加入IOSTAT=stat子句
stat>0   读取发生错误，返回的值表示错误类型；
stat=0    表示读取操作正常；
stat<0    表示读取文件结束。
至于教程，我想说你学好Fortran这门语言就行了，编译器只是工具，你上面提到的函数如果都是依赖于编译器的话，那就尽量不要用吧，
不然换个编译环境就over了。像我在帖子开头写的，fortran类比windows系统，编译器（CVF \SF \IVF）类比于不同的电脑厂商（联想、
华硕、戴尔），你知道windows怎么开机关机怎么操作软件，从联想换到戴尔也一样会用。

辞觉

普鲁斯特 发表于 2017-12-29 09:40
在open中加入IOSTAT=stat子句
stat>0   读取发生错误，返回的值表示错误类型；
stat=0    表示读取操作 ...

太感谢了！原来是这样，看来还要多多学习才行~~~

croton

好棒顶！！！！！！楼主太给力了

chbbits

哇！谢谢分享！