SUBROUTINE REDIM(A,NA,MA,B,NB,MB)
      DIMENSION A(NA,MA),B(NB,MB)
      M=MIN0(MA,MB)
      N=MIN0(NA,NB)
      DO 20 J=1,M
        DO 20 I=1,N
 20   A(I,J)=B(I,J)
      RETURN
      END