character*34 file
	character*132 string,oldstring
	dimension column(29)
	call strget(' aperture file to convert ?',file)
	open(unit=10,file=file,readonly,type='OLD')
	open(unit=11,file='aper.plt',type='new')
	type *,' write to file aper.plt'
	theta=0.
	idold=0.
1	format(a72)
10	read(10,1,end=99)string
	call com_or_data(string,id)
	if(id.eq.1)then
	call data_line(string,jcol,column)
c  find max radius at each angle
	theta=column(4)
	endif
	if(theta.ne.thetaold.or.idold.eq.0.or.id.eq.0)write(11,1)oldstring
	if(string(1:10).eq.'          ')write(11,1)oldstring
	oldstring=string
	idold=id
        thetaold=theta
	goto 10
99	continue
	write(11,1)oldstring
	end