mpiP/fortran_vars.f at main · llnl/mpiP · GitHub

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
! -*- Fortran -*-
!
!   mpiP MPI Profiler ( http://llnl.github.io/mpiP )
!
!   Please see COPYRIGHT AND LICENSE information at the end of this file.
!
!   -----
!
!   fortran_vars.f -- gathers the memory locations of the
!                     pointers MPI_IN_PLACE, MPI_BOTTOM,
!                     MPI_STATUS_IGNORE and MPI_STATUSES_IGNORE,
!                     which are in a COMMON block and therefore
!                     have different addresses than their
!                     C equivalents.
!
!   $Id$
!

      subroutine fortran_vars ( f_in_place, f_bottom, f_status_ignore,
     &                          f_statuses_ignore )
     &                          bind ( C, name="fortran_vars" )

      use iso_c_binding, only: c_size_t
      implicit none
      include 'mpif.h'

      integer (kind=c_size_t), intent (inout) :: f_in_place, f_bottom
      integer (kind=c_size_t), intent (inout) :: f_status_ignore,
     &                                           f_statuses_ignore

      f_in_place = LOC(MPI_IN_PLACE)
      f_bottom = LOC(MPI_BOTTOM)
      f_status_ignore = LOC(MPI_STATUS_IGNORE)
      f_statuses_ignore = LOC(MPI_STATUSES_IGNORE)

      return
      end subroutine fortran_vars