REAL :: mtx(2, 4)

mtx = 1.1 * $
WRITE() mtx

SOLVE(Matrix=mtx, Transpose=mtx)
WRITE() mtx