286       subroutine readtable_2(islot,table,numdata,dx,maxdata,maxslots)  argument
297       integer islot  local
312       write(filename,1066) islot
342       table(1,i,j,islot) = x1*1.d-0
343       table(2,i,j,islot) = x2*1.d-0
344       table(3,i,j,islot) = y1*1.d-0
345       table(4,i,j,islot) = y2*1.d-0
354       numdata(1,islot) = I
355       numdata(2,islot) = j+1
357       dx(1,islot) = table(1,2,1,islot) - table(1,1,1,islot)
358       dx(2,islot) = table(2,1,2,islot) - table(2,1,1,islot)
368      &        dx(1,islot),' and ',dx(2,islot),' apart.'
371          do i=0,numdata(1,islot)-1
372             do j=0,numdata(2,islot)-1
373                write(*,*) i,j,(table(k,i,j,islot), k=1,4)
472       subroutine readtable_1(islot,table,numdata,dx,maxdata,maxslots)  argument
483       integer islot  local
496       write(filename,1066) islot
517       read (linein,*) table(i,1,islot), table(i,2,islot)
518       table(i,1,islot)= table(i,1,islot)*1.0d-0
519       table(i,2,islot)= table(i,2,islot)*1.0d-0
526       dx = table(1,1,islot)-table(0,1,islot)
535             write(*,*) j,table(j,1,islot), table(j,2,islot)