Adapted to avoid warning messages when compiling with ifort debug options "check all". See ticket #254