1 files changed, 29 insertions, 0 deletions
diff --git a/src/classify.F90 b/src/classify.F90
new file mode 100644
index 0000000..43a08a4
--- /dev/null
+++ b/src/classify.F90
@@ -0,0 +1,29 @@
+! $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