Fortran Coder

查看: 2099|回复: 0
打印 上一主题 下一主题

[数学库] VS+Fortran 调用HDF5库的源代码

[复制链接]

3

帖子

3

主题

0

精华

新人

F 币
17 元
贡献
9 点
跳转到指定楼层
楼主
发表于 2022-6-7 17:31:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在HDF5的官网下载了一个Fortran 调用HDF5库的源代码,按文件里的说明和网上查到的攻略把VS设置好,但是总出现如下错误提示,有没有高手告知一下如何解决?
使用的VS2015,HDF5 1.8.18 版本应该是匹配的。加了H5_BUILT_AS_DYNAMIC_LIB

! The following example shows how to create an empty dataset.
! It creates a file called 'dsetf.h5', defines the
! dataset dataspace, creates a dataset which is a 4x6 integer array,
! and then closes the dataspace, the dataset, and the file.
!
! This example is used in the HDF5 Tutorial.

PROGRAM H5_CRTDAT

  USE HDF5 ! This module contains all necessary modules

  IMPLICIT NONE

  CHARACTER(LEN=8), PARAMETER :: filename = "dsetf.h5" ! File name
  CHARACTER(LEN=4), PARAMETER :: dsetname = "dset"     ! Dataset name

  INTEGER(HID_T) :: file_id       ! File identifier
  INTEGER(HID_T) :: dset_id       ! Dataset identifier
  INTEGER(HID_T) :: dspace_id     ! Dataspace identifier


  INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/4,6/) ! Dataset dimensions
  INTEGER     ::   rank = 2                        ! Dataset rank

  INTEGER     ::   error ! Error flag

  !
  ! Initialize FORTRAN interface.
  !
  CALL h5open_f(error)

  !
  ! Create a new file using default properties.
  !
  CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)

  !
  ! Create the dataspace.
  !
  CALL h5screate_simple_f(rank, dims, dspace_id, error)

  !
  ! Create the dataset with default properties.
  !
  CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dspace_id, &
       dset_id, error)

  !
  ! End access to the dataset and release resources used by it.
  !
  CALL h5dclose_f(dset_id, error)

  !
  ! Terminate access to the data space.
  !
  CALL h5sclose_f(dspace_id, error)

  !
  ! Close the file.
  !
  CALL h5fclose_f(file_id, error)

  !
  ! Close FORTRAN interface.
  !
  CALL h5close_f(error)

END PROGRAM H5_CRTDAT
1>------ Build started: Project: Console1, Configuration: Debug Win32 ------
1>Linking...
1>------ Build started: Project: Console1, Configuration: Release Win32 ------
1>Linking...
1>ipo: warning #11082: F:\slnFortran\Console1\Release\h5_crtdat.obj: locally defined symbol __imp__PREDEFINED_TYPES imported
1>ipo: warning #11082: F:\slnFortran\Console1\Release\h5_crtdat.obj: locally defined symbol __imp__H5F_FLAGS imported
1>h5_crtdat.obj : warning LNK4217: locally defined symbol _PREDEFINED_TYPES imported in function _MAIN__
1>h5_crtdat.obj : warning LNK4217: locally defined symbol _H5F_FLAGS imported in function _MAIN__
1>h5_crtdat.obj : error LNK2019: unresolved external symbol _H5LIB_mp_H5OPEN_F referenced in function _MAIN__
1>h5_crtdat.obj : error LNK2019: unresolved external symbol _H5F_mp_H5FCREATE_F referenced in function _MAIN__
……
1>Release\Console1.exe : fatal error LNK1120: 8 unresolved externals
1>
1>Build log written to  "file://F:\slnFortran\Console1\Release\BuildLog.htm"
1>Console1 - 9 error(s), 4 warning(s)
========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-23 00:36

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表