diff options
| author | eschnett <eschnett@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2012-10-28 20:15:05 +0000 |
|---|---|---|
| committer | eschnett <eschnett@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2012-10-28 20:15:05 +0000 |
| commit | 3aaecd38aaec72e5aafe182f4f48019410546d45 (patch) | |
| tree | 79dd6a954d63a15d7f0a0b74c2493eb19f659057 | |
| parent | 03dd2beeed34107e5268ac11241e3ae9f8b5d822 (diff) | |
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@54 51d2df92-0e4f-0410-a727-bd43d766d6b6
| -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 \ |