10 lines
390 B
Plaintext
10 lines
390 B
Plaintext
REAL :: nums(12)
|
|
CHARACTER :: workspace*100
|
|
|
|
nums = (1, 3, 2, 9, 1, 2, 3, 8, 8, 1, 0, 2)
|
|
WRITE(Text=workspace) nums ! convert to string
|
|
EDIT(Text=workspace, SortDelDbls=workspace) ! do the job for a string
|
|
READ(Text=workspace, ItemS=individuals) nums ! convert to numeric
|
|
|
|
WRITE(ClipBoard) individuals, "individuals: ", nums ! 6 individuals: 0 1 2 3 8 9 0 0 0 0 0 0
|