SUBROUTINE MPRCM
C*****************************************************************************
C
C Description  : Routine to clear message area
C                This routine is reserved for MPR-subroutines only
C
C Arguments    : none
C
C Author       : F.A.Minkema
C                AKZO PHARMA, Oss Holland
C                dept. SDA
C
C Version      : V1.0      Date : 1-nov-1982
C
C Module name  : MPRCM.FTN
C
C Package      : TRAMP
C
C Compilation/Linking : FOR/F4P/TR:NONE MPRCM
C
C Updates      : name                 version
C
C  description : 
C
C*****************************************************************************

C
	BYTE CLRSTR,ERLSTR,CLRVAT,FLSVAT,FNPPOS,FNGPOS,FLSPOS,
	1     MESPAT,GENVAT,GENLAT,MENPAT,FUNTAB,TYPTAB,MFTTAB
	COMMON/MPRCOM/ISCR,NUNIT,IBTFLG,IMESFL,MAXBUF,LMAR,
	1              MSTACK,ISTACK(8),NRMMR,NRNRCM,NRFUN,
	2              NRFFLR,NRLFLR,NRTTAB(12),
	3              CLRSTR(8),ERLSTR(4),CLRVAT(6),FLSVAT(8),
	4              FNPPOS(8),FNGPOS(8),FLSPOS(8),MESPAT(14),
	5              GENVAT(8),GENLAT(4,2),MENPAT(10),
	6              FUNTAB(6,12),TYPTAB(12),MFTTAB(7,12)
C
C
	IF (IMESFL.GE.1) CALL SWRITE(ISCR,'+',MESPAT,CLRVAT,ERLSTR)
	IF (IMESFL.GE.2) CALL SWRITE(ISCR,' ',ERLSTR)
	IF (IMESFL.EQ.3) CALL SWRITE(ISCR,' $',ERLSTR)
	IMESFL=0
C
C   go back to calling routine
C
	RETURN
	END