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 / XCHAR.for < prev   
Encoding:
Text File  |  1991-04-13  |  480 b   |  22 lines
  1.       SUBROUTINE XCHAR (BUF, K)
  2.       IMPLICIT NONE
  3.       INCLUDE MATLAB$KOM:IOP.KOM
  4. C
  5. C SYSTEM DEPENDENT ROUTINE TO HANDLE SPECIAL CHARACTERS
  6. C
  7.       INTEGER BUF(*), K
  8. C
  9.       INTEGER BACK, MASK, L
  10. C
  11.       DATA BACK / Z'20202008' /, MASK / Z'000000FF' /
  12. C
  13. C
  14.       IF (BUF(1).EQ.BACK) K = -1
  15.       L = BUF(1).AND.MASK
  16.       IF (K.NE.-1) WRITE (WTE, 10) BUF(1), L
  17. 10    FORMAT (' ''', A1, ''' = ', Z2,
  18.      .             ' hex is not a MATLAB character.')
  19. C
  20.       RETURN
  21.       END
  22.