FILE PROC sqrtm.prc FILE PROC sqrta.prc READ A / ROWS=3 COLS=3 LIST 10 5 3 5 12 2 3 2 11 AMATRIX:A XMATRIX:X * Run the procedure EXEC SQRTM PRINT X * Check the result MATRIX XX=X*X PRINT XX * Try the alternative method EXEC SQRTA PRINT X STOP