iNew = ipart(ip,bi,bj) + DFLOAT(sNx)
jhi = 0.5 _d 0 + DFLOAT(sNy)
jNew = jpart(ip,bi,bj) - DFLOAT(sNy)
jNew = jpart(ip,bi,bj) + DFLOAT(sNy)
ihi = 0.5 _d 0 + DFLOAT(sNx)
iNew = ipart(ip,bi,bj) - DFLOAT(sNx)
iHi = 0.5 _d 0 + DFLOAT(sNx)
jHi = 0.5 _d 0 + DFLOAT(sNy)
ddx = ix - DFLOAT(i1)
ddx = 0.5 _d 0 + ix - DFLOAT(i1)
ddy = jy - DFLOAT(j1)
ddy = 0.5 _d 0 + jy - DFLOAT(j1)
ddz = kz - DFLOAT(k1)
ddz = 0.5 _d 0 + kz - DFLOAT(k1)
ddx = 0.5 _d 0 + ix - DFLOAT(i)
ddy = 0.5 _d 0 + jy - DFLOAT(j)
FLT_MAP_R2K = DFLOAT(k)+fm-0.5 _d 0
ddz = 0.5 _d 0 + kr - DFLOAT(k)
ix = DFLOAT(i)+fm-0.5 _d 0
jy = DFLOAT(j)+fm-0.5 _d 0
kzhi = 0.5 _d 0 + DFLOAT(Nr)
i0x = DFLOAT( myXGlobalLo-1 + (bi-1)*sNx )
j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy )
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)