From 15cab4e5c58af2980c81758b8d6d7327d982a82a Mon Sep 17 00:00:00 2001
From: George Bosilca <bosilca@icl.utk.edu>
Date: Thu, 10 Jun 2004 17:12:29 +0000
Subject: [PATCH] Quick implementation of the MPI_Address function.

This commit was SVN r1217.
---
 src/mpi/c/address.c | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/mpi/c/address.c b/src/mpi/c/address.c
index 656c0eebf6..81c6627ecb 100644
--- a/src/mpi/c/address.c
+++ b/src/mpi/c/address.c
@@ -16,6 +16,16 @@
 #include "mpi/c/profile/defines.h"
 #endif
 
-int MPI_Address(void *location, MPI_Aint *address){
+static char FUNC_NAME[] = "MPI_Address";
+
+int MPI_Address(void *location, MPI_Aint *address)
+{
+    if( MPI_PARAM_CHECK ) {
+        if( OMPI_MPI_INVALID_STATE ) {
+            OMPI_ERRHANDLER_RETURN( MPI_ERR_INTERN, (ompi_communicator_t*)NULL,
+                                    MPI_ERR_INTERN, FUNC_NAME );
+        }
+    }
+    *address = (MPI_Aint)location;
 	return MPI_SUCCESS;
 }