*** .mpich/src/coll/global_ops.c	Mon Jul 24 21:45:09 1995
--- global_ops.c	Thu Aug 10 19:20:09 1995
***************
*** 1,14 ****
  /*
!  *  $Id: global_ops.c,v 1.31 1995/07/25 02:45:08 gropp Exp $
   *
   *  (C) 1993 by Argonne National Laboratory and Mississipi State University.
   *      See COPYRIGHT in top-level directory.
   */
  
  
  #ifndef lint
! static char vcid[] = "$Id: global_ops.c,v 1.31 1995/07/25 02:45:08 gropp Exp $";
  #endif /* lint */
  
  
  /* 
--- 1,14 ----
  /*
!  *  $Id: global_ops.c,v 1.32 1995/08/11 00:20:08 gropp Exp $
   *
   *  (C) 1993 by Argonne National Laboratory and Mississipi State University.
   *      See COPYRIGHT in top-level directory.
   */
  
  
  #ifndef lint
! static char vcid[] = "$Id: global_ops.c,v 1.32 1995/08/11 00:20:08 gropp Exp $";
  #endif /* lint */
  
  
  /* 
***************
*** 1055,1062 ****
--- 1055,1077 ----
          }
        }
        break;
      }
+ #if defined(HAVE_LONG_DOUBLE)
+     case MPIR_LONGDOUBLE: {
+       long double *a = (long double *)inoutvec;
+       long double *b = (long double *)invec;
+       for ( i=0; i<len; i+=2 ) {
+         if (a[i] == b[i])
+           a[i+1] = MPIR_MIN(a[i+1],b[i+1]);
+         else if (a[i] < b[i]) {
+           a[i]   = b[i];
+           a[i+1] = b[i+1];
+         }
+       }
+       break;
+     }
+ #endif
      default: 
        MPIR_ERROR(MPI_COMM_WORLD, MPI_ERR_OP|MPIR_ERR_NOT_DEFINED, 
                   "MAXLOC operation not supported on type");
        break;
***************
*** 1234,1241 ****
--- 1249,1271 ----
          }
        }
        break;
      }
+ #ifdef HAVE_LONG_DOUBLE
+     case MPIR_LONGDOUBLE: {
+       long double *a = (long double *)inoutvec;
+       long double *b = (long double *)invec;
+       for ( i=0; i<len; i+=2 ) {
+         if (a[i] == b[i])
+           a[i+1] = MPIR_MIN(a[i+1],b[i+1]);
+         else if (a[i] > b[i]) {
+           a[i]   = b[i];
+           a[i+1] = b[i+1];
+         }
+       }
+       break;
+     }
+ #endif
      default: 
        MPIR_ERROR(MPI_COMM_WORLD, MPI_ERR_OP|MPIR_ERR_NOT_DEFINED, 
                   "MINLOC operation not supported on type");
        break;