C*****************************************************************************
C
C		         String Function Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test String / TStrng.For
C Author	: John Malcolmson
C Date		: June 1986, July 1986
C Language	: Fortran 77
C Notes		: The program is chained to by the Libtst program.
C
C*****************************************************************************

	Program TStrng

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM STRNG IMPORT AS
		Integer*4	TstConcat, TstIndex,  TstInsert, TstLen
		Integer*4	TstRepeat, TstScomp,  TstCopy,   TstStrpad
		Integer*4	TstSubstr, TstTransl, TstTrim,   TstVerify
		Integer*4	TGetStr,   TstPutStr
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Integer*4	AStat(15)
		Character*6     Alabl(15)
		Include 'SRC:Tbegin.for'
		IF (Page) Call SetPage('Character String Support Routines\',Pnum)

		Astat(01) = TstConcat()
		Alabl(01) = 'CONCAT'
		Astat(02) = TGetStr()
		Alabl(02) = 'GETSTR'
		Astat(03) = TstIndex()
		Alabl(03) = 'INDEX'
		Astat(04) = TstInsert()
		Alabl(04) = 'INSERT'
		Astat(05) = TstLen()
		Alabl(05) = 'LEN'
		Astat(06) = TstPutStr()
		Alabl(06) = 'PUTSTR'
		Astat(07) = TstRepeat()
		Alabl(07) = 'REPEAT'
		Astat(08) = TstScomp()
		Alabl(08) = 'SCOMP'
		Astat(09) = TstCopy()
		Alabl(09) = 'SCOPY'
		Astat(10) = TstStrpad()
		Alabl(10) = 'STRPAD'
		Astat(11) = TstSubstr()
		Alabl(11) = 'SUBSTR'
		Astat(12) = TstTransl()
		Alabl(12) = 'TRANSL'
		Astat(13) = TstTrim()
		Alabl(13) = 'TRIM'
		Astat(14) = TstVerify()
		Alabl(14) = 'VERIFY'

		Call CenterString('===== String Function Error Report Summary =====\')
		Call WriteLn
		Rprt = Report( Astat, Alabl, 14 )
		Call CenterString( '===== End of String Function Report =====\' )
		Call WriteLn
		Call WriteLn

		Include 'SRC:Tend.for'