4
4
! Copyright (c ) 2006 - 2014 Cisco Systems , Inc . All rights reserved .
5
5
! Copyright (c ) 2013 Los Alamos National Security , LLC . All rights
6
6
! reserved .
7
- ! Copyright (c ) 2015 Research Organization for Information Science
7
+ ! Copyright (c ) 2015 - 2016 Research Organization for Information Science
8
8
! and Technology (RIST ). All rights reserved .
9
9
! $COPYRIGHT$
10
10
!
@@ -45,7 +45,7 @@ interface
45
45
46
46
subroutine MPI_COMM_NULL_COPY_FN ( comm , comm_keyval , extra_state , &
47
47
attribute_val_in , attribute_val_out , &
48
- flag , ierr ) BIND ( C , name = "ompi_comm_null_copy_fn_f" )
48
+ flag , ierr )
49
49
use mpi_f08_types
50
50
implicit none
51
51
type (MPI_Comm ) :: comm
@@ -57,7 +57,7 @@ interface
57
57
58
58
subroutine MPI_COMM_DUP_FN ( comm , comm_keyval , extra_state , &
59
59
attribute_val_in , attribute_val_out , &
60
- flag , ierr ) BIND ( C , name = " ompi_comm_dup_fn_f ")
60
+ flag , ierr )
61
61
use mpi_f08_types
62
62
implicit none
63
63
type (MPI_Comm ) :: comm
@@ -68,7 +68,7 @@ interface
68
68
end subroutine MPI_COMM_DUP_FN
69
69
70
70
subroutine MPI_COMM_NULL_DELETE_FN (comm , comm_keyval , attribute_val_out , &
71
- extra_state , ierr ) BIND ( C , name = "ompi_comm_null_delete_fn_f" )
71
+ extra_state , ierr )
72
72
use mpi_f08_types
73
73
implicit none
74
74
type (MPI_Comm ) :: comm
@@ -81,7 +81,7 @@ interface
81
81
82
82
subroutine MPI_TYPE_NULL_COPY_FN ( type , type_keyval , extra_state , &
83
83
attribute_val_in , attribute_val_out , &
84
- flag , ierr ) BIND ( C , name = "ompi_type_null_copy_fn_f" )
84
+ flag , ierr )
85
85
use mpi_f08_types
86
86
implicit none
87
87
type (MPI_Datatype ) :: type
@@ -93,7 +93,7 @@ interface
93
93
94
94
subroutine MPI_TYPE_DUP_FN ( type , type_keyval , extra_state , &
95
95
attribute_val_in , attribute_val_out , &
96
- flag , ierr ) BIND ( C , name = " ompi_type_dup_fn_f ")
96
+ flag , ierr )
97
97
use mpi_f08_types
98
98
implicit none
99
99
type (MPI_Datatype ) :: type
@@ -104,7 +104,7 @@ interface
104
104
end subroutine MPI_TYPE_DUP_FN
105
105
106
106
subroutine MPI_TYPE_NULL_DELETE_FN ( type , type_keyval , attribute_val_out , &
107
- extra_state , ierr ) BIND ( C , name = "ompi_type_null_delete_fn_f" )
107
+ extra_state , ierr )
108
108
use mpi_f08_types
109
109
implicit none
110
110
type (MPI_Datatype ) :: type
@@ -117,7 +117,7 @@ interface
117
117
118
118
subroutine MPI_WIN_NULL_COPY_FN ( window , win_keyval , extra_state , &
119
119
attribute_val_in , attribute_val_out , &
120
- flag , ierr ) BIND ( C , name = "ompi_win_null_copy_fn_f" )
120
+ flag , ierr )
121
121
use mpi_f08_types
122
122
implicit none
123
123
type (MPI_Win ) :: window
@@ -129,7 +129,7 @@ interface
129
129
130
130
subroutine MPI_WIN_DUP_FN ( window , win_keyval , extra_state , &
131
131
attribute_val_in , attribute_val_out , &
132
- flag , ierr ) BIND ( C , name = " ompi_win_dup_fn_f ")
132
+ flag , ierr )
133
133
use mpi_f08_types
134
134
implicit none
135
135
type (MPI_Win ) :: window
@@ -140,7 +140,7 @@ interface
140
140
end subroutine MPI_WIN_DUP_FN
141
141
142
142
subroutine MPI_WIN_NULL_DELETE_FN ( window , win_keyval , attribute_val_out , &
143
- extra_state , ierr ) BIND ( C , name = "ompi_win_null_delete_fn_f" )
143
+ extra_state , ierr )
144
144
use mpi_f08_types
145
145
implicit none
146
146
type (MPI_Win ) :: window
0 commit comments