[svn-r12126] Purpose:
bug fix Description: the compare check for the datatype sign was not done in the correct place, causing invalid comparisons to be made Solution: put it on the correct place Platforms tested: linux 32, 64 AIX Misc. update:
This commit is contained in:
@@ -89,70 +89,6 @@ printf("Result: bytes_written=%ld, OUTBUFF_SIZE-outBuffOffset=%ld\n", (long)byte
|
||||
va_end(ap);
|
||||
}
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: print_pos
|
||||
*
|
||||
* Purpose: convert an array index position to matrix notation
|
||||
*
|
||||
* Return: pos matrix array
|
||||
*
|
||||
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
||||
*
|
||||
* Date: May 9, 2003
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
void print_pos( int *ph,
|
||||
int per,
|
||||
hsize_t curr_pos,
|
||||
hsize_t *acc,
|
||||
hsize_t *pos,
|
||||
int rank,
|
||||
const char *obj1,
|
||||
const char *obj2 )
|
||||
{
|
||||
int i;
|
||||
|
||||
/* print header */
|
||||
if ( *ph==1 )
|
||||
{
|
||||
*ph=0;
|
||||
if (per)
|
||||
{
|
||||
parallel_print("%-15s %-15s %-15s %-15s %-15s\n",
|
||||
"position",
|
||||
(obj1!=NULL) ? obj1 : " ",
|
||||
(obj2!=NULL) ? obj2 : " ",
|
||||
"difference",
|
||||
"relative");
|
||||
parallel_print("------------------------------------------------------------------------\n");
|
||||
}
|
||||
else
|
||||
{
|
||||
parallel_print("%-15s %-15s %-15s %-20s\n",
|
||||
"position",
|
||||
(obj1!=NULL) ? obj1 : " ",
|
||||
(obj2!=NULL) ? obj2 : " ",
|
||||
"difference");
|
||||
parallel_print("------------------------------------------------------------\n");
|
||||
}
|
||||
}
|
||||
|
||||
for ( i = 0; i < rank; i++)
|
||||
{
|
||||
pos[i] = curr_pos/acc[i];
|
||||
curr_pos -= acc[i]*pos[i];
|
||||
}
|
||||
assert( curr_pos == 0 );
|
||||
|
||||
parallel_print("[ " );
|
||||
for ( i = 0; i < rank; i++)
|
||||
{
|
||||
/* HDfprintf(stdout,"%Hu ", pos[i] ); */
|
||||
parallel_print("%"H5_PRINTF_LL_WIDTH"u ", (unsigned long_long)pos[i]);
|
||||
}
|
||||
parallel_print("]" );
|
||||
}
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: print_dims
|
||||
|
||||
Reference in New Issue
Block a user