implicit double precision(a-h,o-z)
	dimension p(24)
	character*30 inp,line*300
	ncol=14
	call getarg(1,inp)
	open(unit=1,file=inp,status='old')
	open(unit=2,file="out"//inp)
	i=1
2	read(1,'(a300)',end=3) line
	read(line,*,err=2) (p(j),j=1,ncol)
     	write(2,'(f12.5,2f12.1)') 
     *  p(1),p(3),p(4)
	i=i+1
	goto 2
3	write(*,'(a30,a,i7)') inp,
     *  ' Number of rows read ===> ',i-1
	close(1)
	close(2)
	stop
	end