C	TEST ZU "CIRC"
C
5	READ(1,10)XA
10	FORMAT('XA:',F10.0)
	READ(1,11)YA
11	FORMAT('YA:',F10.0)
	READ(1,12)XC
12	FORMAT('XC:',F10.0)
	READ(1,13)YC
13	FORMAT('YC:',F10.0)
	READ(1,14)T
14	FORMAT('T:',F10.0)
	READ(1,15)PSI
15	FORMAT('PSI:',F10.0)
	READ(1,16)M
16	FORMAT('M:',I4)
	WRITE(1,1)PSI
1	FORMAT(' TEST, PSI=',E16.8)
	CALL CIRC(XA,YA,XC,YC,T,PSI,M)
	GOTO 5
	END