From 76b95a4ee74436f68b892a09c57256365668d6f8 Mon Sep 17 00:00:00 2001 From: Rainer Keller Date: Fri, 25 Jan 2008 10:36:42 +0000 Subject: [PATCH] - Just indentation and spelling This commit was SVN r17228. --- ompi/info/info.c | 10 +++--- ompi/mpi/f90/attr_fn-f90-interfaces.h | 44 +++++++++++++-------------- 2 files changed, 27 insertions(+), 27 deletions(-) diff --git a/ompi/info/info.c b/ompi/info/info.c index 7d4e85bd51..5385a7b3e5 100644 --- a/ompi/info/info.c +++ b/ompi/info/info.c @@ -141,14 +141,14 @@ int ompi_info_set (ompi_info_t *info, char *key, char *value) /* * key already exists. remove the value associated with it */ - free(old_info->ie_value); - old_info->ie_value = new_value; + free(old_info->ie_value); + old_info->ie_value = new_value; } else { - new_info = OBJ_NEW(ompi_info_entry_t); - if (NULL == new_info) { + new_info = OBJ_NEW(ompi_info_entry_t); + if (NULL == new_info) { OPAL_THREAD_UNLOCK(info->i_lock); return MPI_ERR_NO_MEM; - } + } strncpy (new_info->ie_key, key, MPI_MAX_INFO_KEY); new_info->ie_value = new_value; opal_list_append (&(info->super), (opal_list_item_t *) new_info); diff --git a/ompi/mpi/f90/attr_fn-f90-interfaces.h b/ompi/mpi/f90/attr_fn-f90-interfaces.h index 9da88b445b..19ae41e621 100644 --- a/ompi/mpi/f90/attr_fn-f90-interfaces.h +++ b/ompi/mpi/f90/attr_fn-f90-interfaces.h @@ -3,16 +3,16 @@ ! All rights reserved. ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved. ! $COPYRIGHT$ -! +! ! Additional copyrights may follow -! +! ! $HEADER$ ! ! Note about these declarations: these are "external" functions in ! mpif-common.h. However, if we don't declare them here, compilers will add ! them to the "mpi" module namespace, and result in linker errors if MPI -! F90 applications try to use them. because the implementations of +! F90 applications try to use them. Because the implementations of ! these functions are not in the MPI module namespace -- they're the F77 ! functions. @@ -24,79 +24,79 @@ interface end subroutine mpi_type_null_delete_fn subroutine mpi_type_null_copy_fn( type, type_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: type, type_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag end subroutine mpi_type_null_copy_fn subroutine mpi_type_dup_fn( type, type_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: type, type_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag end subroutine mpi_type_dup_fn subroutine mpi_comm_null_delete_fn(comm, comm_keyval, attribute_val_out, & - extra_state, ierr ) + extra_state, ierr ) integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr end subroutine mpi_comm_null_delete_fn subroutine mpi_comm_null_copy_fn( comm, comm_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: comm, comm_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag end subroutine mpi_comm_null_copy_fn subroutine mpi_comm_dup_fn( comm, comm_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: comm, comm_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag end subroutine mpi_comm_dup_fn subroutine mpi_null_delete_fn( comm, comm_keyval, attribute_val_out, & - extra_state, ierr ) + extra_state, ierr ) integer :: comm, comm_keyval, attribute_val_out, extra_state, ierr end subroutine mpi_null_delete_fn subroutine mpi_null_copy_fn( comm, comm_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: comm, comm_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag end subroutine mpi_null_copy_fn subroutine mpi_dup_fn( comm, comm_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: comm, comm_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag end subroutine mpi_dup_fn subroutine mpi_win_null_delete_fn( window, win_keyval, attribute_val_out, & - extra_state, ierr ) + extra_state, ierr ) integer :: window, win_keyval, attribute_val_out, extra_state, ierr end subroutine mpi_win_null_delete_fn subroutine mpi_win_null_copy_fn( window, win_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: window, win_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag end subroutine mpi_win_null_copy_fn subroutine mpi_win_dup_fn( window, win_keyval, extra_state, & - attribute_val_in, attribute_val_out, & - flag, ierr ) + attribute_val_in, attribute_val_out, & + flag, ierr ) integer :: window, win_keyval, extra_state integer :: attribute_val_in, attribute_val_out, ierr logical :: flag