11 lines
253 B
Text
11 lines
253 B
Text
REAL :: n = 3, Astat(n), Bdyn(1, 1)
|
|
|
|
Astat(2) = 2.22222222
|
|
WRITE(Messagebox, Name) Astat(2)
|
|
|
|
ALLOCATE(Bdyn, 2*n, 3*n)
|
|
Bdyn(n-1, n) = -123
|
|
WRITE(Row=27) Bdyn(n-1, n)
|
|
|
|
ALIAS(Astat, n-1, last2ofAstat, 2)
|
|
WRITE(ClipBoard) last2ofAstat ! 2.22222222 0
|