blob: dff44b087135460ed8771d5c07c58b735ad7720e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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
|