      SUBROUTINE DSERR (ISTRNG)
      IMPLICIT NONE
C
C ***      DISPLAY ERROR STRING (WITH COLOR3 BEFORE AND COLOR2 AFTER)
C
      CHARACTER*(*) ISTRNG
C
      INCLUDE MATLAB$KOM:IOP.KOM
      INCLUDE MATLAB$KOM:MATPLT.KOM
C
C
      WRITE (WTE, 10) COLOR3, ISTRNG, COLOR2
      IF (WIO.NE.0) WRITE (WIO, 10) COLOR3, ISTRNG, COLOR2
10    FORMAT (' ', A4, A, A4)
C
      RETURN
      END
