C*****************************************************************************
C
C	             Radix-50 Support Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test Radix-50 Support/ Tradix.For
C Author	: John Malcolmson
C Date		: June 1986
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program Tradix

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM RADIX IMPORT AS
		Integer*4	TstIrad50, TstR50asc, TstRad50
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Character*80	st
		Integer*4	AStat(4)
		Character*6     Alabl(4)
		Include 'SRC:Tbegin.for'
		IF (page) Call SetPage( 'Radix-50 Support Functions\', pnum )

		Astat(01) = TstIrad50()
		ALabl(01) = 'IRAD50'
		Astat(02) = TstR50asc()
		Alabl(02) = 'R50ASC'
		Astat(03) = TstRad50()
		Alabl(03) = 'RAD50'

		st = '===== Radix-50 Support Function Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 03 )
		st = '===== End of Radix-50 Support Function Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		include 'SRC:Tend.for'