returns .TRUE. if and only if x
is finite, and returns .FALSE. otherwise.
Background information to multithreading can be found in the Multithreading
This routine will return .FALSE. if the argument x
is either infinite or a NaN (Not A Number).
This program creates various infinities, NaNs and normal numbers and distinguishes between them.