& num_gentim2d, num_gentim2dm, mult_gentim2d
_RL mult_gentim2d(maxCtrlTim2D)
& genarr2dPrecond, gentim2dPrecond,mult_gentim2d
mult_gentim2d(iarr) = 0. _d 0
& + mult_gentim2d(num_var)