& xx_genarr2d_preproc_i,xx_genarr3d_preproc_i
integer xx_genarr2d_preproc_i(maxCtrlProc,maxCtrlArr2D)
if (xx_genarr2d_preproc_i(k2,iarr).NE.0)
& numsmo=xx_genarr2d_preproc_i(k2,iarr)
& xx_genarr2d_preproc, xx_genarr2d_preproc_i,
xx_genarr2d_preproc_i(jarr,iarr) = 0