C to Fortran compatibility for get_team

Alessandro Fanfarillo · Alessandro Fanfarillo · commit 9249269ab89f · 2017-08-14T10:45:38.000-06:00
diff --git a/src/mpi/mpi_caf.c b/src/mpi/mpi_caf.c
@@ -4876,14 +4876,18 @@ void PREFIX (change_team) (caf_team_t *team, int coselector __attribute__ ((unus
   MPI_Comm_size(*tmp_comm,&caf_num_images);
 }
 
-int
+MPI_Fint
 PREFIX (get_team) (caf_team_t *team)
 {
   if(team != NULL) caf_runtime_error("get_team does not yet support the optional team argument");
 
   MPI_Comm* comm_ptr = teams_list->team;
 
-  return  *(int*)comm_ptr ;
+  MPI_Fint ret = MPI_Comm_c2f(*comm_ptr);
+
+  return ret;
+
+  //  return  *(int*)comm_ptr;
 }
 
 int

Original file line number	Diff line number	Diff line change
`@@ -4876,14 +4876,18 @@ void PREFIX (change_team) (caf_team_t *team, int coselector __attribute__ ((unus`
`4876`	`4876`	`MPI_Comm_size(*tmp_comm,&caf_num_images);`
`4877`	`4877`	`}`
`4878`	`4878`
`4879`		`-int`
	`4879`	`+MPI_Fint`
`4880`	`4880`	`PREFIX (get_team) (caf_team_t *team)`
`4881`	`4881`	`{`
`4882`	`4882`	`if(team != NULL) caf_runtime_error("get_team does not yet support the optional team argument");`
`4883`	`4883`
`4884`	`4884`	`MPI_Comm* comm_ptr = teams_list->team;`
`4885`	`4885`
`4886`		`- return (int)comm_ptr ;`
	`4886`	`+ MPI_Fint ret = MPI_Comm_c2f(*comm_ptr);`
	`4887`	`+`
	`4888`	`+ return ret;`
	`4889`	`+`
	`4890`	`+ // return (int)comm_ptr;`
`4887`	`4891`	`}`
`4888`	`4892`
`4889`	`4893`	`int`