Lines Matching defs:CGRAD

41       SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face,   subroutine
46       INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo
47       TYPE(svLS_commuType), INTENT(IN) :: commu
48       TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
49       TYPE(svLS_faceType), INTENT(IN) :: face(nFaces)
50       TYPE(svLS_subLsType), INTENT(INOUT) :: ls
51       INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
52       REAL*8, INTENT(IN) :: D(dof,nnz), G(dof,nnz), L(nnz)
53       REAL*8, INTENT(INOUT) :: R(nNo)
55       INTEGER i  local
56       REAL*8 errO, err, alpha, eps, time
57       REAL*8 CPUT, NORMS, DOTS
58       REAL*8, ALLOCATABLE :: X(:), P(:), SP(:), DGP(:), GP(:,:),
59      2   unCondU(:,:)