1 ! -*- f90 -*- 2 ! Copyright (c) 2004-2005 The Regents of the University of California. 3 ! All rights reserved. 4 ! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. 5 ! Copyright (c) 2013 Los Alamos National Security, LLC. All rights 6 ! reserved. 7 ! Copyright (c) 2015-2018 Research Organization for Information Science 8 ! and Technology (RIST). All rights reserved. 9 ! $COPYRIGHT$ 10 ! 11 ! Additional copyrights may follow 12 ! 13 ! $HEADER$ 14 ! 15 16 ! 17 ! INTEGER handle pre-defined attribute callback function interfaces 18 ! 19 20 interface 21 22 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 23 24 subroutine MPI_DUP_FN( comm, comm_keyval, extra_state, & 25 attribute_val_in, attribute_val_out, & 26 flag, ierr ) 27 implicit none 28 integer :: comm, comm_keyval, extra_state 29 integer :: attribute_val_in, attribute_val_out, ierr 30 logical :: flag 31 end subroutine MPI_DUP_FN 32 33 subroutine MPI_NULL_COPY_FN( comm, comm_keyval, extra_state, & 34 attribute_val_in, attribute_val_out, & 35 flag, ierr ) 36 implicit none 37 integer :: comm 38 integer :: comm_keyval, extra_state 39 integer :: attribute_val_in, attribute_val_out, ierr 40 logical :: flag 41 end subroutine MPI_NULL_COPY_FN 42 43 subroutine MPI_NULL_DELETE_FN( comm, comm_keyval, attribute_val_out, & 44 extra_state, ierr ) 45 implicit none 46 integer :: comm 47 integer :: comm_keyval, attribute_val_out, extra_state, ierr 48 end subroutine MPI_NULL_DELETE_FN 49 50 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 51 52 subroutine MPI_COMM_DUP_FN(oldcomm, comm_keyval, extra_state, attribute_val_in, & 53 attribute_val_out, flag, ierr ) 54 implicit none 55 include 'mpif-config.h' 56 integer :: oldcomm 57 integer :: comm_keyval 58 integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out 59 logical :: flag 60 integer :: ierr 61 end subroutine MPI_COMM_DUP_FN 62 63 subroutine MPI_COMM_NULL_COPY_FN( comm, comm_keyval, extra_state, & 64 attribute_val_in, attribute_val_out, & 65 flag, ierr ) 66 implicit none 67 include 'mpif-config.h' 68 integer :: comm 69 integer :: comm_keyval 70 integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out 71 integer :: ierr 72 logical :: flag 73 end subroutine MPI_COMM_NULL_COPY_FN 74 75 subroutine MPI_COMM_NULL_DELETE_FN(comm, comm_keyval, attribute_val_out, & 76 extra_state, ierr ) 77 implicit none 78 include 'mpif-config.h' 79 integer :: comm 80 integer :: comm_keyval 81 integer(kind=MPI_ADDRESS_KIND) :: attribute_val_out, extra_state 82 integer :: ierr 83 end subroutine MPI_COMM_NULL_DELETE_FN 84 85 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 86 87 subroutine MPI_TYPE_DUP_FN( datatype, type_keyval, extra_state, & 88 attribute_val_in, attribute_val_out, & 89 flag, ierr ) 90 implicit none 91 include 'mpif-config.h' 92 integer :: datatype 93 integer :: type_keyval 94 integer(KIND=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out 95 logical :: flag 96 integer :: ierr 97 end subroutine MPI_TYPE_DUP_FN 98 99 subroutine MPI_TYPE_NULL_COPY_FN( datatype, type_keyval, extra_state, & 100 attribute_val_in, attribute_val_out, & 101 flag, ierr ) 102 implicit none 103 include 'mpif-config.h' 104 integer :: datatype 105 integer :: type_keyval 106 integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out 107 integer :: ierr 108 logical :: flag 109 end subroutine MPI_TYPE_NULL_COPY_FN 110 111 subroutine MPI_TYPE_NULL_DELETE_FN( datatype, type_keyval, attribute_val_out, & 112 extra_state, ierr ) 113 implicit none 114 include 'mpif-config.h' 115 integer :: datatype 116 integer :: type_keyval 117 integer(kind=MPI_ADDRESS_KIND) :: attribute_val_out, extra_state 118 integer :: ierr 119 end subroutine MPI_TYPE_NULL_DELETE_FN 120 121 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 122 123 subroutine MPI_WIN_DUP_FN( oldwin, win_keyval, extra_state, & 124 attribute_val_in, attribute_val_out, & 125 flag, ierr) 126 implicit none 127 include 'mpif-config.h' 128 integer :: oldwin 129 integer :: win_keyval 130 integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out 131 logical :: flag 132 integer :: ierr 133 end subroutine MPI_WIN_DUP_FN 134 135 subroutine MPI_WIN_NULL_COPY_FN( window, win_keyval, extra_state, & 136 attribute_val_in, attribute_val_out, & 137 flag, ierr ) 138 implicit none 139 include 'mpif-config.h' 140 integer :: window 141 integer :: win_keyval 142 integer(kind=MPI_ADDRESS_KIND) :: extra_state, attribute_val_in, attribute_val_out 143 integer :: ierr 144 logical :: flag 145 end subroutine MPI_WIN_NULL_COPY_FN 146 147 subroutine MPI_WIN_NULL_DELETE_FN( window, win_keyval, attribute_val_out, & 148 extra_state, ierr ) 149 implicit none 150 include 'mpif-config.h' 151 integer :: window 152 integer :: win_keyval 153 integer(kind=MPI_ADDRESS_KIND) :: attribute_val_out, extra_state 154 integer :: ierr 155 end subroutine MPI_WIN_NULL_DELETE_FN 156 157 end interface