B>
<PRE>
  To check if A = DIAG*I, where I is an M-by-N matrix with ones on
  the diagonal and zeros elsewhere.

</PRE>
<A name="Specification"><B><FONT SIZE="+1">Specification</FONT></B></A>
<PRE>
      LOGICAL FUNCTION MA02HD( JOB, M, N, DIAG, A, LDA )
C     .. Scalar Arguments ..
      CHARACTER          JOB
      INTEGER            LDA, M, N
      DOUBLE PRECISION   DIAG
C     .. Array Arguments ..
      DOUBLE PRECISION   A(LDA,*)

</PRE>
<B><FONT SIZE="+1">Function Value</FONT></B>
<PRE>
  MA02HD  LOG