home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol244 / lpak10-f.lqr / OUT.FOR < prev    next >
Encoding:
Text File  |  1986-02-11  |  768 b   |  31 lines
  1.       SUBROUTINE OUT(A, LDA, N, M)
  2.       INTEGER I, J, K, M, N, IC, LDA, ICB, ICE
  3.       REAL A(LDA,1)
  4. C
  5. C     GENERAL PURPOSE OUTPUT ROUTINE FOR THE MATRIX A WHICH
  6. C     HAS LEADING DIMENSION LDA AND IS N BY M.
  7. C
  8.       IF (M.EQ.1) GO TO 30
  9.       IC = (M+4)/5
  10.       ICB = 1
  11.       ICE = 5
  12.       DO 20 K=1,IC
  13.         IF (ICE.GT.M) ICE = M
  14.         DO 10 I=1,N
  15.           WRITE (*,99999) (A(I,J),J=ICB,ICE)
  16. 99999     FORMAT (1P5E16.8)
  17.    10   CONTINUE
  18.         ICB = ICB + 5
  19.         ICE = ICE + 5
  20.         WRITE (*,99998)
  21. 99998   FORMAT (/)
  22.    20 CONTINUE
  23.       WRITE (*,99997)
  24. 99997 FORMAT (/)
  25.       RETURN
  26.    30 CONTINUE
  27.       WRITE (*,99999) (A(I,1),I=1,N)
  28.       WRITE (*,99997)
  29.       RETURN
  30.       END
  31.