1 subroutine r8zonfind(x,nx,zxget,i)
6 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
7 INTEGER nx,nxm,i1,i2,ij,ii
21 if((i.lt.1).or.(i.gt.nxm))
then
27 if(x(i).gt.zxget)
then
30 if((x(i)-zxget).gt.4*dx)
then
37 if((x(ij).le.zxget).and.(zxget.le.x(ij+1)))
then
45 else if(x(i+1).lt.zxget)
then
48 if((zxget-x(i+1)).gt.4*dx)
then
55 if((x(ij).le.zxget).and.(zxget.le.x(ij+1)))
then
81 if(zxget.lt.x(ii))
then
83 else if(zxget.gt.x(ii+1))
then