1 files changed, 111 insertions, 0 deletions
diff --git a/src/cctk_ActiveThorns.F90 b/src/cctk_ActiveThorns.F90
new file mode 100644
index 0000000..e7e3994
--- /dev/null
+++ b/src/cctk_ActiveThorns.F90
@@ -0,0 +1,111 @@
+/*@@
+  @file    $RCSfile$
+  @author  $Author$
+  @date    $Date$
+  @desc
+           Fortran 90 interface declarations for the routines
+           which have their C declarations in cctk_ActiveThorns.h
+  @enddesc
+  @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_ActiveThorns
+  implicit none
+
+  interface
+
+! This routine has been made a function instead of a subroutine
+! and is declared in cctk.h
+!     subroutine CCTK_IsThornActive (ierr, name)
+!       implicit none
+!       integer      ierr
+!       character(*) name
+!     end subroutine CCTK_IsThornActive
+
+     subroutine CCTK_ThornHandle (handle, name)
+       implicit none
+       CCTK_POINTER_TO_CONST handle
+       character(*) name
+     end subroutine CCTK_ThornHandle
+
+     subroutine CCTK_IsThornActiveH (ierr, handle)
+       implicit none
+       integer               ierr
+       CCTK_POINTER_TO_CONST handle
+     end subroutine CCTK_IsThornActiveH
+
+     subroutine CCTK_IsThornCompiled (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_IsThornCompiled
+
+     subroutine CCTK_IsImplementationActive (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_IsImplementationActive
+
+     subroutine CCTK_IsImplementationCompiled (ierr, name)
+       implicit none
+       integer      ierr
+       character(*) name
+     end subroutine CCTK_IsImplementationCompiled
+
+     subroutine CCTK_ActivatingThorn (thorn, imp)
+       implicit none
+       character(*) thorn
+       character(*) imp
+     end subroutine CCTK_ActivatingThorn
+
+     subroutine CCTK_ImpThornList (thornlist, imp)
+       implicit none
+       CCTK_POINTER thornlist
+       character(*) imp
+     end subroutine CCTK_ImpThornList
+
+     subroutine CCTK_ThornImplementation (imp, thorn)
+       implicit none
+       character(*) imp
+       character(*) thorn
+     end subroutine CCTK_ThornImplementation
+
+     subroutine CCTK_ImplementationThorn (thorn, imp)
+       implicit none
+       character(*) thorn
+       character(*) imp
+     end subroutine CCTK_ImplementationThorn
+
+     subroutine CCTK_ImplementationRequires (implist, imp)
+       implicit none
+       CCTK_POINTER implist
+       character(*) imp
+     end subroutine CCTK_ImplementationRequires
+
+     subroutine CCTK_NumCompiledThorns (num)
+       implicit none
+       integer num
+     end subroutine CCTK_NumCompiledThorns
+
+     subroutine CCTK_NumCompiledImplementations (num)
+       implicit none
+       integer num
+     end subroutine CCTK_NumCompiledImplementations
+
+     subroutine CCTK_CompiledThorn (thorn_name, thorn_index)
+       implicit none
+       character(*) thorn_name
+       integer      thorn_index
+     end subroutine CCTK_CompiledThorn
+
+     subroutine CCTK_CompiledImplementation (imp_name, imp_index)
+       implicit none
+       character(*) imp_name
+       integer      imp_index
+     end subroutine CCTK_CompiledImplementation
+
+  end interface
+
+end module cctk_ActiveThorns