T (/' The number of left Kronecker indices = ',I3)
99973 FORMAT (/' The left Kronecker (row) indices of (A,B,C,D) are ',
     $       /(20(I3,2X)))
99972 FORMAT (/' N is out of range.',/' N = ',I5)
99971 FORMAT (/' M is out of range.',/' M = ',I5)
99970 FORMAT (/' P is out of range.',/' P = ',I5)
      END
</PRE>
<B>Program Data</B>
<PRE>
 AB08NZ EXAMPLE PROGRAM DATA
   6     2     3    0.0    N
  (1.0,0.0)  (0.0,0.0)  (0.0,0.0)  (0.0,0.0)  (0.0,0.0)  (0.0,0.0)
  (0.0,0.0)  (1.0,0.0)  (0.0,0.0)  (0.0,0.0)  