SUBROUTINE RGREND
C*****************************************************************************
C
C Description  : Routine to close all files opened by RGR-calls
C
C Arguments    : none
C
C Author       : F.A.Minkema
C                AKZO PHARMA, Oss Holland
C                dept. SDA
C
C Version      : V2.0      Date : 10-jun-1983
C
C Module name  : RGREND.FTN
C
C Package      : TRAMP
C
C Compilation/Linking : FOR/F4P/TR:NONE RGREND
C
C Updates      : name                 version
C
C  description : 
C
C*****************************************************************************

C
	BYTE DEVNAM,OFNTAB,SETPAG,SETSCR,DAT,TIM,
	1     TEXREC,DATREC,RREC,SBUF,WPGREC
	COMMON/RGRCOM/NUNITR,NUNITS,NOS,MNOS,NUCTAB(4,4),
	1              MAXBUF,NFRXR,LENREC,NPAG,NWPGR,NWPGC,NFXHL,
	2              NRNXRE,NRFFTR,NRLFTR,NRFRTR,NRLRTR,NRFRDR,NRLRDR,
	3              IPHLEN,LOGLEN,LOGWID,NRFLDW,NRLLDW,NRDATE,NCDATE,
	4              NRTIME,NCTIME,NRPAGE,NCPAGE,NRRELS,NCRELS,
	5              DEVNAM(14),SETPAG(6),SETSCR(6),DAT(10),TIM(10),
	6              OFNTAB(32,4),TEXREC(40),DATREC(40),RREC(40),
	7              SBUF(120),WPGREC(133)
C
C
C   close library and event. scratch file
C
	IF (NUNITR.GT.0) CLOSE (UNIT=NUNITR)
	NUNITS=ABS(NUNITS)
	IF (NUNITS.GT.0) CLOSE (UNIT=NUNITS)
C
C   search tabel for logical unit(s) of outputstream(s)
C
	DO 10 I=1,NOS
	  IF (NUCTAB(1,I).GT.0) CLOSE (UNIT=NUCTAB(1,I))
10	CONTINUE
C
C   go back to calling routine
C
	RETURN
	END