From 4adaaa0b2bfe32d4ed05948fb779edfe56b836db Mon Sep 17 00:00:00 2001 From: George Bosilca Date: Mon, 5 Aug 2013 21:07:32 +0000 Subject: [PATCH] Fix the profiling prototypes and the copyright. This commit was SVN r29000. --- ompi/mpi/fortran/mpif-h/prototypes_mpi.h | 2 +- ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c | 4 ++-- ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c | 4 ++-- ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c | 4 ++-- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/ompi/mpi/fortran/mpif-h/prototypes_mpi.h b/ompi/mpi/fortran/mpif-h/prototypes_mpi.h index d81b17e139..16b672003a 100644 --- a/ompi/mpi/fortran/mpif-h/prototypes_mpi.h +++ b/ompi/mpi/fortran/mpif-h/prototypes_mpi.h @@ -2,7 +2,7 @@ * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana * University Research and Technology * Corporation. All rights reserved. - * Copyright (c) 2004-2012 The University of Tennessee and The University + * Copyright (c) 2004-2013 The University of Tennessee and The University * of Tennessee Research Foundation. All rights * reserved. * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, diff --git a/ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c b/ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c index 844eebe8de..438646d5c4 100644 --- a/ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c +++ b/ompi/mpi/fortran/mpif-h/status_set_elements_x_f.c @@ -2,7 +2,7 @@ * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana * University Research and Technology * Corporation. All rights reserved. - * Copyright (c) 2004-2005 The University of Tennessee and The University + * Copyright (c) 2004-2013 The University of Tennessee and The University * of Tennessee Research Foundation. All rights * reserved. * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, @@ -38,7 +38,7 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_STATUS_SET_ELEMENTS_X, pmpi_status_set_elements_x_, pmpi_status_set_elements_x__, pompi_status_set_elements_x_f, - (MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr), + (MPI_Fint *status, MPI_Fint *datatype, MPI_Count *count, MPI_Fint *ierr), (status, datatype, count, ierr) ) #endif diff --git a/ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c b/ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c index 750c6fb7a7..3e20dc78bf 100644 --- a/ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c +++ b/ompi/mpi/fortran/mpif-h/type_get_extent_x_f.c @@ -2,7 +2,7 @@ * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana * University Research and Technology * Corporation. All rights reserved. - * Copyright (c) 2004-2005 The University of Tennessee and The University + * Copyright (c) 2004-2013 The University of Tennessee and The University * of Tennessee Research Foundation. All rights * reserved. * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, @@ -37,7 +37,7 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_EXTENT_X, pmpi_type_get_extent_x_, pmpi_type_get_extent_x__, pompi_type_get_extent_x_f, - (MPI_Fint *type, MPI_Aint *lb, MPI_Aint *extent, MPI_Fint *ierr), + (MPI_Fint *type, MPI_Count *lb, MPI_Count *extent, MPI_Fint *ierr), (type, lb, extent, ierr) ) #endif diff --git a/ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c b/ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c index 0ba550cd6d..03f240b01a 100644 --- a/ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c +++ b/ompi/mpi/fortran/mpif-h/type_get_true_extent_x_f.c @@ -2,7 +2,7 @@ * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana * University Research and Technology * Corporation. All rights reserved. - * Copyright (c) 2004-2005 The University of Tennessee and The University + * Copyright (c) 2004-2013 The University of Tennessee and The University * of Tennessee Research Foundation. All rights * reserved. * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, @@ -37,7 +37,7 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_TRUE_EXTENT_X, pmpi_type_get_true_extent_x_, pmpi_type_get_true_extent_x__, pompi_type_get_true_extent_x_f, - (MPI_Fint *datatype, MPI_Aint *true_lb, MPI_Count *true_extent, MPI_Count *ierr), + (MPI_Fint *datatype, MPI_Count *true_lb, MPI_Count *true_extent, MPI_Fint *ierr), (datatype, true_lb, true_extent, ierr) ) #endif