192       real*8  dx(2,maxtypes)  local
194       save dx
210          call readtable_2(itype,table,numdata,dx,
241       i = int ( (x - table(1,0,0,itype) ) / dx(1,itype))
242       j = int ( (y - table(2,0,0,itype) ) / dx(2,itype))
272          z(2,1) = (z(3,1) - z(1,1)) / dx(1,itype)
274          z(2,2) = (z(3,2) - z(1,2)) / dx(1,itype)
276          tmp(n-2) = (z(2,2) - z(2,1))/dx(2,itype)
286       subroutine readtable_2(islot,table,numdata,dx,maxdata,maxslots)  argument
300       real*8 table(4,0:maxdata,0:maxdata,maxslots), dx(2,maxslots)  local
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.'
409       real*8  dx(maxtypes)  local
410       save dx
428          call readtable_1(itype,table,numdata(itype),dx(itype),
431          if(dx(itype) .eq. 0.0d0) then
450       i = int ( (conc_BC - table(0,1,itype) ) / dx(itype))
472       subroutine readtable_1(islot,table,numdata,dx,maxdata,maxslots)  argument
486       real*8 table(0:maxdata,2,maxslots),dx  local
526       dx = table(1,1,islot)-table(0,1,islot)