08/06/04 00:47:24
>>334
PROGRAM NAN
IMPLICIT NONE
REAL(4) :: a
! 12345678901234567890123456789012
a = TRANSFER(B'01111111100000000000000111111110', 0.0)
PRINT *, a
STOP
END PROGRAM NAN
a には NaN が入る。NaN は指数部が全ビット立っていて、仮数部が０以外なので
単精度の場合はこれでいい。endian の違いによらないように左右対称にしてみたｗ
TRANSFER関数を使えば任意の型の中に任意の型での値を入れられるので
それを用いればよい。ここでは2進表現の整数を入れたが、別に文字列とかでもいいので、
たとえば倍精度で６４こ０と１を並べる必要も無い。