avoid generating BEGIN_TRACE for the default traceBegin() at startup.
authorGengbin Zheng <gzheng@illinois.edu>
Fri, 20 Feb 2004 07:30:39 +0000 (07:30 +0000)
committerGengbin Zheng <gzheng@illinois.edu>
Fri, 20 Feb 2004 07:30:39 +0000 (07:30 +0000)
Implemented single userEvent call in fortran api.

src/ck-perf/trace-projections.C
src/ck-perf/tracef.C
src/ck-perf/tracef_f.f90

index 2920afc1975f6e707c4569641016f8347b05246b..e765b941efb66311cedd2d7416e8ef664c3f3426 100644 (file)
@@ -606,6 +606,7 @@ void TraceProjections::traceClose(void)
 
 void TraceProjections::traceBegin(void)
 {
+  if (!computationStarted) return;
   _logPool->add(BEGIN_TRACE, 0, 0, TraceTimer(), curevent++, CkMyPe());
 }
 
index cf4c8583f2537bbd4b8011a66592a2685f9192d7..377d50571e9ff2da7e8edfaef776542555be9f11 100644 (file)
@@ -22,6 +22,7 @@ FDECL {
 #define ftraceend               FTN_NAME(FTRACEEND, ftraceend)
 #define ftraceregisteruserevent  FTN_NAME(FTRACEREGISTERUSEREVENT, ftraceregisteruserevent)
 #define ftraceuserbracketevent   FTN_NAME(FTRACEUSERBRACKETEVENT, ftraceuserbracketevent)
+#define ftraceUserEvent         FTN_NAME(FTRACEUSEREVENT, ftraceuserevent)
 
 void ftracebegin()
 {
@@ -63,5 +64,10 @@ void ftraceuserbracketevent(int *e, double *begint, double *endt)
   traceUserBracketEvent(*e, *begint, *endt);
 }
 
+void ftraceUserEvent(int *e)
+{
+  traceUserEvent(*e);
+}
+
 }  // FDECL
 
index 2c7e0ac2c10a7abae21c4af9fe7666b1a2afb00b..beda46955649661a7dbeff7631879d8aedc3c50d 100644 (file)
@@ -5,15 +5,18 @@
         end subroutine
         subroutine ftraceEnd()
         end subroutine
-        subroutine ftraceregisteruserevent(str, ein, eout)
+        subroutine ftraceRegisterUserevent(str, ein, eout)
           character(*), intent(in) :: str
           integer, intent(in) :: ein
           integer, intent(out) :: eout
         end subroutine
-        subroutine ftraceuserbracketevent(ev, bt, et)
+        subroutine ftraceUserBracketEvent(ev, bt, et)
           integer, intent(in) :: ev 
           double precision, intent(in) :: bt, et
         end subroutine
+        subroutine ftraceUserEvent(ev)
+          integer, intent(in) :: ev 
+        end subroutine
       end interface
       end module