home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / MatLab / PRNTID.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  805 b   |  38 lines
  1.       SUBROUTINE PRNTID (ID, ARGCNT)
  2.       IMPLICIT NONE
  3. C
  4. C     PRINT VARIABLE NAMES
  5. C
  6.       INTEGER ID(4,1), ARGCNT
  7. C
  8.       INCLUDE MATLAB$KOM:ALFS.KOM
  9.       INCLUDE MATLAB$KOM:IOP.KOM
  10.       INCLUDE MATLAB$KOM:COM.KOM
  11. C
  12.       INTEGER EQUAL, I, J, J1, J2, K, L
  13. C
  14.       DATA EQUAL / 46 /
  15. C
  16. C
  17.       J1 = 1
  18. 10    CONTINUE
  19.       J2 = MIN0 (J1+7, IABS (ARGCNT))
  20.       L = 0
  21.       DO 16 J = J1, J2
  22.         DO 15 I = 1, 4
  23.           K = ID(I,J)+1
  24.           L = L+1
  25.           BUF(L) = ALFA(K)
  26. 15      CONTINUE
  27. 16    CONTINUE
  28.       IF (ARGCNT.EQ.-1) L = L+1
  29.       IF (ARGCNT.EQ.-1) BUF(L) = ALFA(EQUAL+1)
  30.       WRITE (WTE, 20) (BUF(I), I = 1, L)
  31.       IF (WIO.NE.0) WRITE (WIO, 20) (BUF(I), I = 1, L)
  32. 20    FORMAT (1X, 8(4A1, '  '))
  33.       J1 = J1+8
  34.       IF (J1.LE.IABS (ARGCNT)) GO TO 10
  35. C
  36.       RETURN
  37.       END
  38.