Fortran读取文本出错

stcya

read默认read一次然后自动过行了，把do j=1，13  enddo去掉，换成read(7,"(13f8.1)") (a(j),j=1,13) 试试看

向着光亮那方

stcya 发表于 2018-1-4 15:33
read默认read一次然后自动过行了，把do j=1，13  enddo去掉，换成read(7,"(13f8.1)") (a(j),j=1,13) 试试看

非常感谢啊，读出来了，可是读出来的数据不对啊，你看看我发的图

stcya

原本的数据不是很整齐，你试下read的时候不要加格式，然后write的时候再加格式…

向着光亮那方

stcya 发表于 2018-1-4 16:16
原本的数据不是很整齐，你试下read的时候不要加格式，然后write的时候再加格式…

好像不行，因为定义了浮点的数组，它就报错了，这个为什么读的数据还不对，但是读了13个数，数据大部分变了

stcya

向着光亮那方 发表于 2018-1-4 18:54
好像不行，因为定义了浮点的数组，它就报错了，这个为什么读的数据还不对，但是读了13个数，数据大部分变 ...

要不你把这个文件发给我试试，简单目测了下，可能因为加了格式后它是固定8格的读，所以造成了有些数据错位了。

nuister

你自己定义保留一位小数，当然就是这样。把格式改为*啊。。。。。。。。。。。

向着光亮那方

nuister 发表于 2018-1-6 19:25
你自己定义保留一位小数，当然就是这样。把格式改为*啊。。。。。。。。。。。

改成自由格式的*直接就end of file 了，已经试过了，怎么回事

向着光亮那方

stcya 发表于 2018-1-6 12:46
要不你把这个文件发给我试试，简单目测了下，可能因为加了格式后它是固定8格的读，所以造成了有些数据错 ...

好的，你的QQ是多少，我加上发给你你试试

乱世一杯茶

你每次内圈循环把文件打开一次，写入一次，导致文件每次循环结束以后只留下该次循环写入的那一个数据！！

aridlhy

认真学fortran啊，理解编程的本质，不同编程语言都是差不多的