diff options
Diffstat (limited to 'src/cctk_Math.F90')
-rw-r--r-- | src/cctk_Math.F90 | 43 |
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 |