NayfWp2Rd9Y1rRyH

elemental function sisnan(x) result(res)
real(kind(1.e0)), intent(in) :: x

short black skirt, taurus,

concerning is it not

good choice!,

logical :: res
res = ieor(ibclr(transfer(x,sNan),SPSB), sNaN) == 0
end function

Advertisements
This entry was posted in ☢⌈¥ •á☩¾ and tagged . Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s