Finally getting around to commit these files.

This commit was SVN r1740.

src/mpi/f77/is_thread_main_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_IS_THREAD_MAIN,
 
 void mpi_is_thread_main_f(MPI_Fint *flag, MPI_Fint *ierr)
 {
-
+    *ierr = MPI_Is_thread_main( (int)flag );
 }

src/mpi/f77/pcontrol_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_PCONTROL,
 
 void mpi_pcontrol_f(MPI_Fint *level)
 {
-
+    MPI_Pcontrol( *level );
 }