SUBROUTINE OUT(A, LDA, N, M)
      INTEGER I, J, K, M, N, IC, LDA, ICB, ICE
      REAL A(LDA,1)
C
C     GENERAL PURPOSE OUTPUT ROUTINE FOR THE MATRIX A WHICH
C     HAS LEADING DIMENSION LDA AND IS N BY M.
C
      IF (M.EQ.1) GO TO 30
      IC = (M+4)/5
      ICB = 1
      ICE = 5
      DO 20 K=1,IC
        IF (ICE.GT.M) ICE = M
        DO 10 I=1,N
          WRITE (3,99999) (A(I,J),J=ICB,ICE)
99999     FORMAT (1P5E14.6)
   10   CONTINUE
        ICB = ICB + 5
        ICE = ICE + 5
        WRITE (3,99998)
99998   FORMAT (1H )
   20 CONTINUE
      WRITE (3,99998)
      RETURN
   30 CONTINUE
      WRITE (3,99999) (A(I,1),I=1,N)
      WRITE (3,99998)
      RETURN
      END