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