/*@@
  @file    $RCSfile$
  @author  $Author$
  @date    $Date$
  @desc
           Fortran 90 interface declarations for the routines
           which have their C declarations in cctk_IOMethods.h
  @enddesc
  @version $Header$
@@*/

#include "cctk.h"

module cctk_IOMethods
  implicit none

  interface

     subroutine CCTKi_RegisterIOMethod (ierr, thorn, name)
       implicit none
       integer ierr
       character(*) thorn
       character(*) name
     end subroutine CCTKi_RegisterIOMethod

     subroutine CCTK_RegisterIOMethodOutputGH (ierr, handle, OutputGH)
       implicit none
       integer       ierr
       integer       handle
       CCTK_FPOINTER OutputGH
     end subroutine CCTK_RegisterIOMethodOutputGH

     subroutine CCTK_RegisterIOMethodTimeToOutput (ierr, handle, TimeToOutput)
       implicit none
       integer       ierr
       integer       handle
       CCTK_FPOINTER TimeToOutput
     end subroutine CCTK_RegisterIOMethodTimeToOutput

     subroutine CCTK_RegisterIOMethodTriggerOutput (ierr, handle, TriggerOutput)
       implicit none
       integer       ierr
       integer       handle
       CCTK_FPOINTER TriggerOutput
     end subroutine CCTK_RegisterIOMethodTriggerOutput

     subroutine CCTK_RegisterIOMethodOutputVarAs (ierr, handle, OutputVarAs)
       implicit none
       integer       ierr
       integer       handle
       CCTK_FPOINTER OutputVarAs
     end subroutine CCTK_RegisterIOMethodOutputVarAs

     subroutine CCTK_IOMethodImplementation (imp, handle)
       implicit none
       character(*) imp
       integer      handle
     end subroutine CCTK_IOMethodImplementation

     subroutine CCTK_IOMethod (method, handle)
       implicit none
       character(*) method
       integer      handle
     end subroutine CCTK_IOMethod

     subroutine CCTK_NumIOMethods (num)
       implicit none
       integer num
     end subroutine CCTK_NumIOMethods

  end interface
  
end module cctk_IOMethods