**==mtx_write.f  
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
      SUBROUTINE  MTX_WRITE (CHANNEL, A,M,N)
C
C Purpose: MTX_WRITE writes matrix A ont' selected channel
C
C      IMPLICIT NONE
      INTEGER  CHANNEL
      INTEGER  M,N
      REAL     A(M,N)
C
C-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
C Local Variables:
C
      INTEGER  I, J
C
C------------------------------------------------------------------------------
C
      DO 20 I = 1 , M
         WRITE (CHANNEL,6010) (A(I,J),J=1,N)
 20   CONTINUE
C
      RETURN
 6010 FORMAT (1X,9G14.6)
      END
