7 lines
80 B
Text
7 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
|