HDF5-Fortran庫(kù)

zoziha (zuo.zhihua@qq.com)
哈爾濱工程大學(xué) 船舶工程學(xué)院 船舶與海洋結(jié)構(gòu)物設(shè)計(jì)制造 在讀博士
2022年3月 深圳市羅湖區(qū)

摘要

我在gitee上設(shè)置了一個(gè)HDF5-Fortran的庫(kù)娃闲,目前主要適用于msys2-gfortran-11環(huán)境匾浪。
這里介紹一下它的簡(jiǎn)單用法。

運(yùn)行環(huán)境:Windows 10, i5 8250u, Msys2 GFortran 11, HDF5 1.12.1

??hdf5-fortran: A collection of commonly used functions for HDF5 datebase for Fortran. (gitee.com)

基本思路

當(dāng)我們向HDF5寫入數(shù)據(jù)的時(shí)候属拾,我們比較容易冷溶。
但當(dāng)我們從HDF5讀入數(shù)據(jù)的時(shí)候,我們需要從HDF5文件中查找數(shù)據(jù)的類型纯衍、維度苗胀、rank等等信息,才能有信息讀取正確的數(shù)據(jù)柒巫。

并且,除了寫入數(shù)據(jù),HDF5還要組別的概念刨疼,大體是分區(qū) / 文件夾的意思。

HDF5-Fortran

我在國(guó)內(nèi)的HDF5-Fortran庫(kù)幾乎完全搬運(yùn)的geospace-code/h5fortran亭畜。
主要方便自己寫HDF5迎卤。

program example2
    ! 引入例程
    use h5fortran, only: hdf5_file, hsize_t
    implicit none(type, external)

    character(:), allocatable :: filename
    integer :: i32
    integer(hsize_t), allocatable :: i(:)

    type(hdf5_file) :: h5f
    real :: y(2,2)

    filename = 'h5fortran_example2.h5'
    ! 數(shù)據(jù)寫入hdf5文件
    call h5f%open(filename, action='w')
    call h5f%write('/x', 123)
    call h5f%write_group('/z') ! 創(chuàng)建一個(gè)組`/z`
    call h5f%write('/z/y', reshape([real :: 1, 2, 3, 4], [2, 2]))
    call h5f%close()

    call h5f%open(filename, action='r')
    call h5f%read('/x', i32)
    call h5f%shape('/z/y', i)  ! 查看數(shù)據(jù)形狀
    print *, i
    call h5f%read('/z/y', y)
    if (i32 /= 123) error stop 'incorrect value read'
    print *, y(1, 1)

    print *, 'OK: example 2'

end program

以上示例,嘗試寫入一些數(shù)據(jù)和讀取對(duì)應(yīng)數(shù)據(jù)劲藐,大致完成了閉環(huán)讀寫HDF5的操作樟凄。

h5dump

HDF5還提供了一系列小工具,如h5dump缝龄,我們可以通過這個(gè)小工具查看文件內(nèi)容:

$ h5dump -g z h5fortran_example2.h5
HDF5 "h5fortran_example2.h5" {
GROUP "z" {
   DATASET "y" {
      DATATYPE  H5T_IEEE_F32LE
      DATASPACE  SIMPLE { ( 2, 2 ) / ( 2, 2 ) }
      DATA {
      (0,0): 1, 2,
      (1,0): 3, 4
      }
   }
}
}

不會(huì)h5dump的操作,可以通過h5dump --help查找快速幫助瞎饲。

小結(jié)

更詳細(xì)的HDF5操作,還是得多用和讀對(duì)應(yīng)幫助文檔妄田。
HDF5是著名的科學(xué)數(shù)據(jù)存儲(chǔ)格式仗哨,它主要存儲(chǔ)整型和浮點(diǎn)型數(shù)據(jù),在與軟件數(shù)據(jù)交互性上相對(duì)可靠厌漂,而且是以二進(jìn)制存儲(chǔ),適合大數(shù)據(jù)富纸、快速讀寫等應(yīng)用場(chǎng)景旨椒。

參考鏈接

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市涣仿,隨后出現(xiàn)的幾起案子示惊,更是在濱河造成了極大的恐慌,老刑警劉巖米罚,帶你破解...
    沈念sama閱讀 206,378評(píng)論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件录择,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡隘竭,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,356評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門嗤形,熙熙樓的掌柜王于貴愁眉苦臉地迎上來弧圆,“玉大人笔咽,你說我怎么就攤上這事霹期。” “怎么了历造?”我有些...
    開封第一講書人閱讀 152,702評(píng)論 0 342
  • 文/不壞的土叔 我叫張陵吭产,是天一觀的道長(zhǎng)。 經(jīng)常有香客問我臣淤,道長(zhǎng),這世上最難降的妖魔是什么姓蜂? 我笑而不...
    開封第一講書人閱讀 55,259評(píng)論 1 279
  • 正文 為了忘掉前任医吊,我火速辦了婚禮,結(jié)果婚禮上束莫,老公的妹妹穿的比我還像新娘草描。我一直安慰自己,他們只是感情好陶珠,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,263評(píng)論 5 371
  • 文/花漫 我一把揭開白布享钞。 她就那樣靜靜地躺著揍诽,像睡著了一般栗竖。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上添吗,一...
    開封第一講書人閱讀 49,036評(píng)論 1 285
  • 那天份名,我揣著相機(jī)與錄音妓美,去河邊找鬼鲤孵。 笑死,一個(gè)胖子當(dāng)著我的面吹牛普监,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播毙玻,決...
    沈念sama閱讀 38,349評(píng)論 3 400
  • 文/蒼蘭香墨 我猛地睜開眼廊散,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來了施符?” 一聲冷哼從身側(cè)響起擂找,我...
    開封第一講書人閱讀 36,979評(píng)論 0 259
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎听哭,沒想到半個(gè)月后塘雳,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 43,469評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡隘马,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 35,938評(píng)論 2 323
  • 正文 我和宋清朗相戀三年妻顶,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片讳嘱。...
    茶點(diǎn)故事閱讀 38,059評(píng)論 1 333
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡沥潭,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情庞钢,我是刑警寧澤屁置,帶...
    沈念sama閱讀 33,703評(píng)論 4 323
  • 正文 年R本政府宣布,位于F島的核電站蓝角,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏揪阶。R本人自食惡果不足惜患朱,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,257評(píng)論 3 307
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望裁厅。 院中可真熱鬧,春花似錦拓挥、人聲如沸袋励。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,262評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至赁炎,卻和暖如春钾腺,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背垮庐。 一陣腳步聲響...
    開封第一講書人閱讀 31,485評(píng)論 1 262
  • 我被黑心中介騙來泰國(guó)打工坞琴, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人寒亥。 一個(gè)月前我還...
    沈念sama閱讀 45,501評(píng)論 2 354
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像溉奕,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子仙辟,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,792評(píng)論 2 345

推薦閱讀更多精彩內(nèi)容