#title SetIdentityMatrix [RCBasic Doc]
#header sub SetIdentityMatrix(mA, n)