character line*80

	open(1,file='archive/all.jitter',status='old')

	iopen = 0

1	read(1,'(a)',end=99) line
	if (index(line,'Table') .gt. 0) then
          if (iopen .ne. 0) close(7)
          l = index(line,'u2pb')
	  open(7,file='jitter/'//line(l:l+8)//'.jitter',status='unknown')
          iopen = 1
	end if
        l = numchar(line)
	write(7,'(a)') line(1:l)
	goto 1

99	stop
	end

	INTEGER FUNCTION NUMCHAR(CSTRING)

C       This function determines the length of the character string
C       in cstring.

C       Author: Richard J. Stover

	CHARACTER*(*) CSTRING

	IF (CSTRING .EQ. ' ') THEN
	  NUMCHAR = 0
	ELSE
	  DO 8701 I=LEN(CSTRING),1,-1
	    IF (CSTRING(I:I) .NE. ' ' .AND. ICHAR(CSTRING(I:I)) .NE. 0)
     &        GOTO 50
            IF (ICHAR(CSTRING(I:I)) .EQ. 0) CSTRING(I:I) = ' '
8701      CONTINUE
50        NUMCHAR=I
	END IF

	RETURN
	END