20       subroutine DtN(iBC,BC,y)  argument
23       real*8 BC(nshg,ndofBC),y(nshg,ndof),tmp(nsclr)  local
29                tmp(j)=y(i,5+j)
197       real*8  x,y, z(3,2)  local
215       y = tmp(2)
229          if( y .gt. table(2,0,0,itype) .or. 
230      &        y .lt. table(2,0,numdata(2,itype)-1,itype) ) then
231             write(*,*) 'Sorry, concentration 2 asked for: ', y
242       j = int ( (y - table(2,0,0,itype) ) / dx(2,itype))
251          y = table(2,0,0,itype)
261          y = table(1,0,j+1,itype)
277      &        *(y-table(2,i,j,itype)) + z(2,1)