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

#include "cctk.h"

module cctk_Interp
  implicit none

  interface

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

     subroutine CCTKi_InterpRegisterOperatorGV (operator_ptr, operator_name, thorn)
       implicit none
       CCTK_FPOINTER operator_ptr
       character(*)  operator_name
       character(*)  thorn
     end subroutine CCTKi_InterpRegisterOperatorGV

     subroutine CCTKi_InterpRegisterOperatorLocal (operator_ptr, operator_name, thorn)
       implicit none
       CCTK_FPOINTER operator_ptr
       character(*)  operator_name
       character(*)  thorn
     end subroutine CCTKi_InterpRegisterOperatorLocal

     subroutine CCTKi_InterpRegisterOpLocalUniform (operator_ptr, operator_name, thorn)
       implicit none
       CCTK_FPOINTER operator_ptr
       character(*)  operator_name
       character(*)  thorn
     end subroutine CCTKi_InterpRegisterOpLocalUniform

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

     subroutine CCTK_InterpOperator (nchars, operator, handle)
       implicit none
       integer      nchars
       character(*) operator
       integer      handle
     end subroutine CCTK_InterpOperator

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

     ! CCTK_InterpGV is declared below
     ! CCTK_InterpLocal is declared below

     subroutine CCTK_InterpLocalUniform &
          (ierr,                        &
           N_dims,                      &
           operator_handle,             &
           param_table_handle,          &
           coord_origin,                &
           coord_delta,                 &
           N_interp_points,             &
             interp_coords_type_code,   &
             interp_coords,             &
           N_input_arrays,              &
             input_array_type_codes,    &
             input_arrays,              &
           N_output_arrays,             &
             output_array_type_codes,   &
             output_arrays)
       implicit none
       integer               ierr
       integer               N_dims
       integer               operator_handle
       integer               param_table_handle
       CCTK_REAL             coord_origin(N_dims)
       CCTK_REAL             coord_delta(N_dims)
       integer               N_interp_points
       integer                 interp_coords_type_code
       CCTK_POINTER_TO_CONST   interp_coords(N_interp_points)
       integer               N_input_arrays
       CCTK_INT                input_array_dims(N_input_arrays)
       CCTK_INT                input_array_type_codes(N_input_arrays)
       CCTK_POINTER_TO_CONST   input_arrays(N_input_arrays)
       integer               N_output_arrays
       CCTK_INT                output_array_type_codes(N_output_arrays)
       CCTK_POINTER            output_arrays(N_output_arrays)
     end subroutine CCTK_InterpLocalUniform

  end interface

  external CCTK_InterpGV
  external CCTK_InterpLocal
  
end module cctk_Interp