more mpe logging

rfiorella · Jun 14, 2019 · bcbfecc · bcbfecc
1 parent 6c20479
commit bcbfecc
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/clib/pioc_support.c b/src/clib/pioc_support.c
@@ -2338,6 +2338,12 @@ PIOc_openfile_retry(int iosysid, int *ncidp, int *iotype, const char *filename,
     int mpierr = MPI_SUCCESS, mpierr2;  /** Return code from MPI function codes. */
     int ierr = PIO_NOERR;      /* Return code from function calls. */
 
+#ifdef USE_MPE
+    if ((ierr = MPE_Log_event(event_num[START][OPEN], 0,
+                              "PIOc_openfile_retry")))
+        return pio_err(NULL, NULL, PIO_EIO, __FILE__, __LINE__);
+#endif /* USE_MPE */
+
     /* Get the IO system info from the iosysid. */
     if (!(ios = pio_get_iosystem_from_id(iosysid)))
         return pio_err(NULL, NULL, PIO_EBADID, __FILE__, __LINE__);
@@ -2595,6 +2601,10 @@ PIOc_openfile_retry(int iosysid, int *ncidp, int *iotype, const char *filename,
             free(mpi_type_size);
     }
 
+#ifdef USE_MPE
+    if ((ierr = MPE_Log_event(event_num[END][OPEN], 0, "PIOc_openfile_retry")))
+        return pio_err(ios, file, PIO_EIO, __FILE__, __LINE__);
+#endif /* USE_MPE */
     LOG((2, "Opened file %s file->pio_ncid = %d file->fh = %d ierr = %d",
          filename, file->pio_ncid, file->fh, ierr));