real z(11),smadj(2)
	character name*64

	open(1,file='files.lis',status='old')

1	read(1,'(a)',end=99) name
	l = index(name,' ') -1
	open(2,file=name(1:l),status='old')
	read(2,*)
	do i=1,11
          read(2,*) j, z(i)
        end do
	read(2,*) smcent, smadj
	read(2,*) j, x, y
	print 101, z(2), z(3), smcent, smadj, x-nint(x), y-nint(y)
101	format(7f8.4)


	close(2)
	goto 1

99	continue
	end