c     DRERR1
c>> 1996-05-28 DRERR1   Krogh   Removed IDVAL, X, and Y.
c>> 1996-01-24 DRERR1   Krogh   Removed calls to SERMN and DERMN.
c>> 1987-12-09 DRERR1   Lawson  Initial Code.
c
      call ERMSG('AAAA',1,0,'ERMSG',',')
      call ERMOR('TESTING ERMOR1',',')
      call ERMOR('TESTING ERMOR2','.')
      end