!-----------------------------------------------------------------
SUBROUTINE MxOut (a, nrow, ncol)
USE Numeric_Kinds_Module
USE FileUnits_Module
IMPLICIT NONE
INTEGER nrow, ncol, irow, jcol
REAL(KIND=dp) a(nrow,ncol)
irow = 1
WRITE(Output_Unit,230)(jcol,jcol=1,min(ncol,10))
WRITE(Output_Unit,240)irow, (a(1,jcol),jcol=1,min(ncol,10))
DO irow = 2, min(nrow,10)
   WRITE(Output_Unit,240)irow, (a(irow,jcol),jcol=1,min(ncol,10))
END DO
!
!
 230  FORMAT (1h0, 3x, 8h  row   , 10(3x, i3, 6x))
 240  FORMAT (1h , 1x, 4hcol , i3, 2x, 10(1pe12.4))
 250  FORMAT (1h0, 1x, 4hcol , i3, 2x, 10(1pe12.4))
END SUBROUTINE MxOut