Index: src/pt2pt/type_hind.c
===================================================================
RCS file: /MPIhome/mpich/src/pt2pt/type_hind.c,v
retrieving revision 1.11
retrieving revision 1.12
diff -r1.11 -r1.12
0a1
> /* -*- Mode: C; c-basic-offset:4 ; -*- */
2c3
<  *  $Id: type_hind.c,v 1.11 2001/11/14 20:10:07 ashton Exp $
---
>  *  $Id: type_hind.c,v 1.12 2002/07/08 13:29:38 gropp Exp $
125a127,131
>   /*
>    * Compute the ub and lb based on the indices and extent of the 
>    * base type.  Note that these are *relative* to the old type.
>    * The final lb and ub must be offset by the lb of the old type.
>    */
163c169,176
<   /* Set the upper/lower bounds and the extent and size */
---
>   /* Set the upper/lower bounds and the extent and size.
>      Update all of these to reflect the lb of the old type */
>   if (old_dtype_ptr->real_lb != 0) {
>       low  += old_dtype_ptr->real_lb;
>       high += old_dtype_ptr->real_lb;
>       real_lb += old_dtype_ptr->real_lb;
>       real_ub =+ old_dtype_ptr->real_lb;
>   }

.