	common /f13com/ j,indx,ilow,jline
        character*80 jline
	integer*4 j, indx, ilow
