impls/pounders/pounders.c

581   const PetscReal *xmint, *fmin;
681     PetscCall(VecGetArrayRead(mfqP->Fhist[mfqP->minindex], &fmin));
690       for (j = 0; j < mfqP->m; j++) mfqP->Fdiff[ii + mfqP->n * j] = f[j] - fmin[j];
695     for (j = 0; j < mfqP->m; j++) mfqP->C[j] = fmin[j];
696     PetscCall(VecRestoreArrayRead(mfqP->Fhist[mfqP->minindex], &fmin));
708     PetscCall(VecGetArrayRead(mfqP->localfmin, &fmin));
721       for (j = 0; j < mfqP->m; j++) mfqP->Fdiff[ii + mfqP->n * j] = f[j] - fmin[j];
726     for (j = 0; j < mfqP->m; j++) mfqP->C[j] = fmin[j];
727     PetscCall(VecRestoreArrayRead(mfqP->localfmin, &fmin));
868     PetscCall(VecGetArrayRead(mfqP->Fhist[mfqP->minindex], &fmin));
869     PetscCallBLAS("BLAScopy", BLAScopy_(&blasm, fmin, &ione, mfqP->C, &ione));