567   PetscScalar       *pcontrib, *pvcol;  in PCGAMGProlongator_Classical_Standard()  local
599   PetscCall(PetscMalloc3(fn, &lsparse, fn, &gsparse, nl, &pcontrib));  in PCGAMGProlongator_Classical_Standard()
631     pcontrib[i] = 0.;  in PCGAMGProlongator_Classical_Standard()
643             pcontrib[icol[j]] = 1.;  in PCGAMGProlongator_Classical_Standard()
649               if (lcid[icol[k]] >= 0) pcontrib[icol[k]] = 1.;  in PCGAMGProlongator_Classical_Standard()
656           if (lcid[icol[j]] >= 0 && pcontrib[icol[j]] != 0.) {  in PCGAMGProlongator_Classical_Standard()
663             pcontrib[icol[j]] = 0.;  in PCGAMGProlongator_Classical_Standard()
669               if (lcid[icol[k]] >= 0 && pcontrib[icol[k]] != 0.) {  in PCGAMGProlongator_Classical_Standard()
676                 pcontrib[icol[k]] = 0.;  in PCGAMGProlongator_Classical_Standard()
710             pcontrib[icol[j]] += pentry;  in PCGAMGProlongator_Classical_Standard()
733                   pcontrib[icol[k]] += pjentry;  in PCGAMGProlongator_Classical_Standard()
748             if (lcid[icol[j]] >= 0 && pcontrib[icol[j]] != 0.) {  in PCGAMGProlongator_Classical_Standard()
750               if (PetscAbsScalar(pcontrib[icol[j]]) > 0.0) {  in PCGAMGProlongator_Classical_Standard()
752                 pvcol[pncols] = -pcontrib[icol[j]] * diag;  in PCGAMGProlongator_Classical_Standard()
756               pcontrib[icol[j]] = 0.;  in PCGAMGProlongator_Classical_Standard()
763                 if (lcid[icol[k]] >= 0 && pcontrib[icol[k]] != 0.) {  in PCGAMGProlongator_Classical_Standard()
764                   if (PetscAbsScalar(pcontrib[icol[k]]) > 0.0) {  in PCGAMGProlongator_Classical_Standard()
766                     pvcol[pncols] = -pcontrib[icol[k]] * diag;  in PCGAMGProlongator_Classical_Standard()
770                   pcontrib[icol[k]] = 0.;  in PCGAMGProlongator_Classical_Standard()
776             pcontrib[icol[j]] = 0.;  in PCGAMGProlongator_Classical_Standard()
787   PetscCall(PetscFree3(lsparse, gsparse, pcontrib));  in PCGAMGProlongator_Classical_Standard()