C*****************************************************************************
C
C		       Arithmetic Syslib Test Controller
C
C-----------------------------------------------------------------------------
C
C Program	: Test Arithmetic/ Tarith.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 TArith

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM ARITH IMPORT AS
		Integer*4	TstAjflt,  TstDjflt,  TstIAjflt, TstIDjflt
		Integer*4	TstIjcvt,  TstJadd,   TstJafix,  TstJdfix
		Integer*4	TstJdiv,   TstJcmp,   TstJicvt,  TstJmov
		Integer*4	TstJmul,   TstJsub
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Integer*4	AStat(16)
		Character*6     Alabl(16)
		Integer*2	J

		INCLUDE 'SRC:Tbegin.for'
		IF (Page) Call SetPage( 'Arithmetic Support Routines\',Pnum)

		J = ISPY("300)

C	Test if FP11 floating point hardware exists. If not don't perform
C			the ARITHMETIC test class.
C
	    IF(( J .AND. "100) .EQ. 0 ) THEN

		   Call CenterString( 'Can''t Perform this test --- FP11 
     1 floating-point hardware does not exist on this machine. \')
		   Call WriteLn
	    ELSE
 
		Astat(01) = TstAjflt()
		Alabl(01) = 'AJFLT'
		Astat(02) = TstDjflt()
		Alabl(02) = 'DJFLT'
		Astat(03) = TstIAjflt()
		Alabl(03) = 'IAJFLT'
		Astat(04) = TstIDjflt()
		Alabl(04) = 'IDJFLT'
		Astat(05) = TstIjcvt()
		Alabl(05) = 'IJCVT'
		Astat(06) = TstJadd()
		Alabl(06) = 'JADD'
		Astat(07) = TstJafix()
		Alabl(07) = 'JAFIX'
		Astat(08) = TstJdfix()
		Alabl(08) = 'JDFIX'
		Astat(09) = TstJcmp()
		Alabl(09) = 'JCMP'
		Astat(10) = TstJdiv()
		Alabl(10) = 'JDIV'
		Astat(11) = TstJicvt()
		Alabl(11) = 'JICVT'
		Astat(12) = TstJmov()
		Alabl(12) = 'JMOV'
		Astat(13) = TstJmul()
		Alabl(13) = 'JMUL'
		Astat(14) = TstJsub()
		Alabl(14) = 'JSUB'

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

	    END IF

		INCLUDE 'SRC:Tend.for'