| 查看: 834 | 回复: 5 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
宝莲灯木虫 (小有名气)
虫虫
|
[交流]
【讨论】编程求助
|
||
|
在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 |
回复此楼» 猜你喜欢
一志愿北京化工大学材料与化工（085600）296求调剂
已经有23人回复
-
08工科，295，接受跨专业调剂
已经有3人回复
-
材料学硕333求调剂
已经有12人回复
-
334分 一志愿武理 材料求调剂
已经有16人回复
-
0703化学321分求调剂
已经有9人回复
-
材料专硕 085600求调剂
已经有7人回复
-
297求调剂
已经有15人回复
-
11408总分309，一志愿东南大学求调剂，不挑专业
已经有5人回复
-
求调剂
已经有9人回复
-
化工专硕求调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助Fortran编程
已经有8人回复
- 求助matlab编程
已经有13人回复
- 【求助】有关“SW0PC_FXGP编程软件”的介绍
已经有1人回复
- 【求助】有没有会编程的兄弟给帮下忙
已经有4人回复
- 【求助】关于编程的一个问题
已经有4人回复
- 【求助】蒙卡编程问题
已经有15人回复
- 【求助】小町算编程【已完成】
已经有15人回复
yscot
木虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1803.2
- 红花: 1
- 帖子: 521
- 在线: 68.6小时
- 虫号: 968898
- 注册: 2010-03-12
- 专业: 生物大分子结构与功能
3楼2010-09-04 22:09:48
