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

24小时热门版块排行榜    

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

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 个回答

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的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 22408 312求调剂 +16 门路摸摸 2026-04-14 17/850 2026-04-14 23:59 by Xurambo2014
[考研] 290调剂生物0860 +35 哇哈哈，。 2026-04-11 41/2050 2026-04-14 23:47 by Xurambo2014
[考研] 本科211，报考085601-310分 +16 ararak 2026-04-13 16/800 2026-04-14 14:55 by Delta2012
[考研] 085404 298分求调剂 +11 呼啦呼啦呼呼呼 2026-04-10 12/600 2026-04-14 08:38 by wfj257
[考研] 22408 352分求调剂 +5 努力的夏末 2026-04-09 5/250 2026-04-12 19:17 by wj165256
[考研] 求调剂 +16 张番茄不炒蛋 2026-04-10 17/850 2026-04-12 13:58 by 熬夜成！
[考研] 求调剂，262机械专硕 +8 嗯yyl 2026-04-08 8/400 2026-04-12 02:31 by 秋豆菜芽
[考研] 一志愿郑州大学 22408 305分求调剂 +5 安小满zzz 2026-04-08 5/250 2026-04-12 00:41 by 蓝云思雨
[考研] 280求调剂 +13 wzzz王 2026-04-09 13/650 2026-04-12 00:31 by 勇攀高峰0126
[考研] 化工调剂求导师收留！一志愿失利，踏实肯干，有植物提取科研经历 +20 yzyzx 2026-04-09 21/1050 2026-04-12 00:12 by 小小小小啦啦啦
[考研] 一志愿厦大0856，306求调剂 +15 Bblinging 2026-04-11 15/750 2026-04-11 22:53 by 314126402
[考研] 调剂求助 +6 果然有我 2026-04-11 7/350 2026-04-11 16:22 by 明月此时有
[考研] 087100初试311求调剂 +4 任雅琴 2026-04-09 4/200 2026-04-11 10:33 by zhq0425
[考研] 农业管理302分求调剂 +3 xuening1 2026-04-10 3/150 2026-04-11 10:18 by zhq0425
[考研] 22408 352分求调剂0854类 +4 努力的夏末 2026-04-09 4/200 2026-04-11 09:57 by zhq0425
[考研] 一志愿东北大学控制工程085406数二英二385，求调剂 +8 Ezra_Zhang 2026-04-09 8/400 2026-04-11 09:15 by 猪会飞
[考研] 346，工科0854求调剂，专硕 +7 moser233 2026-04-10 8/400 2026-04-11 08:52 by 猪会飞
[考研] 调剂 +12 卷卷卷心菜_ 2026-04-09 13/650 2026-04-10 22:36 by Ftglcn90
[考研] 计算机类求调剂，22408-274分 +7 上岸de小虫 2026-04-09 8/400 2026-04-10 19:56 by fxue1114
[考研] 286求调剂 +19 Faune 2026-04-08 20/1000 2026-04-09 08:36 by 哦哦123
信息提示
关闭
请填处理意见
关闭