     $         //'   rows    norm(Schur complement)',/)
99996 FORMAT (/' The upper ICC factor of the block Toeplitz matrix is '
     $       )
99995 FORMAT (I4,5X,F8.4)
99994 FORMAT (20(1X,F8.4))
99993 FORMAT (/' N is out of range.',/' N = ',I5)
99992 FORMAT (/' K is out of range.',/' K = ',I5)
99991 FORMAT (/' IT is out of range.',/' IT = ',I5)
      END
</PRE>
<B>Program Data</B>
<PRE>
MB02FD EXAMPLE
4 2 3
0 1 1
    3.0000    1.0000    0.1000    0.1000    0.2000    0.0500   0.2000   0.3000
    1.0000    4