diff options
| -rw-r--r-- | src/cctk.F90 | 2 | ||||
| -rw-r--r-- | src/cctk_Math.F90 | 43 | ||||
| -rw-r--r-- | src/make.code.defn | 2 |
3 files changed, 45 insertions, 2 deletions
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 \ |