x2dNorm = 1. _d 0
x2dNorm = a2dNorm*rhsMax
& ' ,', x2dNorm, ' ; Criter=', residCriter
x2d(i,j,bi,bj) = x2d(i,j,bi,bj)*x2dNorm
_RL rhsMax, b2dNorm, x2dNorm