SUBROUTINE TFREND
C*****************************************************************************
C
C Description  : Routine to close all files opened by TFR-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  : TFREND.FTN
C
C Package      : TRAMP
C
C Compilation/Linking : FOR/F4P/TR:NONE TFREND
C
C Updates      : name                 version
C
C  description : 
C
C*****************************************************************************

C
	BYTE HOMSTR,CLRSTR,ERLSTR,NATSTR,HERPOS,ERRATT,HLPATT,FCR,SBUF,FREC
	COMMON/TFRCOM/NUNIT,MAXBUF,NRNXFR,LLFLD,NLFCR,IHEFLG,ISCR,
	1              NRFFFR,NRLFFR,NRFDFR,NRLDFR,NRFUFR,NRLUFR,
	2              HOMSTR(4),CLRSTR(4),ERLSTR(4),NATSTR(6),HERPOS(8),
	3              ERRATT(8),HLPATT(8),FCR(80),SBUF(120),FREC(40)
C
C
C   clear video attributes and close library file
C
	CALL SWRITE(,'+$',NATSTR)
	IF (NUNIT.GT.0) CLOSE (UNIT=NUNIT)
C
C   go back to calling routine
C
	RETURN
	END