| 6 | 1/1 | 返回列表 |
| 查看: 824 | 回復(fù): 5 | |||
寶蓮燈木蟲 (小有名氣)
蟲蟲
|
[交流]
【討論】編程求助
|
|
在Linux系統(tǒng)下編譯fortran。想取sufer中g(shù)eo2km-gzdw中的部分數(shù)據(jù),把它加高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 |
至尊木蟲 (職業(yè)作家)
木蟲 (正式寫手)
木蟲 (著名寫手)
未來國家凍涼

新蟲 (初入文壇)
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 初試 317 +3 | 半拉月丙 2026-03-20 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 08工科 320總分 求調(diào)劑 +6 | 梨花珞晚風 2026-03-17 | 6/300 |
|
|
[考研] 307求調(diào)劑 +3 | wyyyqx 2026-03-17 | 3/150 |
|
|
[考研] 一志愿中國石油大學(xué)(華東) 本科齊魯工業(yè)大學(xué) +3 | 石能偉 2026-03-17 | 3/150 |
|
|
[考研] 296求調(diào)劑 +6 | www_q 2026-03-18 | 10/500 |
|
|
[考研] 一志愿華中農(nóng)業(yè)071010,總分320求調(diào)劑 +3 | 困困困困坤坤 2026-03-20 | 3/150 |
|
|
[考研] 一志愿北京化工大學(xué)0703化學(xué)318分,有科研經(jīng)歷,求調(diào)劑 +4 | 一瓶苯甲酸 2026-03-14 | 4/200 |
|
|
[考研] 353求調(diào)劑 +3 | 拉鉤不許變 2026-03-20 | 3/150 |
|
|
[考研] 086500 325 求調(diào)劑 +3 | 領(lǐng)帶小熊 2026-03-19 | 3/150 |
|
|
[考研] 0703化學(xué)調(diào)劑 +4 | 18889395102 2026-03-18 | 4/200 |
|
|
[考研] 一志愿福大288有機化學(xué),求調(diào)劑 +3 | 小木蟲200408204 2026-03-18 | 3/150 |
|
|
[考研] 材料考研調(diào)劑 +3 | xwt。 2026-03-19 | 3/150 |
|
|
[考研] 【同濟軟件】軟件(085405)考研求調(diào)劑 +3 | 2026eternal 2026-03-18 | 3/150 |
|
|
[考研] 312求調(diào)劑 +8 | 陌宸希 2026-03-16 | 9/450 |
|
|
[考研] 308求調(diào)劑 +4 | 是Lupa啊 2026-03-16 | 4/200 |
|
|
[考研] 有沒有道鐵/土木的想調(diào)劑南林,給自己招師弟中~ +3 | TqlXswl 2026-03-16 | 7/350 |
|
|
[考研] 283求調(diào)劑 +3 | 聽風就是雨; 2026-03-16 | 3/150 |
|
|
[考研] 327求調(diào)劑 +6 | 拾光任染 2026-03-15 | 11/550 |
|
|
[考研] 070305求調(diào)劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
[考研] 本科南京大學(xué)一志愿川大藥學(xué)327 +3 | 麥田耕者 2026-03-14 | 3/150 |
|