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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 新手！！FORTRAN求助，从一文件中读取坐标，然后赋值！！！！！
51/1返回列表
查看: 1771  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 297工科，求调剂? +13 河南农业大学-能 2026-04-12 13/650 2026-04-13 14:12 by dingyanbo1
[考研] 2026硕士调剂_能动_河南农业大学 +3 河南农业大学-能 2026-04-12 3/150 2026-04-13 12:44 by 木鱼.
[考研] 271求调剂 +23 2261744733 2026-04-11 23/1150 2026-04-13 08:48 by 学zh
[考研] 一志愿0807 数一英一 313 有没有二轮调剂 +12 emokidd 2026-04-08 13/650 2026-04-13 08:32 by lhj2009
[考研] 290调剂生物0860 +28 哇哈哈，。 2026-04-11 31/1550 2026-04-13 01:16 by 幸免 ..
[考研] 一志愿中南大学 0855 机械 286 求调剂 +10 不会吃肉 2026-04-12 10/500 2026-04-12 22:51 by 零零二
[考研] 一志愿华中农微生物，288分，三年实验经历 +11 代fish 2026-04-09 11/550 2026-04-12 10:21 by Hayaay
[考研] 材料工程日语考生求调剂 +7 0856?调剂 2026-04-10 7/350 2026-04-11 21:33 by 蓝云思雨
[考研] 283求调剂 086004考英二数二 +17 那个噜子 2026-04-10 18/900 2026-04-11 16:27 by 明月此时有
[考研] 求调剂，一志愿大连理工大学354分 +5 雨声余生 2026-04-11 6/300 2026-04-11 16:12 by 雨声余生
[考研] 求调剂 +3 胃痉挛累了 2026-04-11 5/250 2026-04-11 14:13 by luhong1990
[考研] 085600材料与化工329分求调剂 +16 叶zilin 2026-04-10 16/800 2026-04-11 11:04 by may_新宇
[考研] 265求调剂 +12 风说她早忘了 2026-04-10 13/650 2026-04-10 18:56 by chemisry
[考研] 本9 一志愿西工大085601 324求调剂 +5 wysyjs25 2026-04-10 5/250 2026-04-10 16:57 by luoyongfeng
[考研] 0702物理学学硕299求调剂 +6 祁柒连 2026-04-06 6/300 2026-04-10 11:10 by Roomoo
[考研] 274求调剂 +5 山阿蔓 2026-04-07 5/250 2026-04-09 15:28 by 18828373951
[考研] 270求调剂 +3 031127 2026-04-06 4/200 2026-04-08 21:00 by 逆水乘风
[考研] 275 求调剂 +8 Lei812514 2026-04-07 8/400 2026-04-08 12:46 by chemisry
[考研] 318求调剂 +5 李青山山山 2026-04-07 5/250 2026-04-07 18:24 by 蓝云思雨
[考研] 22408 331分求调剂 +4 y__1 2026-04-06 4/200 2026-04-06 17:26 by 土木硕士招生
信息提示
关闭
请填处理意见
关闭