























































































































 


































































































































































 























































































































































































 





















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































module cctk_ActiveThorns
  implicit none

  interface









     subroutine CCTK_ThornHandle (handle, name)
       implicit none
       integer*8 handle
       character(*) name
     end subroutine CCTK_ThornHandle

     subroutine CCTK_IsThornActiveH (ierr, handle)
       implicit none
       integer               ierr
       integer*8 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
       integer*8 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
       integer*8 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
