应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 新手！！FORTRAN求助，从一文件中读取坐标，然后赋值！！！！！
51/1返回列表
查看: 1954  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

小小糊涂虫

新虫 (小有名气)

[求助] 新手！！FORTRAN求助，从一文件中读取坐标，然后赋值！！！！！ 已有1人参与

各位高人求帮忙，！！

   本人想从1.dat 文件中读取坐标信息，然后赋予每个坐标固定值（假设Z=0），最后吧结果输出在2.dat中
   1.dat 中坐标信息(两列数据)   -------------------------------------期望的目标文件   2.dat      

             楼主期望的是读取后再赋值，拜托各位了  
   
    1  1                                                                                                 1    1    0
    1  2                                                                                                 1   2     0
    1  3                                                                                                 1    3    0
    2  1                                                                                                 2     1   0
    2  2                                         →→→→→→                                  2     2   0
    2  3                                                                                                 2   3     0
   3   1                                                                                                 3    1    0                                                                    
   3   2                                                                                                 3   2     0
   3   3                                                                                                  3   3    0
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-04-13 14:32:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小小糊涂虫

新虫 (小有名气)
2楼2015-04-14 21:44:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
小小糊涂虫: 金币+20, ★★★★★最佳答案, 刚接触FORTRAN语言，还望多多应助。 多谢！ 2015-04-15 14:08:00
open(1, file='1.dat')
open(2, file='2.dat')
z=0
do i=1,xx
read(1, *) j, k
write(2, *) j, k ,z
end do

end
赞一下(1人) 回复此楼
3楼2015-04-15 00:42:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pugongyingi

银虫 (小有名气)
引用回帖:
3楼: Originally posted by jerkwin at 2015-04-15 00:42:46
open(1, file='1.dat')
open(2, file='2.dat')
z=0
do i=1,xx
read(1, *) j, k
write(2, *) j, k ,z
end do

end

尝试了用这个程序生成两个相应的dat文件，但dat2没有输出。
疑惑：z=0-未经声明时z会默认为数组输出么？
do i=1,xx -i和xx未经声明，那么系统如何识别呢？
所以，dat2无输出是因为系统无法识别命令么？
如果是，那么要如何声明dat1的大小呢？（我是想定义i=size('1.dat')）
嘿嘿，问题有点多O(∩_∩)O
赞一下 回复此楼
成人，成事。胆大，心细，脸皮厚。
4楼2015-04-16 09:33:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)
引用回帖:
4楼: Originally posted by pugongyingi at 2015-04-16 09:33:53
尝试了用这个程序生成两个相应的dat文件，但dat2没有输出。
疑惑：z=0-未经声明时z会默认为数组输出么？
do i=1,xx -i和xx未经声明，那么系统如何识别呢？
所以，dat2无输出是因为系统无法识别命令么？
如果是 ...

我的程序只是示例, 告诉你怎么写, 不是完整的程序
xx那是代表你的行数, 你应该能看出这点吧
你没对xx赋值, 自然没有输出
赞一下 回复此楼
5楼2015-04-16 09:45:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 小小糊涂虫 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 YHiw1gou1Eda 2026-11-10 7/350 2026-11-14 22:44 by Equinoxhua
[论文投稿] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 SX5mJmPWDfOO 2026-11-13 3/150 2026-11-14 13:46 by KXypaGgBBlw7
[论文投稿] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 uKOSCocCb6Fm 2026-11-12 9/450 2026-11-14 08:04 by dHydBGAkDh6v
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 gRND4NVAZ8VG 2026-11-11 5/250 2026-11-13 11:15 by Equinoxhua
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +5 C6CRn66RYYXS 2026-11-10 9/450 2026-11-13 11:02 by Equinoxhua
[基金申请] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +6 C6CRn66RYYXS 2026-11-10 7/350 2026-11-13 10:55 by Equinoxhua
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:51 by ECLTXnJnRSXf
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:51 by ECLTXnJnRSXf
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +4 cdqGD6ftHmbl 2026-11-11 5/250 2026-11-12 12:28 by ECLTXnJnRSXf
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 Z7qfCsdIiD1T 2026-11-10 5/250 2026-11-12 11:25 by HajghKOMynmz
[考研] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +5 Z7qfCsdIiD1T 2026-11-10 8/400 2026-11-12 11:22 by HajghKOMynmz
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 czAiolzR0IJC 2026-11-10 8/400 2026-11-12 11:11 by HajghKOMynmz
[基金申请] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +5 G2rhSvqvhNzl 2026-11-10 7/350 2026-11-12 10:49 by HajghKOMynmz
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 G2rhSvqvhNzl 2026-11-10 5/250 2026-11-12 10:49 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 G2rhSvqvhNzl 2026-11-10 6/300 2026-11-12 10:38 by HajghKOMynmz
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +7 0TEMgxdT1eIw 2026-11-09 9/450 2026-11-12 09:24 by HajghKOMynmz
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:30 by 9fOTqj074tIg
[考研] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 cqv1zKnzd7hr 2026-11-09 8/400 2026-11-12 05:08 by 9fOTqj074tIg
[教师之家] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +6 0TEMgxdT1eIw 2026-11-09 8/400 2026-11-12 05:00 by 9fOTqj074tIg
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 Z7qfCsdIiD1T 2026-11-10 4/200 2026-11-12 02:23 by 9fOTqj074tIg
信息提示
关闭
请填处理意见
关闭