diff options
-rw-r--r-- | src/classify.F90 | 12 | ||||
-rw-r--r-- | src/classify.c | 10 |
2 files changed, 22 insertions, 0 deletions
diff --git a/src/classify.F90 b/src/classify.F90 index 43a08a4..bf6f727 100644 --- a/src/classify.F90 +++ b/src/classify.F90 @@ -26,4 +26,16 @@ module classify end function TAT_finite end interface + interface + pure CCTK_REAL function TAT_nan () + implicit none + end function TAT_nan + end interface + + interface + pure CCTK_REAL function TAT_inf () + implicit none + end function TAT_inf + end interface + end module classify diff --git a/src/classify.c b/src/classify.c index a2feeb6..f723ef2 100644 --- a/src/classify.c +++ b/src/classify.c @@ -30,3 +30,13 @@ int CCTK_FCALL CCTK_FNAME(TAT_finite) (const CCTK_REAL * restrict const x) return 1; #endif } + +CCTK_REAL CCTK_FCALL CCTK_FNAME(TAT_nan) (void) +{ + return 0.0 / 0.0; +} + +CCTK_REAL CCTK_FCALL CCTK_FNAME(TAT_inf) (void) +{ + return 1.0 / 0.0; +} |