p_mpi_address.F

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\parallel\p_mpi_address.F
00002 !
00053                         SUBROUTINE P_MPI_ADDRESS
00054 !                       ************************
00055 !
00056      &(LOCATION,ADDRESS,IER)
00057 !
00058 !***********************************************************************
00059 ! PARALLEL   V6P2                                   21/08/2010
00060 !***********************************************************************
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00067 !| ADDRESS        |-->| LOCATION IN CALLER MEMORY
00068 !| IER            |<--| ERROR VALUE
00069 !| LOCATION       |<--| ADDRESS OF LOCATION
00070 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00071 !
00072       USE DECLARATIONS_PARALLEL
00073       IMPLICIT NONE
00074 !
00075       INTEGER LNG,LU
00076       COMMON/INFO/LNG,LU
00077 !
00078 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00079 !
00080       INTEGER, INTENT(IN)                    :: LOCATION
00081       INTEGER, INTENT(OUT)                   :: IER
00082       INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: ADDRESS
00083 !
00084 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00085 !
00086 #if defined (HAVE_MPI)
00087       CALL MPI_GET_ADDRESS(LOCATION,ADDRESS,IER)
00088 !
00089       IF(IER.NE.0) THEN
00090         WRITE(LU,*) 'P_MPI_ADDRESS:'
00091         WRITE(LU,*) 'MPI ERROR ',IER
00092         CALL PLANTE(1)
00093         STOP
00094       ENDIF
00095 #else
00096       IER=0
00097       ADDRESS=0
00098       IF(LNG.EQ.1) WRITE(LU,*) 'APPEL DE P_MPI_ADDRESS VERSION VIDE'
00099       IF(LNG.EQ.2) WRITE(LU,*) 'CALL OF P_MPI_ADDRESS VOID VERSION'
00100 #endif
00101 !
00102 !----------------------------------------------------------------------
00103 !
00104       RETURN
00105       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0