[mpich2-commits] r7925 - mpich2/trunk/src/mpi/romio/mpi-io/fortran

[robl at mcs.anl.gov]

Author: robl
Date: 2011-02-10 14:30:04 -0600 (Thu, 10 Feb 2011)
New Revision: 7925

Modified:
   mpich2/trunk/src/mpi/romio/mpi-io/fortran/get_viewf.c
Log:
whoops, can't just cast this stuff


Modified: mpich2/trunk/src/mpi/romio/mpi-io/fortran/get_viewf.c
===================================================================
--- mpich2/trunk/src/mpi/romio/mpi-io/fortran/get_viewf.c	2011-02-09 20:33:41 UTC (rev 7924)
+++ mpich2/trunk/src/mpi/romio/mpi-io/fortran/get_viewf.c	2011-02-10 20:30:04 UTC (rev 7925)
@@ -150,6 +150,8 @@
 #endif
     MPI_File fh_c;
     int i, tmpreplen;
+    MPI_Datatype etype_c filetype_c;
+
     char *tmprep;
 
 /* Initialize the string to all blanks */
@@ -160,8 +162,9 @@
     
     tmprep = (char *) ADIOI_Malloc((MPI_MAX_DATAREP_STRING+1) * sizeof(char));
     fh_c = MPI_File_f2c(*fh);
-    *ierr = MPI_File_get_view(fh_c, disp, (MPI_Datatype*)etype,
-				  (MPI_Datatype*)filetype, tmprep);
+    etype_c = MPI_Type_f2c(*etype);
+    filetype_c = MPI_Type_f2c(*filetype);
+    *ierr = MPI_File_get_view(fh_c, disp, &etype_c, &filetype_c, tmprep);
 
     tmpreplen = strlen(tmprep);
     if (tmpreplen <= str_len) {