98 …S(const CeedScalar lambda, const CeedScalar mu, const CeedScalar grad_u[3][3], CeedScalar Swork[6],  in commonFS()
137     Swork[m] = (lambda * (*logJ)) * Cinvwork[m];  in commonFS()
138     for (CeedInt n = 0; n < 3; n++) Swork[m] += mu * C_inv[indj[m]][n] * E2[n][indk[m]];  in commonFS()
214     CeedScalar       Swork[6], Cinvwork[6], logJ;  in ElasFSResidual_NH()  local
220     commonFS(lambda, mu, tempgradu, Swork, Cinvwork, &logJ);  in ElasFSResidual_NH()
224         {Swork[0], Swork[5], Swork[4]},  in ElasFSResidual_NH()
225         {Swork[5], Swork[1], Swork[3]},  in ElasFSResidual_NH()
226         {Swork[4], Swork[3], Swork[2]}  in ElasFSResidual_NH()
310     CeedScalar       Swork[6], Cinvwork[6], logJ;  in ElasFSJacobian_NH()  local
316     commonFS(lambda, mu, tempgradu, Swork, Cinvwork, &logJ);  in ElasFSJacobian_NH()
341         {Swork[0], Swork[5], Swork[4]},  in ElasFSJacobian_NH()
342         {Swork[5], Swork[1], Swork[3]},  in ElasFSJacobian_NH()
343         {Swork[4], Swork[3], Swork[2]}  in ElasFSJacobian_NH()