Lines Matching defs:CGRADV

117       SUBROUTINE CGRADV(dof, nNo, nnz, mynNo, commu, cS, ls,   subroutine
122       INTEGER, INTENT(IN) :: dof, nNo, nnz, mynNo
123       TYPE(svLS_commuType), INTENT(IN) :: commu
124       TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
125       TYPE(svLS_subLsType), INTENT(INOUT) :: ls
126       INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
127       REAL*8, INTENT(IN) :: K(dof*dof,nnz)
128       REAL*8, INTENT(INOUT) :: R(dof,nNo)
130       INTEGER i
131       REAL*8 errO, err, alpha, eps
132       REAL*8 CPUT, NORMV, DOTV
133       REAL*8, ALLOCATABLE :: P(:,:), KP(:,:), X(:,:)