Win f77 bindings

This commit was SVN r2738.

src/mpi/f77/win_fence_f.c

@@ -48,5 +48,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_FENCE,
 
 void mpi_win_fence_f(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+    
+    *ierr = OMPI_INT_2_FINT(MPI_Win_fence(OMPI_FINT_2_INT(*assert), c_win));
 }

src/mpi/f77/win_free_f.c

@@ -48,5 +48,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_FREE,
 
 void mpi_win_free_f(MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_free(&c_win));
+
+    *win = MPI_Win_c2f(c_win);
 }

src/mpi/f77/win_free_keyval_f.c

@@ -48,5 +48,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_FREE_KEYVAL,
 
 void mpi_win_free_keyval_f(MPI_Fint *win_keyval, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    OMPI_SINGLE_NAME_DECL(win_keyval);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_free_keyval(OMPI_SINGLE_NAME_CONVERT(win_keyval)));
+
+    OMPI_SINGLE_INT_2_FINT(win_keyval);
 }

src/mpi/f77/win_get_errhandler_f.c

@@ -46,7 +46,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_GET_ERRHANDLER,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_get_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr)
+void mpi_win_get_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, 
+			      MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Errhandler c_err;
+    MPI_Win c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_get_errhandler(c_win, &c_err));
+
+    *errhandler = MPI_Errhandler_c2f(c_err);
 }

src/mpi/f77/win_get_group_f.c

@@ -48,5 +48,10 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_GET_GROUP,
 
 void mpi_win_get_group_f(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Group c_grp;
+    MPI_Win c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_get_group(c_win, &c_grp));
+    
+    *group = MPI_Group_c2f(c_grp);
 }

src/mpi/f77/win_lock_f.c

@@ -46,7 +46,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_LOCK,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_lock_f(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr)
+void mpi_win_lock_f(MPI_Fint *lock_type, MPI_Fint *rank,
+		    MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_lock(OMPI_FINT_2_INT(*lock_type),
+					 OMPI_FINT_2_INT(*rank),
+					 OMPI_FINT_2_INT(*assert),
+					 c_win));
 }

src/mpi/f77/win_post_f.c

@@ -46,7 +46,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_POST,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_post_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr)
+void mpi_win_post_f(MPI_Fint *group, MPI_Fint *assert,
+		    MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+    MPI_Group c_grp = MPI_Group_f2c(*group);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_post(c_grp, 
+					 OMPI_FINT_2_INT(*assert),
+					 c_win));
 }

src/mpi/f77/win_set_errhandler_f.c

@@ -46,7 +46,11 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SET_ERRHANDLER,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_set_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr)
+void mpi_win_set_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler,
+			      MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+    MPI_Errhandler c_err = MPI_Errhandler_f2c(*errhandler);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_set_errhandler(c_win, c_err));
 }

src/mpi/f77/win_start_f.c

@@ -46,7 +46,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_START,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_start_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr)
+void mpi_win_start_f(MPI_Fint *group, MPI_Fint *assert,
+		     MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Group c_grp = MPI_Group_f2c(*group);
+    MPI_Win c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_start(c_grp, 
+					  OMPI_FINT_2_INT(*assert),
+					  c_win));
 }

src/mpi/f77/win_test_f.c

@@ -48,5 +48,11 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_TEST,
 
 void mpi_win_test_f(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+    OMPI_SINGLE_NAME_DECL(flag);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_test(c_win,
+					 OMPI_SINGLE_NAME_CONVERT(flag)));
+    
+    OMPI_SINGLE_INT_2_FINT(flag);
 }

src/mpi/f77/win_unlock_f.c

@@ -48,5 +48,8 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_UNLOCK,
 
 void mpi_win_unlock_f(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_unlock(OMPI_FINT_2_INT(*rank),
+					   c_win));
 }

src/mpi/f77/win_wait_f.c

@@ -48,5 +48,7 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_WAIT,
 
 void mpi_win_wait_f(MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_wait(c_win));
 }