PROGRAM C0602A
      REAL AS,BS,RS
      DOUBLE PRECISION AL,BL,RL
      BS=2.0
      RS=0.123456789012345
      BL=2.0D0
      RL=0.123456789012345D0
      AS=BS*RS
      AL=BL*RL
      WRITE(6,100)AS
100   FORMAT(1X,"AS= ",E22.15)
      WRITE(6,200)AL
200   FORMAT(1X,"AL= ",E22.15)
      END