summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-06-09 18:25:41 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-06-09 18:25:41 (GMT)
commit5097bd442939cabc9b85976c87de3649bc26417c (patch)
tree952ff9e4a42b5de7f60fc152b6f4c2247b45256c
parent62401ac7c61dc71ea5980e44e895ab757df15a01 (diff)
downloadhdf5-5097bd442939cabc9b85976c87de3649bc26417c.zip
hdf5-5097bd442939cabc9b85976c87de3649bc26417c.tar.gz
hdf5-5097bd442939cabc9b85976c87de3649bc26417c.tar.bz2
[svn-r27170] added new precompiler directives
-rw-r--r--hl/fortran/src/H5LTff.F9016
1 files changed, 7 insertions, 9 deletions
diff --git a/hl/fortran/src/H5LTff.F90 b/hl/fortran/src/H5LTff.F90
index 8dc20f2..7b24730 100644
--- a/hl/fortran/src/H5LTff.F90
+++ b/hl/fortran/src/H5LTff.F90
@@ -3411,7 +3411,7 @@ CONTAINS
f_ptr = C_LOC(buf(1:1))
-#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+#if FORTRAN_HAVE_STORAGE_SIZE!=0
SizeOf_buf_type = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)
#else
SizeOf_buf_type = SIZEOF(buf(1))
@@ -3461,8 +3461,7 @@ CONTAINS
INTEGER(size_t) :: SizeOf_buf_type
f_ptr = C_LOC(buf(1))
-
-#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+#if FORTRAN_HAVE_STORAGE_SIZE!=0
SizeOf_buf_type = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)
#else
SizeOf_buf_type = SIZEOF(buf(1))
@@ -3513,7 +3512,7 @@ CONTAINS
f_ptr = C_LOC(buf(1))
-#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+#if FORTRAN_HAVE_STORAGE_SIZE!=0
SizeOf_buf_type = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)
#else
SizeOf_buf_type = SIZEOF(buf(1))
@@ -3564,7 +3563,7 @@ CONTAINS
f_ptr = C_LOC(buf(1)(1:1))
-#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+#if FORTRAN_HAVE_STORAGE_SIZE!=0
SizeOf_buf_type = STORAGE_SIZE(buf(1)(1:1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)
#else
SizeOf_buf_type = SIZEOF(buf(1:1)(1:1))
@@ -3666,7 +3665,7 @@ CONTAINS
f_ptr = C_LOC(buf(1))
-#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+#if FORTRAN_HAVE_STORAGE_SIZE!=0
SizeOf_buf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)
#else
SizeOf_buf = SIZEOF(buf(1))
@@ -3712,7 +3711,7 @@ CONTAINS
INTEGER(size_t) :: SizeOf_buf
f_ptr = C_LOC(buf(1))
-#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+#if FORTRAN_HAVE_STORAGE_SIZE!=0
SizeOf_buf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)
#else
SizeOf_buf = SIZEOF(buf(1))
@@ -3758,8 +3757,7 @@ CONTAINS
INTEGER(size_t) :: SizeOf_buf
f_ptr = C_LOC(buf(1))
-
-#ifdef H5_FORTRAN_HAVE_STORAGE_SIZE
+#if FORTRAN_HAVE_STORAGE_SIZE!=0
SizeOf_buf = STORAGE_SIZE(buf(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t)
#else
SizeOf_buf = SIZEOF(buf(1))