H5hut/src
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fortran-API:

Browse Source 
- use enumeration for data-types
This commit is contained in:
gsell
2016-07-01 15:34:31 +02:00
parent fc29f7b6f0
commit 21dd57c9c6
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Fortran/H5Part_io.c
+8 -8
View File
@@ -29,7 +29,7 @@ h5pt_writedata_r8 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_DOUBLE );
f, name2, (void*)data, H5_FLOAT64_T );
free ( name2 );
H5_API_RETURN(herr);
}
@@ -50,7 +50,7 @@ h5pt_writedata_r4 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_FLOAT );
f, name2, (void*)data, H5_FLOAT32_T );
free ( name2 );
H5_API_RETURN(herr);
}
@@ -71,7 +71,7 @@ h5pt_writedata_i8 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_INT64 );
f, name2, (void*)data, H5_INT64_T );
free ( name2 );
H5_API_RETURN(herr);
}
@@ -92,7 +92,7 @@ h5pt_writedata_i4 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_write_data (
f, name2, (void*)data, H5T_NATIVE_INT32 );
f, name2, (void*)data, H5_INT32_T );
free ( name2 );
H5_API_RETURN(herr);
}
@@ -115,7 +115,7 @@ h5pt_readdata_r8 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_DOUBLE );
f, name2, data, H5_FLOAT64_T );
free ( name2 );
H5_API_RETURN(herr);
}
@@ -136,7 +136,7 @@ h5pt_readdata_r4 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_FLOAT );
f, name2, data, H5_FLOAT32_T );
free ( name2 );
H5_API_RETURN(herr);
}
@@ -157,7 +157,7 @@ h5pt_readdata_i8 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_INT64 );
f, name2, data, H5_INT64_T );
free ( name2 );
H5_API_RETURN(herr);
@@ -179,7 +179,7 @@ h5pt_readdata_i4 (
(h5_file_p)f, name, data, l_name);
char *name2 = h5_strdupfor2c ( name, l_name );
h5_int64_t herr = h5u_read_data (
f, name2, data, H5T_NATIVE_INT32 );
f, name2, data, H5_INT32_T );
free ( name2 );
H5_API_RETURN(herr);
}