blob: 5ba489bc365d4ec8f8fe85c7ecb8e040c24d05f2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
C----------------------------------------------------------------------
subroutine ftsrnn(value)
C set a 32-bit pattern equal to an IEEE Not-a-Number value
C A NaN has all the exponent bits=1, and the fractional part
C not=0.
C
C written by Wm Pence, HEASARC/GSFC, June 1991
integer value
C there are many NaN values; choose a simple one in which all bits=1
value=-1
end
|
