1 files changed, 124 insertions, 0 deletions
diff --git a/src/cctk_Timers.F90 b/src/cctk_Timers.F90
new file mode 100644
index 0000000..9e52cf1
--- /dev/null
+++ b/src/cctk_Timers.F90
@@ -0,0 +1,124 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_Timers.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_Timers
+  implicit none
+
+  interface
+
+     subroutine CCTK_NumTimers (num_timers)
+       implicit none
+       integer num_timers
+     end subroutine CCTK_NumTimers
+
+     subroutine CCTK_NumClocks (num_clocks)
+       implicit none
+       integer num_clocks
+     end subroutine CCTK_NumClocks
+     
+     subroutine CCTK_TimerName (timer_name, timer_length, timer_handle)
+       implicit none
+       character(*) timer_name
+       integer      timer_length
+       integer      timer_handle
+     end subroutine CCTK_TimerName
+     
+     subroutine CCTK_ClockName (clock_name, clock_length, clock_handle)
+       implicit none
+       character(*) clock_name
+       integer      clock_length
+       integer      clock_handle
+     end subroutine CCTK_ClockName
+     
+     subroutine CCTK_ClockHandle (handle, nclock)
+       implicit none
+       integer      handle
+       character(*) nclock
+     end subroutine CCTK_ClockHandle
+     
+     subroutine CCTK_TimerCreate (handle, name)
+       implicit none
+       integer      handle
+       character(*) name
+     end subroutine CCTK_TimerCreate
+     
+     subroutine CCTK_TimerCreateI (handle)
+       implicit none
+       integer handle
+     end subroutine CCTK_TimerCreateI
+     
+     subroutine CCTK_TimerDestroy (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_TimerDestroy
+     
+     subroutine CCTK_TimerDestroyI (ierr, handle)
+       implicit none
+       integer ierr
+       integer handle
+     end subroutine CCTK_TimerDestroyI
+     
+     subroutine CCTK_TimerStart (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_TimerStart
+     
+     subroutine CCTK_TimerStartI (ierr, handle)
+       implicit none
+       integer ierr
+       integer handle
+     end subroutine CCTK_TimerStartI
+     
+     subroutine CCTK_TimerStop (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_TimerStop
+     
+     subroutine CCTK_TimerStopI (ierr, handle)
+       implicit none
+       integer ierr
+       integer handle
+     end subroutine CCTK_TimerStopI
+     
+     subroutine CCTK_TimerReset (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_TimerReset
+     
+     subroutine CCTK_TimerResetI (ierr, handle)
+       implicit none
+       integer ierr
+       integer handle
+     end subroutine CCTK_TimerResetI
+     
+     subroutine CCTK_TimerPrintData (ierr, name, nclock)
+       implicit none
+       integer      ierr
+       character(*) name
+       character(*) nclock
+     end subroutine CCTK_TimerPrintData
+     
+     subroutine CCTK_TimerPrintDataI (ierr, handle, nclock)
+       implicit none
+       integer      ierr
+       integer      handle
+       character(*) nclock
+     end subroutine CCTK_TimerPrintDataI
+     
+  end interface
+  
+end module cctk_Timers