| 6 | 1/1 | 返回列表 |
| 查看: 825 | 回復: 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ā)表 | |
|---|---|---|---|---|
|
[考研] 資源與環(huán)境 調(diào)劑申請(333分) +5 | holy J 2026-03-21 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 考研調(diào)劑 +3 | 呼呼?~+123456 2026-03-21 | 3/150 |
|
|
[考研] 26考研一志愿中國石油大學(華東)305分求調(diào)劑 +6 | 嘉年新程 2026-03-15 | 6/300 |
|
|
[考研] 279求調(diào)劑 +5 | 紅衣隱官 2026-03-21 | 5/250 |
|
|
[考研] 08工科 320總分 求調(diào)劑 +6 | 梨花珞晚風 2026-03-17 | 6/300 |
|
|
[考研] 265求調(diào)劑 +3 | Jack?k?y 2026-03-17 | 3/150 |
|
|
[考研] 材料專業(yè)求調(diào)劑 +6 | hanamiko 2026-03-18 | 6/300 |
|
|
[考研] 323求調(diào)劑 +3 | 洼小桶 2026-03-18 | 3/150 |
|
|
[考研] 一志愿武漢理工材料工程專碩調(diào)劑 +9 | Doleres 2026-03-19 | 9/450 |
|
|
[考研] 287求調(diào)劑 +7 | 晨昏線與星海 2026-03-19 | 8/400 |
|
|
[考研] 生物學調(diào)劑招人。! +3 | 山海天嵐 2026-03-17 | 4/200 |
|
|
[考研] 0703化學調(diào)劑 +4 | 18889395102 2026-03-18 | 4/200 |
|
|
[考研] 085601材料工程專碩求調(diào)劑 +10 | 慕寒mio 2026-03-16 | 10/500 |
|
|
[考研] 085600材料與化工調(diào)劑 324分 +10 | llllkkkhh 2026-03-18 | 12/600 |
|
|
[考研] 085600材料與化工求調(diào)劑 +6 | 緒幸與子 2026-03-17 | 6/300 |
|
|
[考研] 293求調(diào)劑 +11 | zjl的號 2026-03-16 | 16/800 |
|
|
[考博] 26博士申請 +3 | 1042136743 2026-03-17 | 3/150 |
|
|
[考研] 材料工程專碩274一志愿211求調(diào)劑 +6 | 薛云鵬 2026-03-15 | 6/300 |
|
|
[考研] 283求調(diào)劑 +3 | 聽風就是雨; 2026-03-16 | 3/150 |
|
|
[考研] [導師推薦]西南科技大學國防/材料導師推薦 +3 | 尖角小荷 2026-03-16 | 6/300 |
|