From 3aaecd38aaec72e5aafe182f4f48019410546d45 Mon Sep 17 00:00:00 2001 From: eschnett Date: Sun, 28 Oct 2012 20:15:05 +0000 Subject: Add interfaces for isnan etc. git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@54 51d2df92-0e4f-0410-a727-bd43d766d6b6 --- src/cctk.F90 | 2 +- src/cctk_Math.F90 | 43 +++++++++++++++++++++++++++++++++++++++++++ src/make.code.defn | 2 +- 3 files changed, 45 insertions(+), 2 deletions(-) create mode 100644 src/cctk_Math.F90 diff --git a/src/cctk.F90 b/src/cctk.F90 index 09cb4ca..371a91c 100644 --- a/src/cctk.F90 +++ b/src/cctk.F90 @@ -24,13 +24,13 @@ module cctk use cctk_Interp use cctk_Main use cctk_Malloc1 + use cctk_Math use cctk_MemAlloc use cctk_Misc use cctk_ParamCheck use cctk_Parameter use cctk_Reduction use cctk_Schedule - use cctk_Stagger use cctk_Sync use cctk_Termination use cctk_Timers 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 diff --git a/src/make.code.defn b/src/make.code.defn index 1c0e5d7..ca64a09 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -26,13 +26,13 @@ SRCS = cctk.F90 \ cctk_Interp.F90 \ cctk_Main.F90 \ cctk_Malloc1.F90 \ + cctk_Math.F90 \ cctk_MemAlloc.F90 \ cctk_Misc.F90 \ cctk_ParamCheck.F90 \ cctk_Parameter.F90 \ cctk_Reduction.F90 \ cctk_Schedule.F90 \ - cctk_Stagger.F90 \ cctk_Sync.F90 \ cctk_Termination.F90 \ cctk_Timers.F90 \ -- cgit v1.2.3