! $Header$

#include "cctk.h"

module classify
  implicit none
  
  interface
     elemental integer function TAT_isnan (x)
       implicit none
       CCTK_REAL, intent(in) :: x
     end function TAT_isnan
  end interface
  
  interface
     elemental integer function TAT_isinf (x)
       implicit none
       CCTK_REAL, intent(in) :: x
     end function TAT_isinf
  end interface
  
  interface
     elemental integer function TAT_finite (x)
       implicit none
       CCTK_REAL, intent(in) :: x
     end function TAT_finite
  end interface
  
end module classify