**==mtx_pack.f  
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
      SUBROUTINE  MTX_PACK (A,R,M,N,S,T)
C
C Purpose: Packs an mxn matrix A into an sxt matrix R
C          Note: A and R can be the same matrix in the calling module
C
C      IMPLICIT NONE
      INTEGER  M, N, S, T
      REAL     A(M,N), R(S,T)
C
C-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
C Local Variables:
C
      INTEGER  I,J
C
C------------------------------------------------------------------------------
C
      DO 30 J = 1 , T
         DO 20 I = 1 , S
            R(I,J) = A(I,J)
 20      CONTINUE
 30   CONTINUE
C
      RETURN
      END