More f77 bindings

This commit was SVN r2504.

src/mpi/f77/unpack_f.c

@@ -46,7 +46,22 @@ OMPI_GENERATE_F77_BINDINGS (MPI_UNPACK,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_unpack_f(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr)
+void mpi_unpack_f(char *inbuf, MPI_Fint *insize, MPI_Fint *position,
+		  char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype,
+		  MPI_Fint *comm, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Comm c_comm;
+    MPI_Datatype c_type;
+    OMPI_SINGLE_NAME_DECL(position);
+
+    c_comm = MPI_Comm_f2c(*comm);
+    c_type = MPI_Type_f2c(*datatype);
+    OMPI_SINGLE_FINT_2_INT(position);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Unpack(inbuf, OMPI_FINT_2_INT(*insize),
+				       OMPI_SINGLE_NAME_CONVERT(position),
+				       outbuf, OMPI_FINT_2_INT(*outcount),
+				       c_type, c_comm));
+    
+    OMPI_SINGLE_INT_2_FINT(position);
 }

src/mpi/f77/unpublish_name_f.c

@@ -46,7 +46,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_UNPUBLISH_NAME,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_unpublish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr)
+void mpi_unpublish_name_f(char *service_name, MPI_Fint *info,
+			  char *port_name, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Info c_info;
+
+    c_info = MPI_Info_f2c(*info);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Unpublish_name(service_name, c_info, 
+						port_name));
 }

src/mpi/f77/win_call_errhandler_f.c

@@ -46,7 +46,14 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_CALL_ERRHANDLER,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr)
+void mpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode,
+			       MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win;
+
+    c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_call_errhandler(c_win, 
+						    OMPI_FINT_2_INT(*errorcode)
+						    ));
 }

src/mpi/f77/win_complete_f.c

@@ -48,5 +48,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_COMPLETE,
 
 void mpi_win_complete_f(MPI_Fint *win, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win;
+
+    c_win = MPI_Win_f2c(*win);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_complete(c_win));
 }

src/mpi/f77/win_create_errhandler_f.c

@@ -46,7 +46,14 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_CREATE_ERRHANDLER,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr)
+void mpi_win_create_errhandler_f(MPI_Fint *f, 
+				 MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Errhandler c_errhandler;
+
+    *ierr = 
+	OMPI_INT_2_FINT(MPI_Win_create_errhandler((MPI_Win_errhandler_fn*) f,
+						  &c_errhandler));
+
+    *errhandler = MPI_Errhandler_c2f(c_errhandler);
 }

src/mpi/f77/win_create_f.c

@@ -46,7 +46,20 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_CREATE,
 #include "mpi/f77/profile/defines.h"
 #endif
 
-void mpi_win_create_f(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr)
+void mpi_win_create_f(char *base, MPI_Fint *size, MPI_Fint *disp_unit,
+		      MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win,
+		      MPI_Fint *ierr)
 {
-  /* This function not yet implemented */
+    MPI_Win c_win;
+    MPI_Info c_info;
+    MPI_Comm c_comm;
+
+    c_comm = MPI_Comm_f2c(*comm);
+    c_info = MPI_Info_f2c(*info);
+
+    *ierr = OMPI_INT_2_FINT(MPI_Win_create(base, (MPI_Aint)(*size),
+					   OMPI_FINT_2_INT(*disp_unit),
+					   c_info, c_comm, &c_win));
+
+    *win = MPI_Win_c2f(c_win);
 }