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

	Program TDataT

C--------------------------------- IMPORT -----------------------------------)
C
C	FROM DATAT IMPORT AS
C
		Integer*4	DtIRcvd,  DtICRcvd, DtIFRcvd, DtIWRcvd
		Integer*4	DtIRead,  DtICRead, DtIFRead, DtIWRead
		Integer*4	DtJRead,  DtJCRead, DtJFRead, DtJWRead
		Integer*4	DtIsdat,  DtICsdat
C
C	END IMPORT
C
C----------------------------------------------------------------------------)

		Integer*4	AStat(14)
		Character*6     Alabl(14)
		Integer*4	jsize
		Integer*2	dblk(4)

		Include 'SRC:Tbegin.for'
		IF (page) Call SetPage('Data Transfer1 Functions\',pnum )

c  Do the IRCVDx tests

		Astat(01) = DtIrcvd()
		ALabl(01) = 'IRCVD'
		Astat(02) = DtIcrcvd()
		Alabl(02) = 'IRCVDC'
		Astat(03) = DtIfrcvd()
		Alabl(03) = 'IRCVDF'
		Astat(04) = DtIwrcvd()
		Alabl(04) = 'IRCVDW'

c  Do the IREADx tests

		Astat(05) = DtIread()
		Alabl(05) = 'IREAD'
		Astat(06) = DtIcread()
		Alabl(06) = 'IREADC'
		Astat(07) = DtIfread()
		Alabl(07) = 'IREADF'
		Astat(08) = DtIwread()
		Alabl(08) = 'IREADF'

c  Do the JREADx tests

		ichan = IGETC()
		i = JSETUP( ichan, dblk, jsize)
		call IFREEC( ichan)

		Astat(09) = DtJread()
		Alabl(09) = 'JREAD'
		Astat(10) = DtJcread()
		Alabl(10) = 'JREADC'
		Astat(11) = DtJfread()
		Alabl(11) = 'JREADF'
		Astat(12) = DtJwread()
		Alabl(12) = 'JREADW'

c  Do the ISDATx tests

		Astat(13) = DtIsdat()
		Alabl(13) = 'ISDAT'
		Astat(14) = DtICsdat()
		Alabl(14) = 'ISDATC'

		Call CentLn(
	1 '===== Data Transfer1 Function Error Report Summary =====\' )
		Rprt = Report( Astat, Alabl, 14 )
		Call CentLn(
	1 '===== End of Data Transfer1 Function Report =====\' )
		Call WriteLn

		Call GetPage( Pnum )
		Call StsCon( Appnd, Page, Pnum, Param(-3) )
		param(ABS(param(0))) = rprt
		CALL IRAD50(12, 'BINTDATA2SAV', Spec )
		Call CloseOutput

		IF (IIAND(Ispy('300'O),2**12) .ne. 2**12) THEN

C			VSpec = Spec
C			Call Irad50( 12, 'SY VBGCHNSAV', Spec )
C			Call Chain( Spec, param, 56 )
			Call Chain( Spec, param(-7), 52 )

		ELSE

			Call Chain( Spec, param(-7), 52 )

		END IF

 9999	CALL EXIT
	END