- Add greb-able string in non-implemented functions

- Fix exception handling when malloc fails
- Combine a few malloc's

This commit was SVN r1831.

src/mpi/f77/abort_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ABORT,
 
 void mpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/accumulate_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ACCUMULATE,
 
 void mpi_accumulate_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/add_error_class_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CLASS,
 
 void mpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/add_error_code_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CODE,
 
 void mpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/add_error_string_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_STRING,
 
 void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/address_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADDRESS,
 
 void mpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/allgather_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLGATHER,
 
 void mpi_allgather_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/allgatherv_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLGATHERV,
 
 void mpi_allgatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/alloc_mem_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLOC_MEM,
 
 void mpi_alloc_mem_f(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/allreduce_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLREDUCE,
 
 void mpi_allreduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/alltoall_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALL,
 
 void mpi_alltoall_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/alltoallv_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALLV,
 
 void mpi_alltoallv_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/alltoallw_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALLW,
 
 void mpi_alltoallw_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/attr_delete_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_DELETE,
 
 void mpi_attr_delete_f(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/attr_get_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_GET,
 
 void mpi_attr_get_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/attr_put_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_PUT,
 
 void mpi_attr_put_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/barrier_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BARRIER,
 
 void mpi_barrier_f(MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/bcast_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BCAST,
 
 void mpi_bcast_f(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/bsend_init_f.c

@@ -56,9 +56,7 @@ void mpi_bsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *
 
     *ierr = MPI_Bsend_init(buf, *count, c_type, *dest, *tag, c_comm, &c_req);
 
-    if (*ierr == MPI_SUCCESS) {
+    if (MPI_SUCCESS == *ierr) {
         *request = MPI_Request_c2f(c_req);
     }
-
-
 }

src/mpi/f77/cart_coords_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_COORDS,
 
 void mpi_cart_coords_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/cart_create_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_CREATE,
 
 void mpi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/cart_get_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_GET,
 
 void mpi_cart_get_f(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/cart_map_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_MAP,
 
 void mpi_cart_map_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/cart_rank_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_RANK,
 
 void mpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/cart_shift_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_SHIFT,
 
 void mpi_cart_shift_f(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/cart_sub_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_SUB,
 
 void mpi_cart_sub_f(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/cartdim_get_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CARTDIM_GET,
 
 void mpi_cartdim_get_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/close_port_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CLOSE_PORT,
 
 void mpi_close_port_f(char *port_name, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_accept_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_ACCEPT,
 
 void mpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_call_errhandler_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CALL_ERRHANDLER,
 
 void mpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_compare_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_COMPARE,
 
 void mpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_connect_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CONNECT,
 
 void mpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_create_errhandler_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_ERRHANDLER,
 
 void mpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_create_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE,
 
 void mpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_create_keyval_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_KEYVAL,
 
 void mpi_comm_create_keyval_f(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_delete_attr_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DELETE_ATTR,
 
 void mpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_disconnect_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DISCONNECT,
 
 void mpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_dup_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DUP,
 
 void mpi_comm_dup_f(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_free_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_FREE,
 
 void mpi_comm_free_f(MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_free_keyval_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_FREE_KEYVAL,
 
 void mpi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_get_attr_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_ATTR,
 
 void mpi_comm_get_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_get_errhandler_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_ERRHANDLER,
 
 void mpi_comm_get_errhandler_f(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_get_name_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_NAME,
 
 void mpi_comm_get_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_get_parent_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_PARENT,
 
 void mpi_comm_get_parent_f(MPI_Fint *parent, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_group_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GROUP,
 
 void mpi_comm_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_join_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_JOIN,
 
 void mpi_comm_join_f(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_remote_group_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_GROUP,
 
 void mpi_comm_remote_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_remote_size_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_SIZE,
 
 void mpi_comm_remote_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_set_attr_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_ATTR,
 
 void mpi_comm_set_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_set_errhandler_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_ERRHANDLER,
 
 void mpi_comm_set_errhandler_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_set_name_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_NAME,
 
 void mpi_comm_set_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_spawn_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN,
 
 void mpi_comm_spawn_f(char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_spawn_multiple_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN_MULTIPLE,
 
 void mpi_comm_spawn_multiple_f(MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_split_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPLIT,
 
 void mpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/comm_test_inter_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_TEST_INTER,
 
 void mpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/dims_create_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_DIMS_CREATE,
 
 void mpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/errhandler_create_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_CREATE,
 
 void mpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/errhandler_free_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_FREE,
 
 void mpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/errhandler_get_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_GET,
 
 void mpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/errhandler_set_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_SET,
 
 void mpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/error_class_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERROR_CLASS,
 
 void mpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/error_string_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERROR_STRING,
 
 void mpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/exscan_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_EXSCAN,
 
 void mpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_call_errhandler_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CALL_ERRHANDLER,
 
 void mpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_close_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CLOSE,
 
 void mpi_file_close_f(MPI_Fint *fh, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_create_errhandler_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CREATE_ERRHANDLER,
 
 void mpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_delete_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_DELETE,
 
 void mpi_file_delete_f(char *filename, MPI_Fint *info, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_amode_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_AMODE,
 
 void mpi_file_get_amode_f(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_atomicity_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ATOMICITY,
 
 void mpi_file_get_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_byte_offset_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_BYTE_OFFSET,
 
 void mpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_errhandler_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ERRHANDLER,
 
 void mpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_group_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_GROUP,
 
 void mpi_file_get_group_f(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_info_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_INFO,
 
 void mpi_file_get_info_f(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_position_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION,
 
 void mpi_file_get_position_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_position_shared_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION_SHARED,
 
 void mpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_size_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_SIZE,
 
 void mpi_file_get_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_type_extent_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_TYPE_EXTENT,
 
 void mpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_get_view_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_VIEW,
 
 void mpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_iread_at_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_AT,
 
 void mpi_file_iread_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_iread_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD,
 
 void mpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_iread_shared_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_SHARED,
 
 void mpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_iwrite_at_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_AT,
 
 void mpi_file_iwrite_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_iwrite_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE,
 
 void mpi_file_iwrite_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_iwrite_shared_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_SHARED,
 
 void mpi_file_iwrite_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_open_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_OPEN,
 
 void mpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_preallocate_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_PREALLOCATE,
 
 void mpi_file_preallocate_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_all_begin_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_BEGIN,
 
 void mpi_file_read_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_all_end_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_END,
 
 void mpi_file_read_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_all_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL,
 
 void mpi_file_read_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_at_all_begin_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_BEGIN,
 
 void mpi_file_read_at_all_begin_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_at_all_end_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_END,
 
 void mpi_file_read_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_at_all_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL,
 
 void mpi_file_read_at_all_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_at_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT,
 
 void mpi_file_read_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ,
 
 void mpi_file_read_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_ordered_begin_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED_BEGIN,
 
 void mpi_file_read_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_ordered_end_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED_END,
 
 void mpi_file_read_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_ordered_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED,
 
 void mpi_file_read_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_read_shared_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_SHARED,
 
 void mpi_file_read_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_seek_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SEEK,
 
 void mpi_file_seek_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }

src/mpi/f77/file_seek_shared_f.c

@@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SEEK_SHARED,
 
 void mpi_file_seek_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr)
 {
-
+  /* This function not yet implemented */
 }