Searched refs:Gauss_rs (Results 1 – 1 of 1) sorted by relevance
78 …PetscCheckA(all(abs(v((k - 1)*numDim + 1:k*numDim) - quad_v(Gauss_rs(k))) < eps), PETSC_COMM_WORLD…79 …PetscCheckA(all(abs(J((k - 1)*numDim**2 + 1:k*numDim**2) - quad_J(Gauss_rs(k))) < eps), PETSC_COMM…88 function Gauss_rs(n) function90 PetscReal :: Gauss_rs(2)96 Gauss_rs = [-p, -p]98 Gauss_rs = [-p, +p]100 Gauss_rs = [+p, -p]102 Gauss_rs = [+p, +p]104 end function Gauss_rs