DOUBLE PRECISION D0,D1,D2,D3
      D0=1.0123+.456789D-4
      D1=1.0123D0+.456789D-4
      WRITE(6,4)D0,D1
   4  FORMAT(' D0=',F12.10,' D1=',F12.10)
      R=D0
      WRITE(6,5)R
    5 FORMAT(' R=',F14.10)
      STOP
      END