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年遐想已经有4人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复
自然科学基金委宣布启动申请书“瘦身提质”行动已经有4人回复
求个博导看看已经有18人回复

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

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

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

相关版块跳转我要订阅楼主宝莲灯的主题更新

返回列表