版塊導(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í)熱門(mén)版塊排行榜

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

返回列表

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

» 猜你喜歡

307求調(diào)劑已經(jīng)有13人回復(fù)
071010 323 分求調(diào)劑已經(jīng)有3人回復(fù)
材料調(diào)劑已經(jīng)有9人回復(fù)
材料專碩調(diào)劑已經(jīng)有10人回復(fù)
一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有8人回復(fù)
求調(diào)劑已經(jīng)有8人回復(fù)
284求調(diào)劑已經(jīng)有15人回復(fù)
085602化工求調(diào)劑（331分）已經(jīng)有3人回復(fù)
一志愿南昌大學(xué)324求調(diào)劑已經(jīng)有8人回復(fù)
材料科學(xué)與工程調(diào)劑已經(jīng)有5人回復(fù)

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

如何安裝FORTRAN軟件已經(jīng)有23人回復(fù)
Fortran輸出二進(jìn)制數(shù)據(jù)，用matlab讀出，結(jié)果出錯(cuò)，求助問(wèn)題何在？已經(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編寫(xiě)程序輸出的數(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ù)避開(kāi)空行？已經(jīng)有7人回復(fù)
fortran中如何求奇點(diǎn)在邊界的積分~~ 已經(jīng)有5人回復(fù)
【求助】matlab數(shù)據(jù)導(dǎo)入Fortran 已經(jīng)有9人回復(fù)
【求助】如何寫(xiě)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的回帖

zeppe

金蟲(chóng) (小有名氣)

應(yīng)助: 15 (小學(xué)生)
金幣: 3901.3
散金: 58
紅花: 4
帖子: 205
在線: 254.1小時(shí)
蟲(chóng)號(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è)回答

zeppe

金蟲(chóng) (小有名氣)

應(yīng)助: 15 (小學(xué)生)
金幣: 3901.3
散金: 58
紅花: 4
帖子: 205
在線: 254.1小時(shí)
蟲(chóng)號(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ù)特征字符串所在行來(lái)定義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的回帖

tg2010

金蟲(chóng) (小有名氣)

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

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

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

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

贊一下

回復(fù)此樓

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

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

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

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

[考研] 0703本科鄭州大學(xué)求調(diào)劑 +7	nhj_ 2026-03-25	7/350	2026-03-30 12:44 by fangnagu
[考研] 生物技術(shù)與工程 +7	1294608413 2026-03-25	8/400	2026-03-30 11:36 by 唐沐兒
[考研] 297求調(diào)劑 +13	田洪有 2026-03-26	13/650	2026-03-30 11:33 by 替代品000
[考研] 085600材料與化工調(diào)劑 +6	kikiki7 2026-03-30	6/300	2026-03-30 10:57 by 星空星月
[考研] 311求調(diào)劑 +10	lin0039 2026-03-26	10/500	2026-03-30 10:26 by herarysara
[考研] 317求調(diào)劑 +10	蛋黃咸肉粽 2026-03-26	10/500	2026-03-30 09:45 by longlotian
[考研] 材料與化工304求B區(qū)調(diào)劑 +4	邱gl 2026-03-26	7/350	2026-03-30 08:39 by 探123
[考研] 295求調(diào)劑 +5	wei-5 2026-03-26	5/250	2026-03-30 08:34 by 探123
[考研] 材料科學(xué)與工程求調(diào)劑 +6	深V宿舍吧 2026-03-29	6/300	2026-03-29 20:51 by 唐沐兒
[考研] 各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩 +9	Koxui 2026-03-28	9/450	2026-03-29 20:43 by 無(wú)際的草原
[考研] 329求調(diào)劑，一志愿西北工業(yè)大學(xué)，材料工程（085601） +4	小小機(jī)靈蟲(chóng) 2026-03-29	10/500	2026-03-29 18:20 by 無(wú)際的草原
[考研] 070305高分子化學(xué)與物理 304分求調(diào)劑 +12	c297914 2026-03-28	12/600	2026-03-29 16:21 by Serene1974
[考研] 343求調(diào)劑 +6	愛(ài)羈絆 2026-03-29	6/300	2026-03-29 12:00 by 無(wú)際的草原
[考研] 332求92調(diào)劑 +8	蕉蕉123 2026-03-28	8/400	2026-03-29 10:46 by 周梓丹
[考研] 食品工程專碩一志愿中海洋309求調(diào)劑 +4	小張zxy張 2026-03-26	8/400	2026-03-28 19:25 by lbsjt
[考研] 283求調(diào)劑 +3	A child 2026-03-28	3/150	2026-03-28 15:41 by ms629
[考研] 藥學(xué)105500求調(diào)劑 +3	Ssun。。 2026-03-28	3/150	2026-03-28 11:24 by lxf170613
[考研] 復(fù)試調(diào)劑，一志愿南農(nóng)083200食品科學(xué)與工程 +5	XQTJZ 2026-03-26	5/250	2026-03-27 14:49 by 狂炫麥當(dāng)當(dāng)
[考研] 一志愿鄭大085600，310分求調(diào)劑 +5	李瀟可 2026-03-26	5/250	2026-03-27 11:14 by 不吃魚(yú)的貓
[考研] 材料與化工304求B區(qū)調(diào)劑 +3	邱gl 2026-03-25	3/150	2026-03-25 19:03 by Ainin_

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

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

lwingkei

» 猜你喜歡

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

zeppe

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

zeppe

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

tg2010

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

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