Lines Matching full:modes
3731 PetscReal *invV, *modes; in DMPlexCoordinatesToReference_FE() local
3743 PetscCall(DMGetWorkArray(dm, pdim, MPIU_REAL, &modes)); in DMPlexCoordinatesToReference_FE()
3746 modes[i] = 0.; in DMPlexCoordinatesToReference_FE()
3747 for (j = 0; j < pdim; ++j) modes[i] += invV[i * pdim + j] * PetscRealPart(nodes[j]); in DMPlexCoordinatesToReference_FE()
3766 resNeg[l] -= modes[k] * B[k * Nc + l]; in DMPlexCoordinatesToReference_FE()
3767 for (m = 0; m < dimR; m++) J[l * dimR + m] += modes[k] * D[(k * Nc + l) * dimR + m]; in DMPlexCoordinatesToReference_FE()
3786 PetscCall(DMRestoreWorkArray(dm, pdim, MPIU_REAL, &modes)); in DMPlexCoordinatesToReference_FE()
3796 PetscReal *invV, *modes; in DMPlexReferenceToCoordinates_FE() local
3806 PetscCall(DMGetWorkArray(dm, pdim, MPIU_REAL, &modes)); in DMPlexReferenceToCoordinates_FE()
3809 modes[i] = 0.; in DMPlexReferenceToCoordinates_FE()
3810 for (j = 0; j < pdim; ++j) modes[i] += invV[i * pdim + j] * PetscRealPart(nodes[j]); in DMPlexReferenceToCoordinates_FE()
3819 for (l = 0; l < Nc; l++) mapped[l] += modes[k] * B[(j * pdim + k) * Nc + l]; in DMPlexReferenceToCoordinates_FE()
3823 PetscCall(DMRestoreWorkArray(dm, pdim, MPIU_REAL, &modes)); in DMPlexReferenceToCoordinates_FE()