diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2005-09-08 19:36:24 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2005-09-08 19:36:24 (GMT) |
commit | 244d72b6f5a62d91c4b922f45ef7217ca24f82b9 (patch) | |
tree | 806a2b9b3a65b086c874277b2c327a2b976c5a99 /fortran/src/H5f90i.h | |
parent | a0c61b514bcae172789e782c62547080da045b2a (diff) | |
download | hdf5-244d72b6f5a62d91c4b922f45ef7217ca24f82b9.zip hdf5-244d72b6f5a62d91c4b922f45ef7217ca24f82b9.tar.gz hdf5-244d72b6f5a62d91c4b922f45ef7217ca24f82b9.tar.bz2 |
[svn-r11372] Purpose: Maintenance/improvement
Description: Added support for "big" REAL and DOUBLE PRECISION
datatypes (i.e. sizes of Fortran real and double precision
may be 8 and/or 16 bytes; usually specified by compilers
flags like -r8, -r16, -d8, etc.)
Solution: Added code to generate all necessary datatypes on a fly.
Platforms tested: heping with g95 (-r8, -d8)
mir with ifc (-r16, -r8)
Note: multi file test failed when REAL is 128 bit.
I will address this later.
Misc. update:
Diffstat (limited to 'fortran/src/H5f90i.h')
-rw-r--r-- | fortran/src/H5f90i.h | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h index 81065f0..abc1e99 100644 --- a/fortran/src/H5f90i.h +++ b/fortran/src/H5f90i.h @@ -18,11 +18,11 @@ /* * Include generated header. This header defines integer types, - * so this file only needs to define _fcd and real_f. + * so this file only needs to define _fcd. */ #include "H5f90i_gen.h" -/* Define _fcd and real_f. These are the same on every system +/* Define _fcd. These are the same on every system * but UNICOS. */ #define _fcdtocp(desc) (desc) @@ -32,12 +32,10 @@ #include <fortran.h> /*typedef char* _fcd;*/ -typedef double real_f; #else typedef char *_fcd; -typedef float real_f; #endif |