C	PROGRAMM TEST SUBROUTINE TTAFE(NF,T)
C	UND TTAFF(NF,T)
C	FORTRAN II,LIB12.RL
	DO 1 I=1,30
	NF=I
	CALL TTAFE(NF,T)
	T1=T
	CALL TTAFF(NF,T)
	T2=T
	WRITE(1,100)T1,T2
100	FORMAT(F7.3,'   ',F7.3)
1	CONTINUE
	DO 2 I=35,45,5
	NF=I
	CALL TTAFE(NF,T)
	T1=T
	CALL TTAFF(NF,T)
	T2=T
2	WRITE(1,100)T1,T2
	DO 3 I=50,100,10
	NF=I
	CALL TTAFE(NF,T)
	T1=T
	CALL TTAFF(NF,T)
	T2=T
3	WRITE(1,100)T1,T2
	DO 4 I=120,180,20
	NF=I
	CALL TTAFE(NF,T)
	T1=T
	CALL TTAFF(NF,T)
	T2=T
4	WRITE(1,100)T1,T2
	DO 5 I=200,500,100
	NF=I
	CALL TTAFE(NF,T)
	T1=T
	CALL TTAFF(NF,T)
	T2=T
5	WRITE(1,100)T1,T2
	NF=1000
	CALL TTAFE(NF,T)
	T1=T
	CALL TTAFF(NF,T)
	T2=T
	WRITE(1,100)T1,T2
	CALL EXIT
	END