      PROGRAM product2
      IMPLICIT NONE
      REAL*8 a, force, m
      WRITE(*,'(A,$)') '? '
      READ(*,*) m
      WRITE(*,'(A,$)') 'acceleration a (mks units) = '
      READ(*,*) a
      force = m*a                           ! force in Newton's
      WRITE(*,*) 'force (in Newtons) =', force
      END
