p_mpi_address2.F

Go to the documentation of this file.

!                       *************************
                        SUBROUTINE p_mpi_address2
!                       *************************
!
     &(location,address,ier)
!
!***********************************************************************
! PARALLEL   V6P2                                   21/08/2010
!***********************************************************************
!
!brief    CALLS FUNCTION MPI_ADDRESS (HERE 1ST ARGUMENT
!+                DOUBLE PRECISION).
!
!history  J.-M. HERVOUET (LNHE)
!+        19/08/2008
!+        V5P9
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| ADDRESS        |-->| LOCATION IN CALLER MEMORY
!| IER            |<--| ERROR VALUE
!| LOCATION       |<--| ADDRESS OF LOCATION
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_parallel
      USE declarations_special
      IMPLICIT NONE
!
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      DOUBLE PRECISION, INTENT(IN)            :: LOCATION
      INTEGER, INTENT(OUT)                    :: IER
      INTEGER (KIND=MY_ADDRESS_KIND), INTENT(OUT) :: ADDRESS
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
#if defined HAVE_MPI
!     TERMINATE ON MPI PARTS NOT HANDLED BY COMPAD
#  if defined COMPAD
      WRITE(lu,*) 'P_MPI_ADDRESS2: COMPAD MAYBE CRITICAL',
     &     'MPI OPERATION'
      WRITE(lu,*) '  PLEASE CONTACT JR @ ADJOINTWARE'
      CALL plante(1)
      stop
#  endif
      CALL mpi_get_address(location,address,ier)
!
      IF(ier.NE.0) THEN
        WRITE(lu,*) 'P_MPI_ADDRESS2:'
        WRITE(lu,*) 'MPI ERROR ',ier
        CALL plante(1)
        stop
      ENDIF
#else
      ier=0
      address=0
      WRITE(lu,*) 'CALL OF P_MPI_ADDRESS2 VOID VERSION'
#endif
!
!----------------------------------------------------------------------
!
      RETURN
      END