- Just indentation and spelling
This commit was SVN r17228.
Этот коммит содержится в:
родитель
f7e586fc01
Коммит
76b95a4ee7
@ -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
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user