Commit 21dd57c9 authored by gsell's avatar gsell
Browse files

Fortran-API:

- use enumeration for data-types
parent fc29f7b6
...@@ -29,7 +29,7 @@ h5pt_writedata_r8 ( ...@@ -29,7 +29,7 @@ h5pt_writedata_r8 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data ( h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_DOUBLE ); f, name2, (void*)data, H5_FLOAT64_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
} }
...@@ -50,7 +50,7 @@ h5pt_writedata_r4 ( ...@@ -50,7 +50,7 @@ h5pt_writedata_r4 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data ( h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_FLOAT ); f, name2, (void*)data, H5_FLOAT32_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
} }
...@@ -71,7 +71,7 @@ h5pt_writedata_i8 ( ...@@ -71,7 +71,7 @@ h5pt_writedata_i8 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data ( h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_INT64 ); f, name2, (void*)data, H5_INT64_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
} }
...@@ -92,7 +92,7 @@ h5pt_writedata_i4 ( ...@@ -92,7 +92,7 @@ h5pt_writedata_i4 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data ( h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_INT32 ); f, name2, (void*)data, H5_INT32_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
} }
...@@ -115,7 +115,7 @@ h5pt_readdata_r8 ( ...@@ -115,7 +115,7 @@ h5pt_readdata_r8 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data ( h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_DOUBLE ); f, name2, data, H5_FLOAT64_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
} }
...@@ -136,7 +136,7 @@ h5pt_readdata_r4 ( ...@@ -136,7 +136,7 @@ h5pt_readdata_r4 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data ( h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_FLOAT ); f, name2, data, H5_FLOAT32_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
} }
...@@ -157,7 +157,7 @@ h5pt_readdata_i8 ( ...@@ -157,7 +157,7 @@ h5pt_readdata_i8 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data ( h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_INT64 ); f, name2, data, H5_INT64_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
...@@ -179,7 +179,7 @@ h5pt_readdata_i4 ( ...@@ -179,7 +179,7 @@ h5pt_readdata_i4 (
(h5_file_p)f, name, data, l_name); (h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name ); char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data ( h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_INT32 ); f, name2, data, H5_INT32_T );
free ( name2 ); free ( name2 );
H5_API_RETURN(herr); H5_API_RETURN(herr);
} }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment