C*****************************************************************************
C
C	             Miscellaneous Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test Miscellaneous/ Tmisc.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 Tmisc

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM MISC IMPORT AS
		Integer*4	TstGetsp, TstIntSet
C	END IMPORT
C
C----------------------------------------------------------------------------)

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

		Astat(01) = TstGetsp()
		ALabl(01) = 'IGETSP'
		Astat(02) = TstIntSet()
		Alabl(02) = 'INTSET'

		st = '===== Miscellaneous Function Error Report Summary =====\'
		Call CenterString( st )
		Call WriteLn
		Rprt = Report( Astat, Alabl, 02 )
		st = '===== End of Miscellaneous Function Report =====\'
		Call CenterString( st )
		Call WriteLn
		Call WriteLn

		include 'SRC:Tend.for'