大家帮我看条隐循环语句

qs2017

WRITE（NLB,REC=1) LREC,(-1,I=1,LREC-1)
其中NLB是指一个二进制文件，里面包含的隐do循环是什么啊？

qs2017

pasuka 发表于 2017-11-16 12:00
参考中科的网上教程
http://micro.ustc.edu.cn/Fortran/ZJDing/Sec3-1.htm#第3_1_2f

您好，我的这条语句一直出错，您能帮我看一下吗
OPEN(NASC,FILE=ASCLIB,STATUS='UNKNOWN',ACCESS='DIRECT'
                      FORM='FORMATTED',RECL=LRFC*LREC)
WRITE(NASC,REC=1) LREC,(-1,LREC=-1)
NASC是文件号，LRFC和LREC都是之前定义好的数

qs2017

vvt 发表于 2017-11-16 12:14
你在主楼写的是
WRITE(NLB,REC=1) LREC,(-1,I=1,LREC-1)
上一楼你写的是

那么第二种应该怎么改啊才行啊

qs2017

vvt 发表于 2017-11-16 12:14
你在主楼写的是
WRITE(NLB,REC=1) LREC,(-1,I=1,LREC-1)
上一楼你写的是

第一种写法我现在可以理解，第一种写法文件是个二进制文件，我想自己打开一个文本文件然后有同样的效果

qs2017

vvt 发表于 2017-11-16 12:21
第二个看你要做什么了。

我就想达到和第一种一样的效果，往文件里写入一样的东西

qs2017

vvt 发表于 2017-11-16 12:25
写入文本文件的话，这样写
WRITE(NLB,*) LREC,(-1,I=1,LREC-1)

您是说我文本文件NASC写成
WRITE(NASC,*) LREC,(-1,I=1,LREC-1)吗？
我刚试过这个还是断了啊

qs2017

vvt 发表于 2017-11-16 12:35
是的。这样写。
程序断了有很多种可能。仅仅根据一句代码没法知道原因。

嗯我明白您的意思，只不过这几条语句感觉只关于文件打开和写入语句啊。中间例如LREC这种值也没变过

qs2017

嗯。。。。。

qs2017

pasuka 发表于 2017-11-16 13:00
还是同一个网上教程
http://micro.ustc.edu.cn/Fortran/ZJDing/Sec7-2.htm#第7_2_3e

我看了您给的文档可还是有很多问题不太了解，您方便交流下吗