my_isnan.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
logical function	my_isnan (x)

Function/Subroutine Documentation

my_isnan()

logical function my_isnan

(

intent(in)

x

)

Definition at line 29 of file my_isnan.F.

#ifdef COMP_ARMFLANG
        use, INTRINSIC :: ieee_arithmetic 
#endif
#include "implicit_f.inc"
        my_real, INTENT(IN) :: x
        LOGICAL :: BOOL
 
#ifdef COMP_ARMFLANG      
        bool=ieee_is_nan(x)
#else
        bool=.NOT.(x.EQ.x)
#endif