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

1 files changed, 12 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