193       integer numdata(2,maxtypes)  local
195       save numdata
210          call readtable_2(itype,table,numdata,dx,
219      &        x .lt. table(1,numdata(1,itype)-1,0,itype) ) then
223      &           table(1,numdata(1,itype)-1,0,itype), ' ] ',
224      &           numdata(1,itype)-1
230      &        y .lt. table(2,0,numdata(2,itype)-1,itype) ) then
234      &           table(2,0,numdata(2,itype)-1,itype), ' ] ',
235      &           numdata(2,itype)-1
254       if(i .ge. numdata(1,itype)) then
255          i = numdata(1,itype)-2
259       if(j .ge. numdata(2,itype)) then
260          j = numdata(2,itype)-2
286       subroutine readtable_2(islot,table,numdata,dx,maxdata,maxslots)  argument
298       integer maxslots,numdata(2,maxslots), maxdata  local
354       numdata(1,islot) = I
355       numdata(2,islot) = j+1
371          do i=0,numdata(1,islot)-1
372             do j=0,numdata(2,islot)-1
411       integer numdata(maxtypes)  local
412       save numdata
428          call readtable_1(itype,table,numdata(itype),dx(itype),
455       elseif( conc_BC .gt. table(numdata(itype),1,itype)) then
456          i = numdata(itype)
472       subroutine readtable_1(islot,table,numdata,dx,maxdata,maxslots)  argument
484       integer numdata, maxdata, maxslots  local
525       numdata = i
529          write(*,*) 'there are ',numdata,' flux data points'