版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

» 猜你喜歡

317分一志愿南理工材料工程本科湖工大求調(diào)劑已經(jīng)有11人回復(fù)
332求調(diào)劑已經(jīng)有12人回復(fù)
材料專碩 085600求調(diào)劑已經(jīng)有5人回復(fù)
0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可已經(jīng)有14人回復(fù)
283求調(diào)劑（080500）已經(jīng)有14人回復(fù)
材料工程專碩求調(diào)劑已經(jīng)有6人回復(fù)
材料專碩調(diào)劑已經(jīng)有9人回復(fù)
求調(diào)劑有機(jī)化學(xué)考研356分已經(jīng)有11人回復(fù)
環(huán)境科學(xué)與工程334分求調(diào)劑已經(jīng)有8人回復(fù)
考研調(diào)劑已經(jīng)有5人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

如何安裝FORTRAN軟件已經(jīng)有23人回復(fù)
Fortran輸出二進(jìn)制數(shù)據(jù)，用matlab讀出，結(jié)果出錯(cuò)，求助問題何在？已經(jīng)有4人回復(fù)
如何用Fortran 計(jì)算三維曲面的數(shù)據(jù) 已經(jīng)有3人回復(fù)
求助！fortran編程實(shí)現(xiàn)從txt中一一對(duì)應(yīng)讀入數(shù)據(jù) 已經(jīng)有6人回復(fù)
用Fortran編寫程序輸出的數(shù)據(jù)一般用什么程序作圖比較好？已經(jīng)有28人回復(fù)
FORTRAN中如何實(shí)現(xiàn)重復(fù)讀取一行？已經(jīng)有24人回復(fù)
fortran，帶字符的數(shù)據(jù)讀取與存儲(chǔ)！已經(jīng)有11人回復(fù)
fortran中如何處理字符和數(shù)據(jù)混合的文件已經(jīng)有6人回復(fù)
Fortran數(shù)據(jù)讀入格式的修改已經(jīng)有5人回復(fù)
fortran中到底該如何比較兩個(gè)實(shí)數(shù)是否相等已經(jīng)有8人回復(fù)
Fortran如何讀取數(shù)據(jù)避開空行？已經(jīng)有7人回復(fù)
fortran中如何求奇點(diǎn)在邊界的積分~~ 已經(jīng)有5人回復(fù)
【求助】matlab數(shù)據(jù)導(dǎo)入Fortran 已經(jīng)有9人回復(fù)
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離已經(jīng)有34人回復(fù)
【求助】FORTRAN讀取文本文件已經(jīng)有9人回復(fù)
【求助】fortran中怎么存儲(chǔ)不確定長(zhǎng)度的數(shù)據(jù)【已完結(jié)】已經(jīng)有6人回復(fù)
【求助】matlab讀取fortran輸出的txt文件【已解決】已經(jīng)有3人回復(fù)

1樓 2014-04-16 09:30:31

已閱關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tg2010

金蟲 (小有名氣)

應(yīng)助: 9 (幼兒園)
金幣: 642.7
散金: 150
紅花: 2
帖子: 167
在線: 69小時(shí)
蟲號(hào): 1415311
注冊(cè): 2011-09-24
專業(yè): 水文、水資源

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

先做個(gè)循環(huán)數(shù)有多少行。
第二個(gè)循環(huán)就按上面讀出的行數(shù)來讀。

贊一下

回復(fù)此樓

4樓2014-04-16 15:31:41

已閱關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 4 個(gè)回答

zeppe

金蟲 (小有名氣)

應(yīng)助: 15 (小學(xué)生)
金幣: 3901.3
散金: 58
紅花: 4
帖子: 205
在線: 254.1小時(shí)
蟲號(hào): 573594
注冊(cè): 2008-06-14
性別: GG
專業(yè): 理論和計(jì)算化學(xué)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
lwingkei: 金幣+10, ★★★★★最佳答案, 很好，回頭好好研究一下修改一下再用 2014-04-16 17:10:04

可以根據(jù)特征字符串所在行來定義flag進(jìn)行限制，例如可以以"DM1"這個(gè)字符串所在行為起始行，以"DM2"這個(gè)字符串所在行為結(jié)束行，讀入這之間的數(shù)據(jù)。其他DM3,...都類似的。
下面是讀取"DM1"和"DM2"之間的數(shù)據(jù)的代碼。

CODE:

! read a formatted file, see "example.txt"

      program TestReadFile

        implicit none

        character (len=80) :: filename 

        integer, parameter :: fileunit=15

        logical :: bExist, bDM1, bDM2

        integer :: iOK, pos1, pos2

        character (len=80) :: line

        real :: var1, var2, var3

        ! name of input file

        filename="example.txt"

        ! check if file exist

        inquire (file=filename, exist=bExist)

        if (bExist) then

        else

          print *, filename, " not found!" 

          stop

        endif

        ! open file

        open (unit=fileunit, file=filename, status='old', iostat=iOK)

        if (iOK /= 0) then

          print *, "can't open ", filename

          stop

        endif

        ! read file line by line

        do while (iOK == 0)

          read (fileunit, "(A)", iostat=iOK) line

          ! if line starts with "DM1"

          pos1=index(line, "DM1")

          if (pos1 == 1) then

            bDM1=.true.

            continue

          endif

          ! if line starts with "DM2"

          pos2=index(line, "DM2")

          if (pos2 == 1) then

            bDM1=.false.

            bDM2=.true.

            continue

          endif

          ! if in the 'DM1' block, read variables

          if ((bDM1) .and. (pos1 /= 1)) then

            read (line, *)var1, var2, var3

            print *, var1, var2, var3

          endif

        enddo

        ! close file

        close (fileunit)

      end program TestReadFile

