Add interfaces for TAT_nan and TAT info

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@44 b716e942-a2de-43ad-8f52-f3dfe468e4e7

2 files changed, 22 insertions, 0 deletions

diff --git a/src/classify.F90 b/src/classify.F90
index 43a08a4..bf6f727 100644
--- a/src/classify.F90
+++ b/src/classify.F90
@@ -26,4 +26,16 @@ module classify
      end function TAT_finite
   end interface
   
+  interface
+     pure CCTK_REAL function TAT_nan ()
+       implicit none
+     end function TAT_nan
+  end interface
+  
+  interface
+     pure CCTK_REAL function TAT_inf ()
+       implicit none
+     end function TAT_inf
+  end interface
+  
 end module classify
diff --git a/src/classify.c b/src/classify.c
index a2feeb6..f723ef2 100644
--- a/src/classify.c
+++ b/src/classify.c
@@ -30,3 +30,13 @@ int CCTK_FCALL CCTK_FNAME(TAT_finite) (const CCTK_REAL * restrict const x)
   return 1;
 #endif
 }
+
+CCTK_REAL CCTK_FCALL CCTK_FNAME(TAT_nan) (void)
+{
+  return 0.0 / 0.0;
+}
+
+CCTK_REAL CCTK_FCALL CCTK_FNAME(TAT_inf) (void)
+{
+  return 1.0 / 0.0;
+}