From bcbfecce394505c2f7e291b7d159861e12f68bf0 Mon Sep 17 00:00:00 2001
From: Ed Hartnett <edwardjameshartnett@gmail.com>
Date: Fri, 14 Jun 2019 10:23:12 -0600
Subject: [PATCH] more mpe logging

---
 src/clib/pioc_support.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/clib/pioc_support.c b/src/clib/pioc_support.c
index 0806ed9e682..1a86392801d 100644
--- 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));