ICAL
          The function value is set to .TRUE. if A = DIAG*I, and to
          .FALSE., otherwise.

</PRE>
<A name="Arguments"><B><FONT SIZE="+1">Arguments</FONT></B></A>
<P>

<B>Mode Parameters</B>
<PRE>
  JOB     CHARACTER*1
          Specifies the part of the matrix A to be checked out,
          as follows:
          = 'U': Upper triangular/trapezoidal part;
          = 'L': Lower triangular/trapezoidal part.
          Otherwise:  All of the matrix A.

</PRE>
<B>Input/Output Parameters</B>
<PRE>
  M