added function that returns bool if calling rank is a "leading rank"

lib/teaMPI.cpp

@@ -19,6 +19,10 @@ int TMPI_GetTeamNumber() {
   return getTeam();  
 }
 
+int TMPI_IsLeadingRank() {
+  return getTeam()==0; 
+}
+
 MPI_Comm TMPI_GetInterTeamComm() {
   return getTeamInterComm();
 }

lib/teaMPI.h

@@ -10,3 +10,4 @@
 MPI_Comm TMPI_GetInterTeamComm();
 int TMPI_GetTeamNumber();
 int TMPI_GetInterTeamCommSize();
+int TMPI_IsLeadingRank();