SUBROUTINE MPREND
C*****************************************************************************
C
C Description  : Routine to close all files opened by MPR-calls
C
C Arguments    : none
C
C Author       : F.A.Minkema
C                AKZO PHARMA, Oss Holland
C                dept. SDA
C
C Version      : V1.0      Date : 10-jun-1983
C
C Module name  : MPREND.FTN
C
C Package      : TRAMP
C
C Compilation/Linking : FOR/F4P/TR:NONE MPREND
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
C   close library file
C
	IF (NUNIT.GT.0) CLOSE (UNIT=NUNIT)
C
C   go back to calling routine
C
	RETURN
	END