diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-02 21:42:41 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-04-02 21:42:41 (GMT) |
| commit | cd1b5623f0b092960542d38751b6f3453d18e7e7 (patch) | |
| tree | 92f25216f3a49716394d37f877634422deefb74c /fortran/src/H5f90global.f90 | |
| parent | 6e9724c46c38649b2ddc95a878e872a3c3eb5972 (diff) | |
| download | hdf5-cd1b5623f0b092960542d38751b6f3453d18e7e7.zip hdf5-cd1b5623f0b092960542d38751b6f3453d18e7e7.tar.gz hdf5-cd1b5623f0b092960542d38751b6f3453d18e7e7.tar.bz2 | |
[svn-r6573]
Purpose: Maintenance
Description: New fortran APIs h5pset_fapl_multi and h5pget_fapl_multi have been
added
Solution:
Platforms tested: burrwhite with PGI compilers, arabica and modi4 with
--enable-parallel
Misc. update:
Diffstat (limited to 'fortran/src/H5f90global.f90')
| -rw-r--r-- | fortran/src/H5f90global.f90 | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 76aa21a..0c8d5fc 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -266,15 +266,33 @@ ! ! H5FD flags declaration ! - INTEGER, PARAMETER :: H5FD_FLAGS_LEN = 2 + INTEGER, PARAMETER :: H5FD_FLAGS_LEN = 11 INTEGER H5FD_flags(H5FD_FLAGS_LEN) COMMON /H5FD_FLAGS/ H5FD_flags INTEGER :: H5FD_MPIO_INDEPENDENT_F INTEGER :: H5FD_MPIO_COLLECTIVE_F + INTEGER :: H5FD_MEM_NOLIST_F + INTEGER :: H5FD_MEM_DEFAULT_F + INTEGER :: H5FD_MEM_SUPER_F + INTEGER :: H5FD_MEM_BTREE_F + INTEGER :: H5FD_MEM_DRAW_F + INTEGER :: H5FD_MEM_GHEAP_F + INTEGER :: H5FD_MEM_LHEAP_F + INTEGER :: H5FD_MEM_OHDR_F + INTEGER :: H5FD_MEM_NTYPES_F EQUIVALENCE(H5FD_flags(1), H5FD_MPIO_INDEPENDENT_F) EQUIVALENCE(H5FD_flags(2), H5FD_MPIO_COLLECTIVE_F) + EQUIVALENCE(H5FD_flags(3), H5FD_MEM_NOLIST_F) + EQUIVALENCE(H5FD_flags(4), H5FD_MEM_DEFAULT_F) + EQUIVALENCE(H5FD_flags(5), H5FD_MEM_SUPER_F) + EQUIVALENCE(H5FD_flags(6), H5FD_MEM_BTREE_F) + EQUIVALENCE(H5FD_flags(7), H5FD_MEM_DRAW_F) + EQUIVALENCE(H5FD_flags(8), H5FD_MEM_GHEAP_F) + EQUIVALENCE(H5FD_flags(9), H5FD_MEM_LHEAP_F) + EQUIVALENCE(H5FD_flags(10), H5FD_MEM_OHDR_F) + EQUIVALENCE(H5FD_flags(11), H5FD_MEM_NTYPES_F) ! ! H5E flags declaration @@ -564,5 +582,19 @@ EQUIVALENCE(H5Z_flags(8), H5Z_ENABLE_EDC_F) EQUIVALENCE(H5Z_flags(9), H5Z_NO_EDC_F) + +! +! H5 Library flags declaration +! +! INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 1 +! INTEGER(HADDR_T) H5LIB_flags(H5LIB_FLAGS_LEN) +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$ ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/ +!DEC$endif +! COMMON /H5LIB_FLAGS/ H5LIB_flags +! INTEGER(HADDR_T) :: HADDR_MAX_F +! +! EQUIVALENCE(H5LIB_flags(1), HADDR_MAX_F) + END MODULE H5GLOBAL |