1
1

Fix F90 interface for MPI_CART_CREATE. Thanks to Michal Charemza for

reporting the problem.

This commit was SVN r17395.
Этот коммит содержится в:
Jeff Squyres 2008-02-07 12:46:32 +00:00
родитель 51f8308c68
Коммит 213679488a

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

@ -5,7 +5,7 @@
# Corporation. All rights reserved.
# Copyright (c) 2004-2006 The Regents of the University of California.
# All rights reserved.
# Copyright (c) 2006-2007 Cisco Systems, Inc. All rights reserved.
# Copyright (c) 2006-2008 Cisco Systems, Inc. All rights reserved.
# $COPYRIGHT$
#
# Additional copyrights may follow
@ -1092,8 +1092,8 @@ subroutine ${procedure}(old_comm, ndims, dims, periods, reorder, &
integer, intent(in) :: old_comm
integer, intent(in) :: ndims
integer, dimension(*), intent(in) :: dims
integer, dimension(*), intent(in) :: periods
integer, intent(in) :: reorder
logical, dimension(*), intent(in) :: periods
logical, intent(in) :: reorder
integer, intent(out) :: comm_cart
integer, intent(out) :: ierr
end subroutine ${procedure}