Searched refs:fint (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/sys/objects/ |
| H A D | finit.c | 57 MPI_Fint freal, fscalar, fsum, fint; in PetscInitializeFortran() local
61 fint = MPI_Type_c2f(MPIU_INT); in PetscInitializeFortran()
62 petscsetmoduleblockmpi_(&freal, &fscalar, &fsum, &fint); in PetscInitializeFortran()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex18.c | 887 PetscReal *fmin, *fmax, *fint, *ftmp, t; in MonitorFunctionals() local
894 PetscCall(PetscMalloc4(fcount, &fmin, fcount, &fmax, fcount, &fint, fcount, &ftmp)); in MonitorFunctionals()
902 fint[f] = 0; in MonitorFunctionals()
939 fint[f] += cg->volume * ftmp[f]; in MonitorFunctionals()
946 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, fint, (PetscMPIInt)fcount, MPIU_REAL, MPIU_SUM, PetscObj… in MonitorFunctionals()
968 …12.6g] int %12.6g", &countused, func->name, (double)fmin[id], (double)fmax[id], (double)fint[id])); in MonitorFunctionals()
995 PetscCall(PetscFree4(fmin, fmax, fint, ftmp)); in MonitorFunctionals()
|