SRESID(1)=AMATRX(1,1)*U(1)+AMATRX(1,2)*U(2) * +AMATRX(1,4)*U(4)+AMATRX(1,5)*U(5) SRESID(2)=AMATRX(2,1)*U(1)+AMATRX(2,2)*U(2) * +AMATRX(2,4)*U(4)+AMATRX(2,5)*U(5) SRESID(4) = AMATRX(4,1)*U(1)+AMATRX(4,2)*U(2) * +AMATRX(4,4)*U(4)+AMATRX(4,5)*U(5) SRESID(5)=AMATRX(5,1)*U(1)+AMATRX(5,2)*U(2) * +AMATRX(5,4)*U(4)+AMATRX(5,5)*U(5) RHS(1,1) = RHS(1,1)-SRESID(1) RHS(2,1) = RHS(2,1)-SRESID(2) RHS(4,1) = RHS(4,1)-SRESID(4) RHS(5,1) = RHS(5,1)-SRESID(5)