C*---------------------------------------------------------------------*
C|           G T O E R R :  GET ERROR SUBROUTINE FOR OUTPUT            |
C*---------------------------------------------------------------------*
      SUBROUTINE GTOERR(ERSUBR,MSG)
      INCLUDE 'INPCOM.I'
      EXTERNAL ERSUBR
      INTEGER MSG(1)
      CALL ERSUBR(MSG,INBUF,MAXBUF)
      RETURN
      END