mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r2808]

Browse Source 
Purpose:
    New feature
Description:
    Added F90 flags to support h5glink_f subroutine
           H5G_LINK_ERROR_F
           H5G_LINK_HARD_F
           H5G_LINK_SOFT_F
Platforms tested:
    Linux (eirene)
This commit is contained in:
Elena Pourmal 2000-11-07 13:17:18 -05:00
parent 564b68cecc
commit 0cd13ba19d
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fortran/src/H5f90global.f90
View File

@ -133,7 +133,7 @@
!
! H5G flags declaration
!
INTEGER, PARAMETER :: H5G_FLAGS_LEN = 5
INTEGER, PARAMETER :: H5G_FLAGS_LEN = 8
INTEGER H5G_flags(H5G_FLAGS_LEN)
COMMON /H5G_FLAGS/ H5G_flags
@ -142,12 +142,18 @@
INTEGER :: H5G_GROUP_F
INTEGER :: H5G_DATASET_F
INTEGER :: H5G_TYPE_F
INTEGER :: H5G_LINK_ERROR_F
INTEGER :: H5G_LINK_HARD_F
INTEGER :: H5G_LINK_SOFT_F
EQUIVALENCE(H5G_flags(1), H5G_UNKNOWN_F)
EQUIVALENCE(H5G_flags(2), H5G_LINK_F)
EQUIVALENCE(H5G_flags(3), H5G_GROUP_F)
EQUIVALENCE(H5G_flags(4), H5G_DATASET_F)
EQUIVALENCE(H5G_flags(5), H5G_TYPE_F)
EQUIVALENCE(H5G_flags(6), H5G_LINK_ERROR_F)
EQUIVALENCE(H5G_flags(7), H5G_LINK_HARD_F)
EQUIVALENCE(H5G_flags(8), H5G_LINK_SOFT_F)
!
! H5D flags declaration
!

3
fortran/src/H5f90misc.c
View File

@ -224,6 +224,9 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags,
h5g_flags[2] = H5G_GROUP;
h5g_flags[3] = H5G_DATASET;
h5g_flags[4] = H5G_TYPE;
h5g_flags[5] = H5G_LINK_ERROR;
h5g_flags[6] = H5G_LINK_HARD;
h5g_flags[7] = H5G_LINK_SOFT;
/*
* H5I flags