root/ompi/mpi/fortran/base/attr-fn-int-callback-interfaces.h

/* [<][>][^][v][top][bottom][index][help] */
   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

/* [<][>][^][v][top][bottom][index][help] */