********************************************************************************
*                                                                              *
*  2DHF version 1-2003                                                         *
*  Copyright (C) 1996  Jacek Kobus, Leif Laaksonen, Dage Sundholm              *
*                                                                              *
*  This software may be used and distributed according to the terms            *
*  of the GNU General Public License, see README and COPYING.                  *
*                                                                              *
********************************************************************************
c ### pmtx ###
c
c     Prints two-dimensional array in the tabula form row-wise.
c
      subroutine pmtx (n1,n2,a,n1st,n2st,incrn1,incrn2)
      real*8 a
      dimension a(n1,n2)

      do i=n1st,n1,incrn1
         write(6,1000) i, (a(i,j),j=n2st,n2,incrn2)
      enddo

01000 format(/,1x,i4,4d18.8,/(5x,4d18.8))

      return
      end