1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185
|
! -*- fortran -*-
!
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
! University Research and Technology
! Corporation. All rights reserved.
! Copyright (c) 2004-2005 The University of Tennessee and The University
! of Tennessee Research Foundation. All rights
! reserved.
! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
! University of Stuttgart. All rights reserved.
! Copyright (c) 2004-2005 The Regents of the University of California.
! All rights reserved.
! Copyright (c) 2006-2021 Cisco Systems, Inc. All rights reserved
! Copyright (c) 2016 Research Organization for Information Science
! and Technology (RIST). All rights reserved.
! Copyright (c) 2018 Los Alamos National Security, LLC. All rights
! reserved.
! $COPYRIGHT$
!
! Additional copyrights may follow
!
! $HEADER$
!
interface
subroutine MPI_Attr_delete(comm, keyval, ierror)
integer, intent(in) :: comm
integer, intent(in) :: keyval
integer, intent(out) :: ierror
end subroutine MPI_Attr_delete
end interface
interface
subroutine MPI_Attr_get(comm, keyval, attribute_val, flag, ierror)
integer, intent(in) :: comm
integer, intent(in) :: keyval
integer, intent(out) :: attribute_val
logical, intent(out) :: flag
integer, intent(out) :: ierror
end subroutine MPI_Attr_get
end interface
interface
subroutine MPI_Attr_put(comm, keyval, attribute_val, ierror)
integer, intent(in) :: comm
integer, intent(in) :: keyval
integer, intent(in) :: attribute_val
integer, intent(out) :: ierror
end subroutine MPI_Attr_put
end interface
interface
subroutine MPI_Errhandler_create(function, errhandler, ierror)
external :: function
integer, intent(out) :: errhandler
integer, intent(out) :: ierror
end subroutine MPI_Errhandler_create
end interface
interface
subroutine MPI_Errhandler_get(comm, errhandler, ierror)
integer, intent(in) :: comm
integer, intent(out) :: errhandler
integer, intent(out) :: ierror
end subroutine MPI_Errhandler_get
end interface
interface
subroutine MPI_Errhandler_set(comm, errhandler, ierror)
integer, intent(in) :: comm
integer, intent(in) :: errhandler
integer, intent(out) :: ierror
end subroutine MPI_Errhandler_set
end interface
interface
subroutine MPI_Keyval_create(copy_fn, delete_fn, keyval, extra_state, ierror)
external :: copy_fn
external :: delete_fn
integer, intent(out) :: keyval
integer, intent(in) :: extra_state
integer, intent(out) :: ierror
end subroutine MPI_Keyval_create
end interface
interface
subroutine MPI_Keyval_free(keyval, ierror)
integer, intent(inout) :: keyval
integer, intent(out) :: ierror
end subroutine MPI_Keyval_free
end interface
interface
subroutine MPI_Type_extent(datatype, extent, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: extent
integer, intent(out) :: ierror
end subroutine MPI_Type_extent
end interface
interface
subroutine MPI_Type_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype&
, ierror)
integer, intent(in) :: count
integer, dimension(*), intent(in) :: array_of_blocklengths
integer, dimension(*), intent(in) :: array_of_displacements
integer, intent(in) :: oldtype
integer, intent(out) :: newtype
integer, intent(out) :: ierror
end subroutine MPI_Type_hindexed
end interface
interface
subroutine MPI_Type_hvector(count, blocklength, stride, oldtype, newtype&
, ierror)
integer, intent(in) :: count
integer, intent(in) :: blocklength
integer, intent(in) :: stride
integer, intent(in) :: oldtype
integer, intent(out) :: newtype
integer, intent(out) :: ierror
end subroutine MPI_Type_hvector
end interface
interface
subroutine MPI_Type_lb(datatype, lb, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: lb
integer, intent(out) :: ierror
end subroutine MPI_Type_lb
end interface
interface
subroutine MPI_Type_struct(count, array_of_blocklengths, array_of_displacements, array_of_types, newtype&
, ierror)
integer, intent(in) :: count
integer, dimension(*), intent(in) :: array_of_blocklengths
integer, dimension(*), intent(in) :: array_of_displacements
integer, dimension(*), intent(in) :: array_of_types
integer, intent(out) :: newtype
integer, intent(out) :: ierror
end subroutine MPI_Type_struct
end interface
interface
subroutine MPI_Type_ub(datatype, ub, ierror)
integer, intent(in) :: datatype
integer, intent(out) :: ub
integer, intent(out) :: ierror
end subroutine MPI_Type_ub
end interface
|