      subroutine fred(a,b,c)
      real a(10),b(10)
      real c(5)
      do 10 i=1,10
        c(1) = c(1) + a(i) * b(i)
10    continue
      end
