Correct the pointer usage when we call the corresponding C funtion. If

the function expect a pointer we just have to cast it.

This commit was SVN r2138.

src/mpi/f77/iprobe_f.c

@@ -52,5 +52,5 @@ void mpi_iprobe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *fla
 
     c_comm = MPI_Comm_f2c (*comm);
 
-    *ierr = MPI_Iprobe(*source, *tag, c_comm, flag, (MPI_Status*) *status);
+    *ierr = MPI_Iprobe(*source, *tag, c_comm, flag, (MPI_Status*)status);
 }

src/mpi/f77/probe_f.c

@@ -52,5 +52,5 @@ void mpi_probe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *stat
 
     c_comm = MPI_Comm_f2c (*comm);
 
-    *ierr = MPI_Probe(*source, *tag, c_comm, (MPI_Status*) *status);
+    *ierr = MPI_Probe(*source, *tag, c_comm, (MPI_Status*)status);
 }

src/mpi/f77/recv_f.c

@@ -53,6 +53,6 @@ void mpi_recv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source
 
     c_comm = MPI_Comm_f2c (*comm);
 
-    *ierr = MPI_Recv(buf, *count, c_type, *source, *tag, c_comm, 
-                     (MPI_Status*) *status);
+    *ierr = MPI_Recv( buf, *count, c_type, *source, *tag, c_comm,
+                      (MPI_Status*)status );
 }

src/mpi/f77/sendrecv_f.c

@@ -57,5 +57,5 @@ void mpi_sendrecv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_
     *ierr = MPI_Sendrecv(sendbuf, *sendcount, c_sendtype,
                          *dest, *sendtag, recvbuf, *recvcount,
                          c_recvtype, *source, *recvtag, c_comm, 
-                         (MPI_Status*) *status);
+                         (MPI_Status*)status);
 }

src/mpi/f77/sendrecv_replace_f.c

@@ -55,5 +55,5 @@ void mpi_sendrecv_replace_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_
 
     *ierr = MPI_Sendrecv_replace(buf, *count, c_type,  *dest, 
                                  *sendtag, *source, *recvtag, c_comm, 
-                                 (MPI_Status*)*status);
+                                 (MPI_Status*)status);
 }

src/mpi/f77/unpack_external_f.c

@@ -51,6 +51,6 @@ void mpi_unpack_external_f (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fi
     MPI_Datatype c_type;
     c_type = MPI_Type_f2c(*datatype);
 
-    *ierr = MPI_Unpack_external(datarep, inbuf, *insize, (MPI_Aint *)*position,
+    *ierr = MPI_Unpack_external(datarep, inbuf, *insize, (MPI_Aint *)position,
                                 outbuf, *outcount, c_type);
 }