minor cleanup.
authorGengbin Zheng <gzheng@illinois.edu>
Fri, 20 Feb 2004 06:53:28 +0000 (06:53 +0000)
committerGengbin Zheng <gzheng@illinois.edu>
Fri, 20 Feb 2004 06:53:28 +0000 (06:53 +0000)
src/ck-perf/tracef_f.f90

index fd3407918b43e1e994257608a1858efba3ef5c9a..2c7e0ac2c10a7abae21c4af9fe7666b1a2afb00b 100644 (file)
@@ -1,6 +1,5 @@
       module tracemod
       implicit none
-      external fpup_int
       interface
         subroutine ftraceBegin()
         end subroutine
           integer, intent(in) :: ein
           integer, intent(out) :: eout
         end subroutine
-        subroutine ftraceuserbracketevent(ein, bt, et)
-          integer, intent(in) :: ein
+        subroutine ftraceuserbracketevent(ev, bt, et)
+          integer, intent(in) :: e
           double precision, intent(in) :: bt, et
         end subroutine
       end interface
       end module
 
-
-