The IDENTITY function returns an n by n identity array (an array with ones along the main diagonal and zeros elsewhere).
This routine is written in the IDL language. Its source code can be found in the file
identity.pro
in the
lib
subdirectory of the IDL distribution.