Lines Matching defs:CGRADS

176       SUBROUTINE CGRADS(nNo, nnz, mynNo, commu, cS, ls,   subroutine
181       INTEGER, INTENT(IN) :: nNo, nnz, mynNo
182       TYPE(svLS_commuType), INTENT(IN) :: commu
183       TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
184       TYPE(svLS_subLsType), INTENT(INOUT) :: ls
185       INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
186       REAL*8, INTENT(IN) :: K(nnz)
187       REAL*8, INTENT(INOUT) :: R(nNo)
189       INTEGER i
190       REAL*8 errO, err, alpha, eps
191       REAL*8 CPUT, NORMS, DOTS
192       REAL*8, ALLOCATABLE :: P(:), KP(:), X(:)