| 24小時(shí)熱門(mén)版塊排行榜 |
| 5 | 1/1 | 返回列表 |
| 查看: 1338 | 回復(fù): 7 | ||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | ||
tiantian2921新蟲(chóng) (小有名氣)
|
[求助]
文件行數(shù)固定(100),列數(shù)不固定,怎么用fortran讀取文件? 已有1人參與
|
|
|
想要用二維數(shù)組vn(i,j)i表示數(shù)據(jù)所在行數(shù),j表示所在列數(shù)。這些信息需要。 應(yīng)該怎么編程實(shí)現(xiàn)? |
新蟲(chóng) (小有名氣)
鐵桿木蟲(chóng) (著名寫(xiě)手)
工程和科學(xué)數(shù)值計(jì)算咨詢
|
我做了一個(gè)sample文件(10行),你可以很容易改成任意行而不失一般性,姑且叫做 test.dat 1.0 1.0 2.0 1.0 2.0 3.0 1.0 2.0 3.0 4.0 1.0 2.0 3.0 4.0 5.0 1.0 2.0 3.0 4.0 5.0 6.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 Fortran code如下 subroutine TestRead implicit none integer,parameter :: n=20,m=10 integer :: i,j real*8, dimension(m,n) :: vn open(22,file='test.dat') do i=1,m print*,' i=',i read(22,4,advance='yes',eor=2) (vn(i,j),j=1,n) 2 continue end do close(22) do i=1,m print"(<n> f10.5)", (vn(i,j),j=1,n) end do 4 format( <n> f4.2) end subroutine TestRead 你可以適當(dāng)修改參數(shù),以適應(yīng)你的需求。不知道這是否是你要的 |
新蟲(chóng) (小有名氣)
新蟲(chóng) (小有名氣)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 材料求調(diào)劑 +8 | 呢呢妮妮 2026-04-01 | 10/500 |
|
|---|---|---|---|---|
|
[考研] 0703化學(xué)338求調(diào)劑! +8 | Zuhui0306 2026-03-26 | 9/450 |
|
|
[考研] 求調(diào)劑推薦 材料 304 +21 | 荷包蛋hyj 2026-03-26 | 21/1050 |
|
|
[考研] 求調(diào)劑 +4 | DADA怪 2026-03-31 | 4/200 |
|
|
[考研] 一志愿華南師范361分,化學(xué)求調(diào)劑 +4 | Nicole88888 2026-04-01 | 4/200 |
|
|
[考研] 求0861交通運(yùn)輸專(zhuān)碩or材料專(zhuān)碩調(diào)劑 +4 | 勒布朗@ 2026-03-31 | 4/200 |
|
|
[考研] 289求調(diào)劑 +7 | BrightLL 2026-03-29 | 7/350 |
|
|
[考研] 一志愿北京科技大學(xué)材料學(xué)碩328分求調(diào)劑 +4 | 1段時(shí)間 2026-03-31 | 5/250 |
|
|
[考研] 考研調(diào)劑 +9 | 小蠟新筆 2026-03-29 | 10/500 |
|
|
[考研] 08開(kāi)頭看過(guò)來(lái)。! +3 | wwwwffffff 2026-03-31 | 5/250 |
|
|
[基金申請(qǐng)] 面上5B能上會(huì)嗎? +8 | redcom 2026-03-29 | 8/400 |
|
|
[考研] 085404 22408 315分 +5 | zhuangyan123 2026-03-31 | 6/300 |
|
|
[考研] 一志愿浙江大學(xué)工科動(dòng)力工程370,數(shù)一121,專(zhuān)業(yè)課135,現(xiàn)在能去哪里 +3 | 080700調(diào)劑 2026-03-30 | 4/200 |
|
|
[考研] 297 地理學(xué)070500 復(fù)試求調(diào)劑 +3 | 小圓圈圈ooo 2026-03-30 | 3/150 |
|
|
[有機(jī)交流] 考研調(diào)劑 +8 | watb 2026-03-26 | 8/400 |
|
|
[考研] 291求調(diào)劑 +5 | Y-cap 2026-03-29 | 6/300 |
|
|
[考研] 298求調(diào)劑 +3 | 種圣賜 2026-03-29 | 3/150 |
|
|
[考研] 279求調(diào)劑 +4 | 蝶舞輕繞 2026-03-29 | 4/200 |
|
|
[考研] 305求調(diào)劑 +8 | RuiFairyrui 2026-03-28 | 8/400 |
|
|
[考研] 求佛 +7 | 迷人的哈哈 2026-03-28 | 7/350 |
|