& xx_gentim2d_preproc_r, xx_gentim2d_bounds
_RL xx_gentim2d_preproc_r(maxCtrlProc,maxCtrlTim2D)
& xx_gentim2d_preproc_r, xx_gentim2d_preproc_c,
xx_gentim2d_preproc_r(jarr,iarr) = 0. _d 0
if (xx_gentim2d_preproc_r(jarr,iarr).NE.0. _d 0) then
& xx_gentim2d_preproc_r(jarr,iarr)