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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 新手！！FORTRAN求助，从一文件中读取坐标，然后赋值！！！！！
汕头大学海洋科学接受调剂
51/1返回列表
查看: 1781  |  回复: 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的回帖

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的回帖
查看全部 5 个回答

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的回帖

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的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂推荐 +4 小聂爱学习 2026-04-14 4/200 2026-04-14 20:54 by fqwang
[考研] 291 求调剂 +36 化工2026届毕业� 2026-04-09 37/1850 2026-04-14 17:56 by lhj2009
[考研] 一志愿中国科学院上海有机所，有机化学356分找调剂 +12 Nadiums 2026-04-09 13/650 2026-04-14 17:54 by lhj2009
[考研] 0854调剂 +11 长弓傲 2026-04-12 14/700 2026-04-14 16:07 by 逆水乘风
[考研] 求调剂 +16 雪逢冬 2026-04-10 16/800 2026-04-14 14:27 by 逆水乘风
[考研] 305求调剂 +8 玛卡巴卡boom 2026-04-11 8/400 2026-04-14 09:04 by pengliang8036
[考研] 297工科，求调剂? +13 河南农业大学-能 2026-04-12 13/650 2026-04-13 14:12 by dingyanbo1
[考研] 0831生医工第一轮调剂失败求助 +12 小熊睿睿_s 2026-04-11 16/800 2026-04-12 16:28 by 钰璞
[考研] 339求调剂 +8 hanwudada 2026-04-11 9/450 2026-04-12 15:36 by laoshidan
[考研] 电气专硕320求调剂 +6 小麻子111 2026-04-10 6/300 2026-04-12 10:54 by lemon6009
[考研] 299求调剂 +8 ZVVZ13 2026-04-08 8/400 2026-04-12 00:40 by 蓝云思雨
[考研] 22408调剂315分 +3 zhuangyan123 2026-04-09 3/150 2026-04-12 00:25 by 蓝云思雨
[考研] 药学专硕调剂 +8 ? 一路生?花? 2026-04-10 10/500 2026-04-11 21:21 by zhouxiaoyu
[考研] 283求调剂 +22 那个噜子 2026-04-09 22/1100 2026-04-11 10:41 by 逆水乘风
[考研] 22408调剂求助 +7 毂12 2026-04-09 9/450 2026-04-11 09:23 by 哦哦123
[考研] 调剂 +12 卷卷卷心菜_ 2026-04-09 13/650 2026-04-10 22:36 by Ftglcn90
[考研] 22408 366分，本科211，一志愿西工大 +4 Rubt 2026-04-09 4/200 2026-04-10 19:51 by chemisry
[考研] 一志愿中科大070300化学，314分求调剂 +12 wakeluofu 2026-04-09 12/600 2026-04-10 09:57 by liuhuiying09
[考研] 求调剂 +3 猪肉墩粉条cc 2026-04-08 4/200 2026-04-09 10:05 by 猪肉墩粉条cc
[考研] 电子信息346 +4 zuoshaodian 2026-04-08 4/200 2026-04-08 11:54 by zzucheup
信息提示
关闭
请填处理意见
关闭