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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【讨论】编程求助
61/1返回列表
查看: 820  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

宝莲灯

木虫 (小有名气)

虫虫

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

在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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-08-26 15:10:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
宝莲灯(金币+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的回帖

yscot

木虫 (正式写手)
★ ★
宝莲灯(金币+1):谢谢参与
余泽成(金币+1):谢谢参与应助！ 2010-09-04 22:24:48
宝莲灯(金币+10): 2010-09-06 08:49:22
建议楼主把 sed -n '547,623p' geo2km-gzdw.dat > ab.dat
直接在程序中用fortran语句表达出来
或者程序中直接读入处理后的输入文件

把linux命令直接写到程序里好像执行不了的啊~
赞一下(2人) 回复此楼
3楼2010-09-04 22:09:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

coolrainbow

木虫 (著名写手)

未来国家冻凉
★ ★
宝莲灯(金币+1):谢谢参与
余泽成(金币+1):谢谢参与应助，欢迎常来程序语言版！ 2010-09-05 17:20:44
宝莲灯(金币+10): 2010-09-06 08:49:34
sed是外部程序，不能直接在fortran语言中调用，这个你怎么能不知道呢~~~

如果非要调的话，可以

call system('sed -n '547,623p' geo2km-gzdw.dat > ab.dat')

但会降低程序的可移植性
赞一下(2人) 回复此楼
技术博客：http://hi.baidu.com/coolrainbow/blog
4楼2010-09-05 07:55:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

long777wu

新虫 (初入文坛)
★
宝莲灯(金币+1): 谢谢参与
我也在尝试用sed替换文件中的内容，可是用call system以后还不行。不知道搂着解决问题了吗

发自小木虫IOS客户端
赞一下 回复此楼
5楼2017-06-20 18:14:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wdxmu
一

发自小木虫IOS客户端
6楼2017-06-20 21:32:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 宝莲灯 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703化学调剂 +8 妮妮ninicgb 2026-03-15 12/600 2026-03-19 05:55 by anny19840123
[考研] 354求调剂 +4 Tyoumou 2026-03-18 7/350 2026-03-18 21:45 by Tyoumou
[考研] 一志愿985，本科211，0817化学工程与技术319求调剂 +7 Liwangman 2026-03-15 7/350 2026-03-18 20:08 by walc
[考研] 【同济软件】软件（085405）考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +7 步川酷紫123 2026-03-13 7/350 2026-03-18 17:12 by 尽舜尧1
[考研] 材料，纺织，生物（0856、0710），化学招生啦 +3 Eember. 2026-03-17 9/450 2026-03-18 10:28 by Eember.
[考研] 307求调剂 +3 冷笙123 2026-03-17 3/150 2026-03-18 09:55 by macy2011
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 考研求调剂 +3 橘颂. 2026-03-17 4/200 2026-03-17 21:43 by 有只狸奴
[考研] 268求调剂 +8 一定有学上- 2026-03-14 9/450 2026-03-17 17:47 by laoshidan
[考研] 一志愿南京大学，080500材料科学与工程，调剂 +4 Jy? 2026-03-16 4/200 2026-03-17 11:02 by gaoqiong
[基金申请] 今年的国基金是打分制吗？ 50+3 zhanghaozhu 2026-03-14 3/150 2026-03-16 17:07 by 北京莱茵润色
[考研] 318求调剂 +3 Yanyali 2026-03-15 3/150 2026-03-16 16:41 by houyaoxu
[考研] 22408总分284求调剂 +3 InAspic 2026-03-13 3/150 2026-03-15 11:10 by zhq0425
[考研] 294求调剂 +3 Zys010410@ 2026-03-13 4/200 2026-03-15 10:59 by zhq0425
[考研] 招收0805（材料）调剂 +3 18595523086 2026-03-13 3/150 2026-03-14 00:33 by 123%、
[考研] 311求调剂 +3 冬十三 2026-03-13 3/150 2026-03-13 20:41 by JourneyLucky
[考研] 考研调剂 +4 芬达46 2026-03-12 4/200 2026-03-13 16:04 by ruiyingmiao
[论文投稿] 投稿问题 5+4 星光灿烂xt 2026-03-12 6/300 2026-03-13 14:17 by god_tian
[考研] 070303一志愿西北大学学硕310找调剂 +3 d如愿上岸 2026-03-13 3/150 2026-03-13 10:43 by houyaoxu
信息提示
关闭
请填处理意见
关闭