implement mpi_group_rank mpi_group_size.

This commit was SVN r781.

src/mpi/group/group.h

@@ -57,4 +57,25 @@ int lam_group_init(void);
  */
 int lam_group_finalize(void);
 
+/**
+ * Get group size
+ *
+ * @param group Pointer to lam_group_t structute (IN)
+ *
+ * @return Group size
+ */
+static inline int lam_group_size(lam_group_t *group){
+    return group->grp_proc_count;
+}
+
+/**
+ * Get group rank
+ *
+ * @param group Pointer to lam_group_t structute (IN)
+ *
+ * @return Group rank
+ */
+static inline int lam_group_rank(lam_group_t *group){
+    return group->grp_proc_count;
+}
 #endif /* LAM_GROUP_H */

src/mpi/interface/c/group_rank.c

@@ -6,11 +6,13 @@
 
 #include "mpi.h"
 #include "mpi/interface/c/bindings.h"
+#include "mpi/group/group.h"
 
 #if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILING_DEFINES
 #pragma weak MPI_Group_rank = PMPI_Group_rank
 #endif
 
 int MPI_Group_rank(MPI_Group group, int *rank) {
+    *rank=lam_group_rank((lam_group_t *)group);
     return MPI_SUCCESS;
 }

src/mpi/interface/c/group_size.c

@@ -6,11 +6,13 @@
 
 #include "mpi.h"
 #include "mpi/interface/c/bindings.h"
+#include "mpi/group/group.h"
 
 #if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILING_DEFINES
 #pragma weak MPI_Group_size = PMPI_Group_size
 #endif
 
 int MPI_Group_size(MPI_Group group, int *size) {
+    *size=lam_group_size((lam_group_t *)group);
     return MPI_SUCCESS;
 }