The original called the intrinsic function ``REAL'' to convert ``I'' and ``I-1'' into REAL values. This one calls the intrinsic function ``DBLE'' to convert them into DOUBLE PRECISION values.
Finally, the altered version uses a different FORMAT statement, since there are more significant digits to print out.