Perfect brainless late-night hacking -- add the new OMPI_EXPORT macro

to all the MPI f77 and C bindings.  Yay Windows!  ;-)

This commit was SVN r2856.

src/mpi/c/abort.c

@@ -27,6 +27,7 @@
 static const char FUNC_NAME[] = "MPI_Abort";
 
 
+OMPI_EXPORT
 int MPI_Abort(MPI_Comm comm, int errorcode) 
 {
     mca_ns_base_jobid_t jobid;

src/mpi/c/accumulate.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Accumlate";
 
 
+OMPI_EXPORT
 int MPI_Accumulate(void *origin_addr, int origin_count, MPI_Datatype origin_datatype,
                    int target_rank, MPI_Aint target_disp, int target_count,
                    MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) 

src/mpi/c/add_error_class.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Add_error_class";
 
 
+OMPI_EXPORT
 int MPI_Add_error_class(int *errorclass) 
 {
     int class;

src/mpi/c/add_error_code.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Add_error_code";
 
 
+OMPI_EXPORT
 int MPI_Add_error_code(int errorclass, int *errorcode)
 {
     int code;

src/mpi/c/add_error_string.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Add_error_code";
 
 
+OMPI_EXPORT
 int MPI_Add_error_string(int errorcode, char *string)
 {
     int rc;

src/mpi/c/address.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Address";
 
 
+OMPI_EXPORT
 int MPI_Address(void *location, MPI_Aint *address)
 {
     if( MPI_PARAM_CHECK ) {

src/mpi/c/allgather.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Allgather";
 
 
+OMPI_EXPORT
 int MPI_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype, 
 		  void *recvbuf, int recvcount, MPI_Datatype recvtype,
 		  MPI_Comm comm) 

src/mpi/c/allgatherv.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Allgatherv";
 
 
+OMPI_EXPORT
 int MPI_Allgatherv(void *sendbuf, int sendcount, MPI_Datatype sendtype,
                    void *recvbuf, int *recvcounts,
                    int *displs, MPI_Datatype recvtype, MPI_Comm comm) 

src/mpi/c/alloc_mem.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_Alloc_mem";
 
 
+OMPI_EXPORT
 int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr)
 {
   if (MPI_PARAM_CHECK) {

src/mpi/c/allreduce.c

@@ -22,6 +22,7 @@
 static const char FUNC_NAME[] = "MPI_Allreduce";
 
 
+OMPI_EXPORT
 int MPI_Allreduce(void *sendbuf, void *recvbuf, int count,
                   MPI_Datatype datatype, MPI_Op op, MPI_Comm comm) 
 {

src/mpi/c/alltoall.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Alltoall";
 
 
+OMPI_EXPORT
 int MPI_Alltoall(void *sendbuf, int sendcount, MPI_Datatype sendtype,
 		 void *recvbuf, int recvcount, MPI_Datatype recvtype, 
                  MPI_Comm comm) 

src/mpi/c/alltoallv.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Alltoallv";
 
 
+OMPI_EXPORT
 int MPI_Alltoallv(void *sendbuf, int *sendcounts, int *sdispls,
                   MPI_Datatype sendtype, 
                   void *recvbuf, int *recvcounts, int *rdispls, 

src/mpi/c/alltoallw.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Alltoallw";
 
 
+OMPI_EXPORT
 int MPI_Alltoallw(void *sendbuf, int *sendcounts, int *sdispls, 
                   MPI_Datatype *sendtypes,
                   void *recvbuf, int *recvcounts, int *rdispls, 

src/mpi/c/attr_delete.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Attr_delete";
 
 
+OMPI_EXPORT
 int MPI_Attr_delete(MPI_Comm comm, int keyval)
 {
     int ret;

src/mpi/c/attr_fn.c

@@ -34,6 +34,7 @@
  *   MPI_WIN_DUP_FN -> OMPI_C_MPI_WIN_DUP_FN
  */
 
+OMPI_EXPORT
 int OMPI_C_MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
                                     void* attribute_val_out,
                                     void* flag )
@@ -42,6 +43,7 @@ int OMPI_C_MPI_TYPE_NULL_DELETE_FN( MPI_Datatype datatype, int type_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval, 
                                   void* extra_state,
                                   void* attribute_val_in, 
@@ -52,6 +54,7 @@ int OMPI_C_MPI_TYPE_NULL_COPY_FN( MPI_Datatype datatype, int type_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval, 
                             void* extra_state,
                             void* attribute_val_in, void* attribute_val_out,
@@ -62,6 +65,7 @@ int OMPI_C_MPI_TYPE_DUP_FN( MPI_Datatype datatype, int type_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
                                    void* attribute_val_out,
                                    void* flag )
@@ -69,6 +73,7 @@ int OMPI_C_MPI_WIN_NULL_DELETE_FN( MPI_Win window, int win_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval, 
                                  void* extra_state,
                                  void* attribute_val_in,
@@ -78,6 +83,7 @@ int OMPI_C_MPI_WIN_NULL_COPY_FN( MPI_Win window, int win_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_WIN_DUP_FN( MPI_Win window, int win_keyval, void* extra_state,
                            void* attribute_val_in, void* attribute_val_out,
                            int* flag )
@@ -87,6 +93,7 @@ int OMPI_C_MPI_WIN_DUP_FN( MPI_Win window, int win_keyval, void* extra_state,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
                                     void* attribute_val_out,
                                     void* flag )
@@ -94,6 +101,7 @@ int OMPI_C_MPI_COMM_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, 
                                   void* extra_state,
                                   void* attribute_val_in,
@@ -103,6 +111,7 @@ int OMPI_C_MPI_COMM_NULL_COPY_FN( MPI_Comm comm, int comm_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_COMM_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
                      void* attribute_val_in, void* attribute_val_out,
                      int* flag )
@@ -112,6 +121,7 @@ int OMPI_C_MPI_COMM_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
                                void* attribute_val_out,
                                void* flag )
@@ -119,6 +129,7 @@ int OMPI_C_MPI_NULL_DELETE_FN( MPI_Comm comm, int comm_keyval,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
                              void* attribute_val_in, void* attribute_val_out,
                              int* flag )
@@ -127,6 +138,7 @@ int OMPI_C_MPI_NULL_COPY_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
    return MPI_SUCCESS;
 }
 
+OMPI_EXPORT
 int OMPI_C_MPI_DUP_FN( MPI_Comm comm, int comm_keyval, void* extra_state,
                        void* attribute_val_in, void* attribute_val_out,
                        int* flag )

src/mpi/c/attr_get.c

@@ -19,6 +19,7 @@
 
 static const char FUNC_NAME[] = "MPI_Attr_get";
 
+OMPI_EXPORT
 int MPI_Attr_get(MPI_Comm comm, int keyval, void *attribute_val, int *flag)
 {
     int ret;

src/mpi/c/attr_put.c

@@ -19,6 +19,7 @@
 
 static const char FUNC_NAME[] = "MPI_Attr_put";
 
+OMPI_EXPORT
 int MPI_Attr_put(MPI_Comm comm, int keyval, void *attribute_val) 
 {
     int ret;

src/mpi/c/barrier.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Barrier";
 
 
+OMPI_EXPORT
 int MPI_Barrier(MPI_Comm comm) 
 {
   int err = MPI_SUCCESS;

src/mpi/c/bcast.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Bcast";
 
 
+OMPI_EXPORT
 int MPI_Bcast(void *buffer, int count, MPI_Datatype datatype,
               int root, MPI_Comm comm)
 {

src/mpi/c/bsend.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Bsend";
 
 
+OMPI_EXPORT
 int MPI_Bsend(void *buf, int count, MPI_Datatype type, int dest, int tag, MPI_Comm comm) 
 {
     int rc, index;

src/mpi/c/bsend_init.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Bsend_init";
 
 
+OMPI_EXPORT
 int MPI_Bsend_init(void *buf, int count, MPI_Datatype type,
                    int dest, int tag, MPI_Comm comm, MPI_Request *request) 
 {

src/mpi/c/buffer_attach.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_Buffer_attach";
 
 
+OMPI_EXPORT
 int MPI_Buffer_attach(void *buffer, int size) 
 {
   if (MPI_PARAM_CHECK) {

src/mpi/c/buffer_detach.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Buffer_detach";
 
 
+OMPI_EXPORT
 int MPI_Buffer_detach(void *buffer, int *size) 
 {
   if (MPI_PARAM_CHECK) {

src/mpi/c/cancel.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cancel";
 
 
+OMPI_EXPORT
 int MPI_Cancel(MPI_Request *request) 
 {
     int rc;

src/mpi/c/cart_coords.c

@@ -22,6 +22,7 @@
 static const char FUNC_NAME[] = "MPI_Cart_coords";
 
 
+OMPI_EXPORT
 int MPI_Cart_coords(MPI_Comm comm, int rank, int maxdims, int *coords) 
 {
     int err;

src/mpi/c/cart_create.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cart_create";
 
 
+OMPI_EXPORT
 int MPI_Cart_create(MPI_Comm old_comm, int ndims, int *dims,
                     int *periods, int reorder, MPI_Comm *comm_cart) {
 

src/mpi/c/cart_get.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cart_get";
 
 
+OMPI_EXPORT
 int MPI_Cart_get(MPI_Comm comm, int maxdims, int *dims,
                  int *periods, int *coords) 
 {

src/mpi/c/cart_map.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cart_map";
 
 
+OMPI_EXPORT
 int MPI_Cart_map(MPI_Comm comm, int ndims, int *dims,
                 int *periods, int *newrank) 
 {

src/mpi/c/cart_rank.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cart_rank";
 
 
+OMPI_EXPORT
 int MPI_Cart_rank(MPI_Comm comm, int *coords, int *rank) 
 {
     int err;

src/mpi/c/cart_shift.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cart_shift";
 
 
+OMPI_EXPORT
 int MPI_Cart_shift(MPI_Comm comm, int direction, int disp,
                    int *rank_source, int *rank_dest) 
 {

src/mpi/c/cart_sub.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cart_sub";
 
 
+OMPI_EXPORT
 int MPI_Cart_sub(MPI_Comm comm, int *remain_dims, MPI_Comm *new_comm) 
 {
     int err;

src/mpi/c/cartdim_get.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Cartdim_get";
 
 
+OMPI_EXPORT
 int MPI_Cartdim_get(MPI_Comm comm, int *ndims) 
 {
     mca_topo_base_module_cartdim_get_fn_t func;

src/mpi/c/close_port.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Close_port";
 
 
+OMPI_EXPORT
 int MPI_Close_port(char *port_name) 
 {
     if ( MPI_PARAM_CHECK ) {

src/mpi/c/comm_accept.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_accept";
 
 
+OMPI_EXPORT
 int MPI_Comm_accept(char *port_name, MPI_Info info, int root,
                     MPI_Comm comm, MPI_Comm *newcomm) 
 {

src/mpi/c/comm_c2f.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_c2f";
 
 
+OMPI_EXPORT
 MPI_Fint MPI_Comm_c2f(MPI_Comm comm) 
 {
     ompi_communicator_t *cptr=(ompi_communicator_t *)comm;

src/mpi/c/comm_call_errhandler.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_call_errhandler";
 
 
+OMPI_EXPORT
 int MPI_Comm_call_errhandler(MPI_Comm comm, int errorcode)
 {
   /* Error checking */

src/mpi/c/comm_compare.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_compare";
 
 
+OMPI_EXPORT
 int MPI_Comm_compare(MPI_Comm comm1, MPI_Comm comm2, int *result) {
 
     /* local variables */

src/mpi/c/comm_connect.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_connect";
 
 
+OMPI_EXPORT
 int MPI_Comm_connect(char *port_name, MPI_Info info, int root,
                      MPI_Comm comm, MPI_Comm *newcomm) 
 {

src/mpi/c/comm_create.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_create";
 
 
+OMPI_EXPORT
 int MPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm *newcomm) {
     
     int rc;

src/mpi/c/comm_create_errhandler.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_create_errhandler";
 
 
+OMPI_EXPORT
 int MPI_Comm_create_errhandler(MPI_Comm_errhandler_fn *function,
                                MPI_Errhandler *errhandler) 
 {

src/mpi/c/comm_create_keyval.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_create_keyval";
 
 
+OMPI_EXPORT
 int MPI_Comm_create_keyval(MPI_Comm_copy_attr_function *comm_copy_attr_fn,
                            MPI_Comm_delete_attr_function *comm_delete_attr_fn,
 			   int *comm_keyval, void *extra_state)

src/mpi/c/comm_delete_attr.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_delete_attr";
 
 
+OMPI_EXPORT
 int MPI_Comm_delete_attr(MPI_Comm comm, int comm_keyval) 
 {
     int ret;

src/mpi/c/comm_disconnect.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_disconnect";
 
 
+OMPI_EXPORT
 int MPI_Comm_disconnect(MPI_Comm *comm) 
 {
 

src/mpi/c/comm_dup.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_dup";
 
 
+OMPI_EXPORT
 int MPI_Comm_dup(MPI_Comm comm, MPI_Comm *newcomm) 
 {
     /* local variables */

src/mpi/c/comm_f2c.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_f2c";
 
 
+OMPI_EXPORT
 MPI_Comm MPI_Comm_f2c(MPI_Fint comm) 
 {
     size_t o_index= (size_t) comm;

src/mpi/c/comm_free.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_free";
 
 
+OMPI_EXPORT
 int MPI_Comm_free(MPI_Comm *comm) {
     
     if ( MPI_PARAM_CHECK ) {

src/mpi/c/comm_free_keyval.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_free_keyval";
 
 
+OMPI_EXPORT
 int MPI_Comm_free_keyval(int *comm_keyval) 
 {
     int ret;

src/mpi/c/comm_get_attr.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_get_attr";
 
 
+OMPI_EXPORT
 int MPI_Comm_get_attr(MPI_Comm comm, int comm_keyval,
                       void *attribute_val, int *flag)
 {

src/mpi/c/comm_get_errhandler.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_get_errhandler";
 
 
+OMPI_EXPORT
 int MPI_Comm_get_errhandler(MPI_Comm comm, MPI_Errhandler *errhandler)
 {
   /* Error checking */

src/mpi/c/comm_get_name.c

@@ -24,6 +24,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_get_name";
 
 
+OMPI_EXPORT
 int MPI_Comm_get_name(MPI_Comm comm, char *name, int *length)  
 {
 

src/mpi/c/comm_get_parent.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_get_parent";
 
 
+OMPI_EXPORT
 int MPI_Comm_get_parent(MPI_Comm *parent) 
 {
 

src/mpi/c/comm_group.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_group";
 
 
+OMPI_EXPORT
 int MPI_Comm_group(MPI_Comm comm, MPI_Group *group) {
 
     int rc;

src/mpi/c/comm_join.c

@@ -28,6 +28,7 @@ static const char FUNC_NAME[] = "MPI_Comm_join";
 static int ompi_socket_send (int fd, char *buf, int len );
 static int ompi_socket_recv (int fd, char *buf, int len );
 
+OMPI_EXPORT
 int MPI_Comm_join(int fd, MPI_Comm *intercomm) 
 {
     int rc, tag=OMPI_COMM_JOIN_TAG;

src/mpi/c/comm_rank.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_rank";
 
 
+OMPI_EXPORT
 int MPI_Comm_rank(MPI_Comm comm, int *rank) 
 {
     if ( MPI_PARAM_CHECK ) {

src/mpi/c/comm_remote_group.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_remote_group";
 
 
+OMPI_EXPORT
 int MPI_Comm_remote_group(MPI_Comm comm, MPI_Group *group) 
 {
 

src/mpi/c/comm_remote_size.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_remote_size";
 
 
+OMPI_EXPORT
 int MPI_Comm_remote_size(MPI_Comm comm, int *size) {
 
     if ( MPI_PARAM_CHECK ) {

src/mpi/c/comm_set_attr.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_set_attr";
 
 
+OMPI_EXPORT
 int MPI_Comm_set_attr(MPI_Comm comm, int comm_keyval, void *attribute_val) 
 {
     int ret;

src/mpi/c/comm_set_errhandler.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_set_errhandler";
 
 
+OMPI_EXPORT
 int MPI_Comm_set_errhandler(MPI_Comm comm, MPI_Errhandler errhandler) 
 {
   /* Error checking */

src/mpi/c/comm_set_name.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_set_name";
 
 
+OMPI_EXPORT
 int MPI_Comm_set_name(MPI_Comm comm, char *name) 
 {
     int rc;

src/mpi/c/comm_size.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_comm_size";
 
 
+OMPI_EXPORT
 int MPI_Comm_size(MPI_Comm comm, int *size) {
 
     if ( MPI_PARAM_CHECK ) {

src/mpi/c/comm_spawn.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_spawn";
 
 
+OMPI_EXPORT
 int MPI_Comm_spawn(char *command, char **argv, int maxprocs, MPI_Info info,
                     int root, MPI_Comm comm, MPI_Comm *intercomm,
                     int *array_of_errcodes) 

src/mpi/c/comm_spawn_multiple.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_spawn_multiple";
 
 
+OMPI_EXPORT
 int MPI_Comm_spawn_multiple(int count, char **array_of_commands, char ***array_of_argv,
                             int *array_of_maxprocs, MPI_Info *array_of_info,
                             int root, MPI_Comm comm, MPI_Comm *intercomm,

src/mpi/c/comm_split.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_split";
 
 
+OMPI_EXPORT
 int MPI_Comm_split(MPI_Comm comm, int color, int key, MPI_Comm *newcomm) {
 
     int rc;

src/mpi/c/comm_test_inter.c

@@ -19,6 +19,7 @@
 static const char FUNC_NAME[] = "MPI_Comm_test_inter";
 
 
+OMPI_EXPORT
 int MPI_Comm_test_inter(MPI_Comm comm, int *flag) {
 
     if ( MPI_PARAM_CHECK ) {

src/mpi/c/dims_create.c

@@ -26,9 +26,10 @@ static int getprimes(int num, int *pnprime, int **pprimes);
 
 
 /*
- * This is a utility function, no need to have anything in the lower layer for this
+ * This is a utility function, no need to have anything in the lower
- * at all
+ * layer for this at all
  */ 
+OMPI_EXPORT
 int MPI_Dims_create(int nnodes, int ndims, int *dims) 
 {
     int i;

src/mpi/c/errhandler_c2f.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Errhandler_c2f";
 
 
+OMPI_EXPORT
 MPI_Fint MPI_Errhandler_c2f(MPI_Errhandler errhandler)
 {
   /* Error checking */

src/mpi/c/errhandler_create.c

@@ -16,6 +16,7 @@
 #endif
 
 
+OMPI_EXPORT
 int MPI_Errhandler_create(MPI_Handler_function *function,
                           MPI_Errhandler *errhandler)
 {

src/mpi/c/errhandler_f2c.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Errhandler_f2c";
 
 
+OMPI_EXPORT
 MPI_Errhandler MPI_Errhandler_f2c(MPI_Fint errhandler_f)
 {
     size_t eh_index = (size_t) errhandler_f;

src/mpi/c/errhandler_free.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Errhandler_free";
 
 
+OMPI_EXPORT
 int MPI_Errhandler_free(MPI_Errhandler *errhandler)
 {
   /* Error checking */

src/mpi/c/errhandler_get.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Errhandler_get";
 
 
+OMPI_EXPORT
 int MPI_Errhandler_get(MPI_Comm comm, MPI_Errhandler *errhandler) 
 {
   if (MPI_PARAM_CHECK) {

src/mpi/c/errhandler_set.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Errhandler_set";
 
 
+OMPI_EXPORT
 int MPI_Errhandler_set(MPI_Comm comm, MPI_Errhandler errhandler)
 {
   if (MPI_PARAM_CHECK) {

src/mpi/c/error_class.c

@@ -20,6 +20,7 @@
 static const char FUNC_NAME[] = "MPI_Error_class";
 
 
+OMPI_EXPORT
 int MPI_Error_class(int errorcode, int *errorclass) 
 {
     if ( MPI_PARAM_CHECK ) {

src/mpi/c/error_string.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_Error_string";
 
 
+OMPI_EXPORT
 int MPI_Error_string(int errorcode, char *string, int *resultlen) 
 {
     char *tmpstring;

src/mpi/c/exscan.c

@@ -22,6 +22,7 @@
 static const char FUNC_NAME[] = "MPI_Exscan";
 
 
+OMPI_EXPORT
 int MPI_Exscan(void *sendbuf, void *recvbuf, int count,
                MPI_Datatype datatype, MPI_Op op, MPI_Comm comm) 
 {

src/mpi/c/file_c2f.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_c2f";
 
 
+OMPI_EXPORT
 MPI_Fint MPI_File_c2f(MPI_File file)
 {
     if (MPI_PARAM_CHECK) {

src/mpi/c/file_call_errhandler.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_call_errhandler";
 
 
+OMPI_EXPORT
 int MPI_File_call_errhandler(MPI_File fh, int errorcode) 
 {
   /* Error checking */

src/mpi/c/file_close.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_close";
 
 
+OMPI_EXPORT
 int MPI_File_close(MPI_File *fh) 
 {
     int rc;

src/mpi/c/file_create_errhandler.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_create_errhandler";
 
 
+OMPI_EXPORT
 int MPI_File_create_errhandler(MPI_File_errhandler_fn *function,
 		                        MPI_Errhandler *errhandler) {
   int err = MPI_SUCCESS;

src/mpi/c/file_delete.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_File_delete";
 
 
+OMPI_EXPORT
 int MPI_File_delete(char *filename, MPI_Info info) 
 {
     int rc;

src/mpi/c/file_f2c.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_f2c";
 
 
+OMPI_EXPORT
 MPI_File MPI_File_f2c(MPI_Fint file_f) 
 {
     size_t file_index = (size_t) file_f;

src/mpi/c/file_get_amode.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_amode";
 
 
+OMPI_EXPORT
 int MPI_File_get_amode(MPI_File fh, int *amode)
 {
     int rc;

src/mpi/c/file_get_atomicity.c

@@ -22,6 +22,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_atomicity";
 
 
+OMPI_EXPORT
 int MPI_File_get_atomicity(MPI_File fh, int *flag)
 {
     int rc;

src/mpi/c/file_get_byte_offset.c

@@ -22,6 +22,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_byte_offset";
 
 
+OMPI_EXPORT
 int MPI_File_get_byte_offset(MPI_File fh, MPI_Offset offset,
                              MPI_Offset *disp)
 {

src/mpi/c/file_get_errhandler.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_errhandler";
 
 
+OMPI_EXPORT
 int MPI_File_get_errhandler( MPI_File file, MPI_Errhandler *errhandler) 
 {
   /* Error checking */

src/mpi/c/file_get_group.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_group";
 
 
+OMPI_EXPORT
 int MPI_File_get_group(MPI_File fh, MPI_Group *group)
 {
     int rc;

src/mpi/c/file_get_info.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_info";
 
 
+OMPI_EXPORT
 int MPI_File_get_info(MPI_File fh, MPI_Info *info_used)
 {
     int rc;

src/mpi/c/file_get_position.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_position";
 
 
+OMPI_EXPORT
 int MPI_File_get_position(MPI_File fh, MPI_Offset *offset)
 {
     int rc;

src/mpi/c/file_get_position_shared.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_position_shared";
 
 
+OMPI_EXPORT
 int MPI_File_get_position_shared(MPI_File fh, MPI_Offset *offset)
 {
     int rc;

src/mpi/c/file_get_size.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_size";
 
 
+OMPI_EXPORT
 int MPI_File_get_size(MPI_File fh, MPI_Offset *size)
 {
     int rc;

src/mpi/c/file_get_type_extent.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_type_extent";
 
 
+OMPI_EXPORT
 int MPI_File_get_type_extent(MPI_File fh, MPI_Datatype datatype,
                              MPI_Aint *extent)
 {

src/mpi/c/file_get_view.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_get_view";
 
 
+OMPI_EXPORT
 int MPI_File_get_view(MPI_File fh, MPI_Offset *disp,
                       MPI_Datatype *etype,
                       MPI_Datatype *filetype, char *datarep)

src/mpi/c/file_iread.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_File_iread";
 
 
+OMPI_EXPORT
 int MPI_File_iread(MPI_File fh, void *buf, int count, 
                    MPI_Datatype datatype, MPI_Request *request)
 {

src/mpi/c/file_iread_at.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_File_iread_at";
 
 
+OMPI_EXPORT
 int MPI_File_iread_at(MPI_File fh, MPI_Offset offset, void *buf,
                       int count, MPI_Datatype datatype, MPI_Request *request)
 {

src/mpi/c/file_iread_shared.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_File_iread_shared";
 
 
+OMPI_EXPORT
 int MPI_File_iread_shared(MPI_File fh, void *buf, int count,
                           MPI_Datatype datatype, MPI_Request *request)
 {

src/mpi/c/file_iwrite.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_File_iwrite";
 
 
+OMPI_EXPORT
 int MPI_File_iwrite(MPI_File fh, void *buf, int count, MPI_Datatype
                     datatype, MPI_Request *request)
 {

src/mpi/c/file_iwrite_at.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_File_iwrite_at";
 
 
+OMPI_EXPORT
 int MPI_File_iwrite_at(MPI_File fh, MPI_Offset offset, void *buf,
                        int count, MPI_Datatype datatype, 
                        MPI_Request *request)

src/mpi/c/file_iwrite_shared.c

@@ -23,6 +23,7 @@
 static const char FUNC_NAME[] = "MPI_File_iwrite_shared";
 
 
+OMPI_EXPORT
 int MPI_File_iwrite_shared(MPI_File fh, void *buf, int count,
                            MPI_Datatype datatype, MPI_Request *request)
 {

src/mpi/c/file_open.c

@@ -22,6 +22,7 @@
 static const char FUNC_NAME[] = "MPI_File_open";
 
 
+OMPI_EXPORT
 int MPI_File_open(MPI_Comm comm, char *filename, int amode,
                   MPI_Info info, MPI_File *fh)
 {

src/mpi/c/file_preallocate.c

@@ -21,6 +21,7 @@
 static const char FUNC_NAME[] = "MPI_File_preallocate";
 
 
+OMPI_EXPORT
 int MPI_File_preallocate(MPI_File fh, MPI_Offset size)
 {
     int rc;

src/mpi/c/file_read.c

@@ -22,6 +22,7 @@
 static const char FUNC_NAME[] = "MPI_File_read";
 
 
+OMPI_EXPORT
 int MPI_File_read(MPI_File fh, void *buf, int count, 
                   MPI_Datatype datatype, MPI_Status *status)
 {