Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Rob Latham
MPICH-BlueGene
Commits
68113ff6
Commit
68113ff6
authored
Nov 17, 2014
by
Junchao Zhang
Browse files
Fix an arg name in MPI_TYPE_NULL_DELETE_FN
No reviewer
parent
960a9c8a
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/binding/fortran/use_mpi_f08/mpi_f08_callbacks.F90
View file @
68113ff6
...
...
@@ -237,12 +237,12 @@ subroutine MPI_TYPE_NULL_COPY_FN(oldtype,type_keyval,extra_state, &
ierror
=
MPI_SUCCESS
end
subroutine
subroutine
MPI_TYPE_NULL_DELETE_FN
(
type
,
type_keyval
,
&
subroutine
MPI_TYPE_NULL_DELETE_FN
(
data
type
,
type_keyval
,
&
attribute_val
,
extra_state
,
ierror
)
use
mpi_f08_types
,
only
:
MPI_Datatype
use
mpi_f08_compile_constants
,
only
:
MPI_ADDRESS_KIND
,
MPI_SUCCESS
implicit
none
type
(
MPI_Datatype
)
::
type
type
(
MPI_Datatype
)
::
data
type
integer
::
type_keyval
,
ierror
integer
(
kind
=
MPI_ADDRESS_KIND
)
::
attribute_val
,
extra_state
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment