Searched refs:fsum (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/sys/objects/ |
| H A D | finit.c | 57 MPI_Fint freal, fscalar, fsum, fint; in PetscInitializeFortran() local
60 fsum = MPI_Op_c2f(MPIU_SUM); in PetscInitializeFortran()
62 petscsetmoduleblockmpi_(&freal, &fscalar, &fsum, &fint); in PetscInitializeFortran()
|
| /petsc/src/sys/ftn-mod/ |
| H A D | petscsysmod.F90 | 679 MPIU_Op fsum
683 MPIU_SUM = fsum
|
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | pounders.c | 28 static PetscErrorCode pounders_feval(Tao tao, Vec x, Vec F, PetscReal *fsum) in pounders_feval() argument
38 PetscCall(VecDot(mfqP->workfvec, mfqP->workfvec, fsum)); in pounders_feval()
40 *fsum = 0; in pounders_feval()
46 *fsum += tao->res_weights_w[i] * fc * fr; in pounders_feval()
49 PetscCall(VecDot(F, F, fsum)); in pounders_feval()
51 PetscCall(PetscInfo(tao, "Least-squares residual norm: %20.19e\n", (double)*fsum)); in pounders_feval()
52 …PetscCheck(!PetscIsInfOrNanReal(*fsum), PETSC_COMM_SELF, PETSC_ERR_USER, "User provided compute fu… in pounders_feval()
|