6 lines
80 B
Text
6 lines
80 B
Text
REAL :: a(7), b(3), c(10)
|
|
|
|
c = a
|
|
DO i = 1, LEN(b)
|
|
c(i + LEN(a)) = b(i)
|
|
ENDDO
|