real a(10),b(10),t(10)
      do 10, i=1,10
      t(i)=a(i)
      b(i)=t(i)
10    continue
      end