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

#include "cctk.h"

module cctk_WarnLevel
  implicit none

  interface

     subroutine CCTK_Warn (level, line, file, thorn, message)
       implicit none
       integer      level
       integer      line
       character(*) file
       character(*) thorn
       character(*) message
     end subroutine CCTK_Warn

     subroutine CCTK_ParamWarn (thorn, message)
       implicit none
       character(*) thorn
       character(*) message
     end subroutine CCTK_ParamWarn

     subroutine CCTK_Info (thorn, message)
       implicit none
       character(*) thorn
       character(*) message
     end subroutine CCTK_Info
     
  end interface
  
  external CCTK_VWarn
  external CCTK_VParamWarn
  external CCTK_VInfo
  
end module cctk_WarnLevel