REAL :: a(7), b(3), c(10)

c = a
DO i = 1, LEN(b)
   c(i + LEN(a)) = b(i)
ENDDO