mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-30 15:32:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r11427] Purpose: SX-6 port

Browse Source 
Description:

Fortran multi_file test failed on SX-6. It turned out that compiler
could not handle (long long HADDR_MAX) * ( float var). The result of this
operation was 0.

Solution:

Introduced long double variable to store the value of HADDR_MAX
and use the new variable in * operation. (Suggested by John)

Platforms tested: SX-6, mir with PGI compilers; a very minor change

Misc. update:
This commit is contained in:
Elena Pourmal 2005-09-17 18:43:27 -05:00
parent 2540abc1c9
commit f8e7064269
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/src/H5Pf.c
View File

@ -2899,6 +2899,7 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f
int c_lenmax;
c_lenmax = (int)*lenmax;
relax = (hbool_t)*flag;
long double tmp_max_addr;
/*
* Check that we got correct values from Fortran for memb_addr array
*/
@ -2925,7 +2926,7 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f
/*
* Take care of othe arguments
*/
tmp_max_addr = (long double)(HADDR_MAX);
c_prp_id = (hid_t)*prp_id;
for (i=0; i < H5FD_MEM_NTYPES; i++) {
c_memb_map[i] = (H5FD_mem_t)memb_map[i];
@ -2933,7 +2934,8 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f
c_memb_fapl[i] = (hid_t)memb_fapl[i];
/*printf("fapl %d \n", c_memb_fapl[i]); */
if(memb_addr[i] < 0) c_memb_addr[i] = HADDR_UNDEF;
else c_memb_addr[i] = (haddr_t)(((float)memb_addr[i])*(HADDR_MAX));
/* else c_memb_addr[i] = (haddr_t)(((float)memb_addr[i])*(HADDR_MAX));*/
else c_memb_addr[i] = (haddr_t)(((float)memb_addr[i])*(tmp_max_addr));
/*printf("address %Ld \n", c_memb_addr[i]); */
}
/*