& xx_gentim2d_preproc, xx_gentim2d_preproc_c
& xx_gentim2d_preproc_c(maxCtrlProc,maxCtrlTim2D)
& xx_gentim2d_preproc_r, xx_gentim2d_preproc_c,
xx_gentim2d_preproc_c(jarr,iarr) = ' '
if (xx_gentim2d_preproc_c(jarr,iarr).NE.' ') then
il = ilnblnk(xx_gentim2d_preproc_c(jarr,iarr))
& xx_gentim2d_preproc_c(jarr,iarr)(1:il)