Usenet 1994 October/usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso/misc/volume43/pf77/part01/test.f

Text File | 1994-06-10 | 146b | 8 lines

      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