Add interfaces for isnan etc.HEADsvnmaster

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@54 51d2df92-0e4f-0410-a727-bd43d766d6b6

1 files changed, 43 insertions, 0 deletions

diff --git a/src/cctk_Math.F90 b/src/cctk_Math.F90
new file mode 100644
index 0000000..dff44b0
--- /dev/null
+++ b/src/cctk_Math.F90
@@ -0,0 +1,43 @@
+module cctk_Math
+  implicit none
+
+  interface
+
+     double precision function CCTK_copysign (x, y)
+       implicit none
+       double precision, intent(in) :: x, y
+     end function CCTK_copysign
+
+     integer function CCTK_fpclassify (x)
+       implicit none
+       double precision, intent(in) :: x
+     end function CCTK_fpclassify
+
+     integer function CCTK_isfinite (x)
+       implicit none
+       double precision, intent(in) :: x
+     end function CCTK_isfinite
+
+     integer function CCTK_isinf (x)
+       implicit none
+       double precision, intent(in) :: x
+     end function CCTK_isinf
+
+     integer function CCTK_isnan (x)
+       implicit none
+       double precision, intent(in) :: x
+     end function CCTK_isnan
+
+     integer function CCTK_isnormal (x)
+       implicit none
+       double precision, intent(in) :: x
+     end function CCTK_isnormal
+
+     integer function CCTK_signbit (x)
+       implicit none
+       double precision, intent(in) :: x
+     end function CCTK_signbit
+
+  end interface
+
+end module cctk_Math