Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 用fortran读取txt文件，只要txt文件里有回车，就会运行 ...

用fortran读取txt文件，只要txt文件里有回车，就会运行失败

查看数: 10869 | 评论数: 5 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

wsnqs

发布时间: 2021-7-2 22:36

正文摘要:

代码如下 DO nSource=1,SourceNumber(1) READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1),SourcePositionOfMain(nSource,2),SourcePositionOfMain(nSource,3),SourcePo ...

fcode 发表于 2021-7-9 08:38:58

从你给的信息看不出问题来。
你可以把代码缩减，比如仅提取读取该文件的部分，让代码尽可能简短，且能重现问题。

然后，把简短的全部代码给出来，文件传上来。以便他人分析。
（你可以点下方的大橘色按钮“回复”，或者快捷回复框右上角的“高级模式”，来上传附件。普通快捷回复无法上传。）

wsnqs 发表于 2021-7-8 22:16:02

fcode 发表于 2021-7-6 19:10
这张图里，第一行的内容，也是文件的内容吗？
SourcePositionOfMain(SUM(SourceNumber(1:3))+1:SUM(Sourc ...

有的
READ(UNIT=10,FMT="(A200)") ParemeterCardTemp
DO nSource=1,SourceNumber(1)
READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1),SourcePositionOfMain(nSource,2),SourcePositionOfMain(nSource,3),SourcePositionOfMain(nSource,4),SourcePositionOfMain(nSource,5),SourcePositionOfMain(nSource,6)
END DO
READ(UNIT=10,FMT="(A200)") ParemeterCardTemp
前后都有，因为我是在unix系统并行机上计算的，所以我在怀疑是不是并行机的系统的问题

fcode 发表于 2021-7-6 19:10:52

这张图里，第一行的内容，也是文件的内容吗？
SourcePositionOfMain(SUM(SourceNumber(1:3))+1:SUM(SourceNumber(1:4)),6)

如果是，你的代码里，是否有语句读取或跳过这一行？

wsnqs 发表于 2021-7-5 23:04:37

fcode 发表于 2021-7-4 09:47
DO nSource=1,SourceNumber(1)
READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1),SourcePosit ...

txt文件内容我已经贴出来了，就在上面主贴，我不会在回复里贴图

，回复贴图要用链接，麻烦您看一眼主楼

fcode 发表于 2021-7-4 09:47:08

DO nSource=1,SourceNumber(1)
READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1),SourcePositionOfMain(nSource,2),SourcePositionOfMain(nSource,3),SourcePositionOfMain(nSource,4),SourcePositionOfMain(nSource,5),SourcePositionOfMain(nSource,6)
END DO

可简写为
DO nSource=1,SourceNumber(1)
READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1:6)
END DO

请给出你的 txt 的文件内容。