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