求助：附件是用代数多重网格求解器求解线性方程组的代码，出现如下错误：
*** ERROR IN CHECK: DIAGONAL IS NON-POSITIVE ***
跪请高手指教！