24小时热门版块排行榜

>论坛更新日志 (4129)
>文献求助 (531)
>虫友互识 (357)
>导师招生 (351)
>休闲灌水 (138)
>考博 (116)
>硕博家园 (109)
>博后之家 (108)
>论文投稿 (105)
>基金申请 (80)
>公派出国 (78)
>考研 (75)
>招聘信息布告栏 (69)
>教师之家 (53)
>论文道贺祈福 (51)
>找工作 (48)

返回列表

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

宝莲灯

木虫 (小有名气)

虫虫

应助: 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

回复此楼