WriteMatrixInt.F

c**********************************************************************
#include "author.inc"
c*    $Id: WriteMatrixInt.F,v 1.5 1995/08/30 05:47:28 turner Exp $
c*
c*    Writes out matrix of integers.
c*
c*    <PARAMETER LIST>
c*
c*     Input:
c*      lu - logical unit to which to write
c*      idim - leading dimension of array ja
c*      nrows - number of active rows in array ja
c*      ncols - number of active columns in array ja
c*      ja - matrix
c*      title - character description
c*
c*     Output:
c*      status - return status
c*
#include "copyright.inc"
c**********************************************************************
      subroutine JT_WriteMatrixInt (lu, idim, nrows, ncols, ja,
     &           title, status)
      implicit none
c
c ... Input:
      integer idim, lu, nrows, ncols
      integer ja(idim,ncols)
      character*(*) title
c
c ... Output:
      integer status
c
c ... Local:
      integer i, j
c
      write(lu,*)
      write(lu,*) title
      write(lu,*)
      if (ncols .le. 10) then
       do i=1,nrows
        write(lu,501) i, (ja(i,j),j=1,ncols)
       enddo
      else
       do j=1,ncols
        write(lu,*)
        write(lu,*) 'Column: ',j
        write(lu,*)
        do i=1,nrows
         write(lu,501) i, ja(i,j)
        enddo
       enddo
      endif
c
      status = 0
      return
c
  501 format (t2, i7, 2x, 10(2x,i7))
      end