summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5f90global.f90
diff options
context:
space:
mode:
authorJames Laird <jlaird@hdfgroup.org>2005-05-23 18:20:07 (GMT)
committerJames Laird <jlaird@hdfgroup.org>2005-05-23 18:20:07 (GMT)
commit985af5617fe40c9a6e9a0083dc889e56a7add362 (patch)
treecc6bb4e196fd7502ad4f563793d370e322bea4d2 /fortran/src/H5f90global.f90
parentedecc60b50455a42102cee189ccdac5c1bc2104e (diff)
downloadhdf5-985af5617fe40c9a6e9a0083dc889e56a7add362.zip
hdf5-985af5617fe40c9a6e9a0083dc889e56a7add362.tar.gz
hdf5-985af5617fe40c9a6e9a0083dc889e56a7add362.tar.bz2
[svn-r10785] Purpose:
Feature Description: Added "support" for UTF-8 character encoding. Solution: Wrote tests to check that UTF-8 can be used in a number of places in HDF5 (object names, data, etc.). These tests live in test/tunicode.c. Added a new UTF-8 character encoding for datatypes. Platforms tested: mir, modi4, heping Misc. update:
Diffstat (limited to 'fortran/src/H5f90global.f90')
-rw-r--r--fortran/src/H5f90global.f9016
1 files changed, 9 insertions, 7 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
index c1b8817..b17680e 100644
--- a/fortran/src/H5f90global.f90
+++ b/fortran/src/H5f90global.f90
@@ -470,7 +470,7 @@
!
! H5T flags declaration
!
- INTEGER, PARAMETER :: H5T_FLAGS_LEN = 30
+ INTEGER, PARAMETER :: H5T_FLAGS_LEN = 31
INTEGER H5T_flags(H5T_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ ATTRIBUTES DLLEXPORT :: /H5T_FLAGS/
@@ -503,6 +503,7 @@
INTEGER :: H5T_NORM_MSBSET_F
INTEGER :: H5T_NORM_NONE_F
INTEGER :: H5T_CSET_ASCII_F
+ INTEGER :: H5T_CSET_UTF8_F
INTEGER :: H5T_STR_NULLTERM_F
INTEGER :: H5T_STR_NULLPAD_F
INTEGER :: H5T_STR_SPACEPAD_F
@@ -532,12 +533,13 @@
EQUIVALENCE(H5T_flags(22), H5T_NORM_MSBSET_F)
EQUIVALENCE(H5T_flags(23), H5T_NORM_NONE_F)
EQUIVALENCE(H5T_flags(24), H5T_CSET_ASCII_F)
- EQUIVALENCE(H5T_flags(25), H5T_STR_NULLTERM_F)
- EQUIVALENCE(H5T_flags(26), H5T_STR_NULLPAD_F)
- EQUIVALENCE(H5T_flags(27), H5T_STR_SPACEPAD_F)
- EQUIVALENCE(H5T_flags(28), H5T_STR_ERROR_F)
- EQUIVALENCE(H5T_flags(29), H5T_VLEN_F)
- EQUIVALENCE(H5T_flags(30), H5T_ARRAY_F)
+ EQUIVALENCE(H5T_flags(25), H5T_CSET_UTF8_F)
+ EQUIVALENCE(H5T_flags(26), H5T_STR_NULLTERM_F)
+ EQUIVALENCE(H5T_flags(27), H5T_STR_NULLPAD_F)
+ EQUIVALENCE(H5T_flags(28), H5T_STR_SPACEPAD_F)
+ EQUIVALENCE(H5T_flags(29), H5T_STR_ERROR_F)
+ EQUIVALENCE(H5T_flags(30), H5T_VLEN_F)
+ EQUIVALENCE(H5T_flags(31), H5T_ARRAY_F)
!
! H5Z flags declaration