From 5097bd442939cabc9b85976c87de3649bc26417c Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Tue, 9 Jun 2015 13:25:41 -0500 Subject: [svn-r27170] added new precompiler directives --- hl/fortran/src/H5LTff.F90 | 16 +++++++--------- 1 file 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)) -- cgit v0.12