mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-19 16:50:46 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r4866]

Browse Source 
Purpose:
    Maintenance
Description:
    Several compiler's warnings caused Hitachi SR8000
    F90 and C compilers to fail.
Solution:
    Fixed the code to eliminate warnings.
Platforms tested:
    O2K (modi4) and Solaris 2.7 (arabica)
This commit is contained in:
Elena Pourmal 2002-01-26 10:48:49 -05:00
parent c41e250354
commit f7bac2b4b9
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5Git.c
View File

@ -9,8 +9,8 @@
#include "H5Git.h"
#define FALSE 0
herr_t count_elems(hid_t loc_id, const char *name, void *opdata);
herr_t obj_info(hid_t loc_id, const char *name, void *opdata);
static herr_t count_elems(hid_t loc_id, const char *name, void *opdata);
static herr_t obj_info(hid_t loc_id, const char *name, void *opdata);
typedef struct retval {
char * name;

2
fortran/src/H5_f.c
View File

@ -268,7 +268,7 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags,
h5s_flags[1] = H5S_SIMPLE;
h5s_flags[2] = H5S_SELECT_SET;
h5s_flags[3] = H5S_SELECT_OR;
h5s_flags[4] = H5S_UNLIMITED;
h5s_flags[4] = (int_f)H5S_UNLIMITED;
h5s_flags[5] = H5S_ALL;
/*

2
fortran/src/H5f90proto.h
View File

@ -3,7 +3,7 @@
#include "H5Git.h"
__DLL__ int HD5c2fstr(char *str, int len);
__DLL__ char * HD5fcstring (_fcd fdesc, int len);
__DLL__ char * HD5f2cstring (_fcd fdesc, int len);
__DLL__ int HDpackFstring(char *src, char *dest, int len);
/*

3
fortran/test/tH5T.f90
View File

@ -66,6 +66,7 @@
INTEGER :: len ! Lenght of the name of the compound datatype member
LOGICAL :: flag
INTEGER(HSIZE_T), DIMENSION(3) :: array_dims=(/2,3,4/)
INTEGER :: array_dims_range = 3
INTEGER :: elements = 24 ! number of elements in the array_dims array.
INTEGER(SIZE_T) :: sizechar
INTEGER, DIMENSION(7) :: data_dims
@ -243,7 +244,7 @@
CALL h5tinsert_f(dtarray_id, "char_field", offset, H5T_NATIVE_CHARACTER, error)
CALL check("h5tinsert_f", error, total_error)
offset = type_sizec
CALL h5tarray_create_f(H5T_NATIVE_REAL, size(array_dims), array_dims, arrayt_id, error)
CALL h5tarray_create_f(H5T_NATIVE_REAL, array_dims_range, array_dims, arrayt_id, error)
CALL check("h5tarray_create_f", error, total_error)
CALL h5tinsert_f(dtarray_id,"array_field", offset, arrayt_id, error)
CALL check("h5tinsert_f", error, total_error)