设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 关于批量处理文件后输出结果

返回列表发新帖

查看: 13853|回复: 8

上一主题

下一主题

[文件读写] 关于批量处理文件后输出结果

实名认证

1963 帖子	12 主题	5 精华

臭石头雪球

F 币: 1357 元
贡献: 574 点

发消息

楼主

发表于 2017-2-2 12:46:09 | 显示全部楼层

你忘了 Close 7 和 deallocate(t)

回复支持反对

使用道具举报

实名认证

1963 帖子	12 主题	5 精华

臭石头雪球

F 币: 1357 元
贡献: 574 点

发消息

沙发

发表于 2017-2-2 16:07:51 | 显示全部楼层

write(*,*)"year:"
read(*,*)year
write(*,*)"mon:"
read(*,*)mon
write(*,*)"day:"
read(*,*)day

把这些放到循环外面就可以了。

close(8) 请放到循环外面。

回复支持反对

使用道具举报

实名认证

1963 帖子	12 主题	5 精华

臭石头雪球

F 币: 1357 元
贡献: 574 点

发消息

板凳

发表于 2017-2-3 12:33:35 | 显示全部楼层

假设从 2000 年循环到 2030 年
year = 2000
do k = 1 , 30
year = year + 1
end do

回复支持反对

使用道具举报

返回列表发新帖

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-4 12:11

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表