24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

宝莲灯

木虫 (小有名气)

虫虫

应助: 4 (幼儿园)
金币: 2714.4
散金: 1425
帖子: 138
在线: 178.3小时
虫号: 387463
注册: 2007-05-30
性别: GG
专业: 能源化工

[交流] 【讨论】编程求助

在Linux系统下编译fortran。想取sufer中geo2km-gzdw中的部分数据，把它加高20米，然后再放回到geo2km-gzdw文件中原来的位置。该怎么做？
   我编的程序如下：
               dimension a(100,100)
               sed -n '547,623p' geo2km-gzdw.dat > ab.dat *这句话有问题，下面的都运行过，没有问题*
               open (10,file='ab.adt')
               do j=1,76
               read (10,*) (a(i,j),i=1,66)
               do i=1,66
               if (i.ge.23.and.i.le.32.and.j.gz.32.and.j.le.42) then
   20       format(10f20.9)
               a(i,j)=a(i,j)+20
               endif
               end do
               end do
               do j=1,76
               write(*,30) a(i,j),i=1,66)
   30       format(66F20.9)
               end do
                  close(10)
                  stop
                  end

回复此楼

» 猜你喜欢

上海工程技术大学张培磊教授团队招收博士生已经有3人回复
上海工程技术大学【激光智能制造】课题组招收硕士已经有5人回复
求助院士们，这个如何合成呀已经有4人回复
临港实验室与上科大联培博士招生1名已经有9人回复
想换工作。大多数高校都是评职称时认可5年内在原单位取得的成果吗？已经有7人回复
需要合成515-64-0，50g，能接单的留言已经有4人回复
自荐读博已经有4人回复
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？已经有6人回复
带资进组求博导收留已经有10人回复
最近几年招的学生写论文不引自己组发的文章已经有11人回复

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2010-08-26 15:10:15

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

long777wu

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 5.3
帖子: 1
在线: 3小时
虫号: 1496838
注册: 2011-11-17
专业: 流体力学

★
宝莲灯(金币+1): 谢谢参与

我也在尝试用sed替换文件中的内容，可是用call system以后还不行。不知道搂着解决问题了吗

发自小木虫IOS客户端

赞一下

回复此楼

5楼2017-06-20 18:14:38

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 6 个回答

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

★ ★
宝莲灯(金币+1):谢谢参与
余泽成(金币+1):谢谢参与应助！ 2010-08-26 21:13:25
宝莲灯(金币+10): 2010-08-28 07:51:58

sed -n '547,623p' geo2km-gzdw.dat > ab.dat
这是外部程序，不能放在 Fortran 中使用……

很难将 geo2km-gzdw 中的数据取出，然后再写入（似乎新的 fortran 标准允许，但我不确定）。除非你将geo2km-gzdw 逐行读入，然后，修改相应的部分，再写入另一个文件中……

赞一下(2人)

回复此楼

2楼2010-08-26 20:28:37

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