1
1

- Just indentation and spelling

This commit was SVN r17228.
Этот коммит содержится в:
Rainer Keller 2008-01-25 10:36:42 +00:00
родитель f7e586fc01
Коммит 76b95a4ee7
2 изменённых файлов: 27 добавлений и 27 удалений

Просмотреть файл

@ -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);

Просмотреть файл

@ -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