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

回复此楼

» 猜你喜欢

请问有评职称，把科研教学业绩算分排序的高校吗已经有6人回复
2025冷门绝学什么时候出结果已经有6人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复

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

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

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

wdxmu

一

发自小木虫IOS客户端

6楼2017-06-20 21:32:29

已阅回复此楼关注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 逐行读入，然后，修改相应的部分，再写入另一个文件中……