贊一下

回復(fù)此樓

2樓2014-04-16 13:07:31

已閱關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zeppe

金蟲 (小有名氣)

應(yīng)助: 15 (小學(xué)生)
金幣: 3901.3
散金: 58
紅花: 4
帖子: 205
在線: 254.1小時(shí)
蟲號(hào): 573594
注冊(cè): 2008-06-14
性別: GG
專業(yè): 理論和計(jì)算化學(xué)

【答案】應(yīng)助回帖

example.txt內(nèi)容如下
DM1：
         0.02    -1.3    2.40
         1.50    -0.1    4.00
         3.02    -2.0    5.00
         0.60    0.30    3000
DM2:
         0.010    3000    1000
         0.020    3000    1000
         0.030    3000    1000
         0.040    3000    1000
         0.050    3000    1000
         0.060    3000    1000
DM3:
         1000    0.00    0.00
         2000    0.00    0.00
         3000    0.00    0.00
         4000    0.00    0.00
         5000    0.00    0.00
         6000    0.00    0.00
         7000    0.00    0.00

贊一下(1人)

回復(fù)此樓

3樓2014-04-16 13:09:34

已閱關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 4 個(gè)回答

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 材料專碩調(diào)劑 +9	椰椰。 2026-03-29	9/450	2026-03-30 12:02 by syjjj0321
[考研] 310求調(diào)劑 +9	爭(zhēng)取九點(diǎn)睡 2026-03-30	9/450	2026-03-30 11:44 by Wang200018
[考研] 材料與化工328分調(diào)劑 +9	。，。，。，。i 2026-03-23	9/450	2026-03-30 07:30 by 無際的草原
[考研] 277跪求調(diào)劑 +6	1915668 2026-03-27	10/500	2026-03-29 16:03 by 王亮_大連醫(yī)科大
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +7	AZMK 2026-03-28	11/550	2026-03-28 21:01 by xxxsssccc
[考研] 生物學(xué)學(xué)碩，一志愿湖南大學(xué)，初試成績(jī)338 +6	YYYYYNNNNN 2026-03-26	7/350	2026-03-28 20:52 by 唐沐兒
[考研] 一志愿華北電力大學(xué)能動(dòng)專碩，293，求調(diào)劑 +3	15537177284 2026-03-23	5/250	2026-03-28 16:11 by xxxsssccc
[考研] 085602 化工專碩 338分求調(diào)劑 +12	路癡小琪 2026-03-27	12/600	2026-03-28 15:41 by L135790
[考研] 394求調(diào)劑 +3	好事多磨靜候佳?/a> 2026-03-26	5/250	2026-03-28 14:24 by 唐沐兒
[考研] 322求調(diào)劑 +5	舊吢 2026-03-24	5/250	2026-03-28 13:26 by Iveryant
[考研] 材料277求調(diào)劑 +7	min3 2026-03-24	7/350	2026-03-28 11:39 by xuxiang
[考研] 一志愿南京航空航天大學(xué)材料學(xué)碩求調(diào)劑 +3	@taotao 2026-03-28	3/150	2026-03-28 10:26 by JourneyLucky
[考研] 291求調(diào)劑 +6	HanBeiNingZC 2026-03-24	6/300	2026-03-28 07:55 by baoball
[考研] 274求調(diào)劑 +17	顧九笙要謙虛 2026-03-24	23/1150	2026-03-27 15:16 by caszguilin
[考研] 279 分求調(diào)劑 +4	睡個(gè)好覺_16 2026-03-24	4/200	2026-03-27 15:05 by 醉在風(fēng)里
[考研] 322求調(diào)劑 +4	我真的很想學(xué)習(xí) 2026-03-23	4/200	2026-03-27 13:51 by 楊楊楊紫
[考研] 材料考研求調(diào)劑 +3	Dendel 2026-03-23	6/300	2026-03-26 17:51 by fmesaito
[考研] 考研一志愿蘇州大學(xué)初始315（英一）求調(diào)劑 +3	sbdksD 2026-03-24	4/200	2026-03-25 18:16 by xcjcqu
[考研] 網(wǎng)絡(luò)空間安全0839招調(diào)劑 +4	w320357296 2026-03-25	6/300	2026-03-25 17:59 by 255671
[考研] 材料專碩331求調(diào)劑 +4	鮮當(dāng)牛 2026-03-24	4/200	2026-03-24 15:58 by JourneyLucky

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時(shí)熱門版塊排行榜

lwingkei

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

tg2010

【答案】應(yīng)助回帖

zeppe

【答案】應(yīng)助回帖

zeppe

【答案】應(yīng)助回帖

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: