Home
last modified time | relevance | path

Searched refs:fc (Results 1 – 25 of 39) sorted by relevance

12

/petsc/include/petsc/private/
H A Dpetscfeimpl.h306 for (PetscInt fc = 0; fc < Nc; ++fc) { in PetscFEInterpolate_Static() local
307 interpolant[fc] = 0.0; in PetscFEInterpolate_Static()
308 for (PetscInt f = 0; f < Nb; ++f) interpolant[fc] += x[f] * basis[(q * Nb + f) * Nc + fc]; in PetscFEInterpolate_Static()
317 PetscInt fc, f; in PetscFEInterpolateAtPoints_Static() local
324 for (fc = 0; fc < Nc; ++fc) { in PetscFEInterpolateAtPoints_Static()
325 interpolant[fc] = 0.0; in PetscFEInterpolateAtPoints_Static()
326 for (f = 0; f < Nb; ++f) interpolant[fc] += x[f] * basis[(q * Nb + f) * Nc + fc]; in PetscFEInterpolateAtPoints_Static()
336 PetscInt fc, f, d; in PetscFEInterpolateGradient_Static() local
348 for (fc = 0; fc < Nc; ++fc) { in PetscFEInterpolateGradient_Static()
349 for (d = 0; d < cdim; ++d) interpolant[fc * cdim + d] = 0.0; in PetscFEInterpolateGradient_Static()
[all …]
H A Dtaoimpl.h116 PetscReal fc; member
/petsc/src/sys/utils/ftn-custom/
H A Dzsortsof.c20 struct fc_c *fc = (struct fc_c *)ctx; in cmp_via_fortran() local
21 fc->fcmp(a, b, fc->fctx, &result); in cmp_via_fortran()
27 struct fc_c fc = {cmp, ctx}; in petsctimsort_() local
28 *ierr = PetscTimSort(*n, arr, *size, cmp_via_fortran, &fc); in petsctimsort_()
33 struct fc_c fc = {cmp, ctx}; in petsctimsortwitharray_() local
34 *ierr = PetscTimSortWithArray(*n, arr, *asize, barr, *bsize, cmp_via_fortran, &fc); in petsctimsortwitharray_()
/petsc/config/BuildSystem/config/packages/
H A Dfblaslapack.py49 fc = self.compilers.FC
50 if fc.find('f90') >= 0 or fc.find('f95') >=0:
51 if config.setCompilers.Configure.isIBM(fc, self.log):
52 fc = os.path.join(os.path.dirname(fc),'xlf')
54 line = 'FC = '+fc+'\n'
H A DMAGMA.py82 fc = ''
86 fc = self.getCompiler()
161 g.write('FORT = '+fc+'\n')
/petsc/src/dm/dt/fe/interface/
H A Dfe.c2591 for (PetscInt fc = 0; fc < (_NcI); ++fc) { \
2593 const PetscScalar *G = g1 + (fc * (_NcJ) + gc) * _dE; \
2595 const PetscScalar tBIv = tmpBasisI[f * (_NcI) + fc]; \
2610 for (PetscInt fc = 0; fc < (_NcI); ++fc) { \
2611 const PetscScalar *G = g2 + (fc * (_NcJ) + gc) * _dE; \
2615 const PetscScalar *tBDI = tmpBasisDerI + (f * (_NcI) + fc) * (_dE); \
2627 for (PetscInt fc = 0; fc < (_NcI); ++fc) { \
2629 const PetscScalar *G = g3 + (fc * (_NcJ) + gc) * (_dE) * (_dE); \
2631 const PetscScalar *tBDI = tmpBasisDerI + (f * (_NcI) + fc) * (_dE); \
2661 for (PetscInt fc = 0; fc < NcI; ++fc) { in PetscFEUpdateElementMat_Internal() local
[all …]
/petsc/src/ts/tutorials/
H A Dex46.c135 PetscInt fc, gc; in g0_uu() local
140 for (fc = 0; fc < NcI; ++fc) { in g0_uu()
141 for (gc = 0; gc < NcJ; ++gc) g0[fc * NcJ + gc] += u_x[fc * NcJ + gc]; in g0_uu()
152 PetscInt fc, gc, dg; in g1_uu() local
153 for (fc = 0; fc < NcI; ++fc) { in g1_uu()
157 if (fc == gc) g1[(fc * NcJ + gc) * dim + dg] += u[dg]; in g1_uu()
/petsc/src/tao/unconstrained/impls/neldermead/
H A Dneldermead.c118 PetscReal fr, fe, fc; in TaoSolve_NM() local
190 PetscCall(TaoComputeObjective(tao, Xmuc, &fc)); in TaoSolve_NM()
191 if (fc <= fr) PetscCall(NelderMeadReplace(nm, nm->indices[nm->N], Xmuc, fc)); in TaoSolve_NM()
198 PetscCall(TaoComputeObjective(tao, Xmuc, &fc)); in TaoSolve_NM()
199 …if (fc < nm->f_values[nm->indices[nm->N]]) PetscCall(NelderMeadReplace(nm, nm->indices[nm->N], Xmu… in TaoSolve_NM()
/petsc/src/dm/impls/swarm/tests/
H A Dex2.c487 PetscInt starSize, st, d, fc; in InterpolateGradient() local
518 for (fc = 0; fc < Nc; ++fc) { in InterpolateGradient()
519 const PetscReal wt = quadWeights[q * qNc + qc + fc]; in InterpolateGradient()
521 …for (d = 0; d < coordDim; ++d) grad[fc * coordDim + d] += interpolant[fc * dim + d] * wt * fegeom.… in InterpolateGradient()
527 for (fc = 0; fc < numComponents; ++fc) { in InterpolateGradient()
528 for (d = 0; d < coordDim; ++d) gradsum[fc * coordDim + d] += grad[fc * coordDim + d]; in InterpolateGradient()
532 for (fc = 0; fc < numComponents; ++fc) { in InterpolateGradient()
534 if (fc || d > 0) PetscCall(PetscPrintf(PETSC_COMM_SELF, ", ")); in InterpolateGradient()
535 … PetscCall(PetscPrintf(PETSC_COMM_SELF, "%g", (double)PetscRealPart(grad[fc * coordDim + d]))); in InterpolateGradient()
/petsc/src/vec/vec/utils/
H A Dvsection.c215 PetscInt fdof, fc, f2, poff = 0; in PetscSectionGetField_Internal() local
224 for (fc = 0; fc < fdof; ++fc, ++subOff) subIndices[subOff] = goff + poff + fc; in PetscSectionGetField_Internal()
/petsc/doc/install/
H A Dinstall.md38 $ ./configure --with-cc=gcc --with-cxx=0 --with-fc=0 --download-f2cblaslapack --download-mpich
44 …$ ./configure --prefix=/home/user/soft/petsc-install --with-cc=gcc --with-cxx=0 --with-fc=0 --down…
78 Do not specify `--with-cc`, `--with-fc` etc for the above when using
85 …$ ./configure --with-cc=gcc --with-fc=gfortran --with-cxx=g++ --with-clanguage=cxx --download-fbla…
93 …$ ./configure PETSC_ARCH=linux-gnu --with-cc=gcc --with-cxx=g++ --with-fc=gfortran --download-mpich
95 …$ ./configure PETSC_ARCH=linux-gnu-intel --with-cc=icc --with-cxx=icpc --with-fc=ifort --download-…
112 - Specify compilers using the options `--with-cc`/`--with-cxx`/`--with-fc` for c,
116 $ ./configure --with-cc=gcc --with-cxx=g++ --with-fc=gfortran
124 $ ./configure --with-cc=mpicc --with-cxx=mpicxx --with-fc=mpif90
140 $ ./configure --with-fc=0
[all …]
H A Dwindows.md125 $ ./configure --with-cc='win32fe_cl' --with-fc='win32fe_ifort' --with-cxx='win32fe_cl' --with-mpi=0…
131 $ ./configure --with-cc='win32fe_cl' --with-fc=0 --with-cxx=0 --download-f2cblaslapack
164 $ ./configure --with-cc='win32fe_cl' --with-fc='win32fe_ifort' --with-cxx='win32fe_cl' \
H A Dinstall_tutorial.md19 $ ./configure --with-cc=gcc --with-cxx=g++ --with-fc=gfortran --download-mpich --download-fblaslapa…
26 `--with-fc=0` for even faster build times.
/petsc/src/dm/impls/plex/
H A Dplexfem.c1519 PetscInt Nb, Nc, q, fc; in DMPlexComputeL2DiffLocal() local
1561 for (fc = 0; fc < Nc; ++fc) { in DMPlexComputeL2DiffLocal()
1562 const PetscReal wt = quadWeights[q * qNc + (qNc == 1 ? 0 : qc + fc)]; in DMPlexComputeL2DiffLocal()
1564 …cInt_FMT ",%" PetscInt_FMT " point %g %g %g diff %g (%g, %g)\n", c, field, fc, (double)(coordDim >… in DMPlexComputeL2DiffLocal()
1565 …lPart(interpolant[fc] - funcVal[fc])) * wt * fegeom.detJ[q]), (double)PetscRealPart(interpolant[fc… in DMPlexComputeL2DiffLocal()
1566 elemDiff += PetscSqr(PetscRealPart(interpolant[fc] - funcVal[fc])) * wt * fegeom.detJ[q]; in DMPlexComputeL2DiffLocal()
1634 PetscInt Nb, Nc, q, fc; in DMComputeL2GradientDiff_Plex() local
1670 for (fc = 0; fc < Nc; ++fc) { in DMComputeL2GradientDiff_Plex()
1673 for (d = 0; d < dim; ++d) sum += interpolant[fc * dim + d] * n[d]; in DMComputeL2GradientDiff_Plex()
1674 interpolant[fc] = sum; in DMComputeL2GradientDiff_Plex()
[all …]
/petsc/src/sys/classes/viewer/impls/binary/
H A Dbinv.c345 PetscErrorCode PetscViewerBinarySetFlowControl(PetscViewer viewer, PetscInt fc) in PetscViewerBinarySetFlowControl() argument
349 PetscValidLogicalCollectiveInt(viewer, fc, 2); in PetscViewerBinarySetFlowControl()
350 …PetscTryMethod(viewer, "PetscViewerBinarySetFlowControl_C", (PetscViewer, PetscInt), (viewer, fc)); in PetscViewerBinarySetFlowControl()
354 static PetscErrorCode PetscViewerBinarySetFlowControl_Binary(PetscViewer viewer, PetscInt fc) in PetscViewerBinarySetFlowControl_Binary() argument
359 …ck(fc > 1, PetscObjectComm((PetscObject)viewer), PETSC_ERR_ARG_OUTOFRANGE, "Flow control count mus… in PetscViewerBinarySetFlowControl_Binary()
360 vbinary->flowcontrol = fc; in PetscViewerBinarySetFlowControl_Binary()
379 PetscErrorCode PetscViewerBinaryGetFlowControl(PetscViewer viewer, PetscInt *fc) in PetscViewerBinaryGetFlowControl() argument
383 PetscAssertPointer(fc, 2); in PetscViewerBinaryGetFlowControl()
384 …tscUseMethod(viewer, "PetscViewerBinaryGetFlowControl_C", (PetscViewer, PetscInt *), (viewer, fc)); in PetscViewerBinaryGetFlowControl()
388 PETSC_INTERN PetscErrorCode PetscViewerBinaryGetFlowControl_Binary(PetscViewer viewer, PetscInt *fc) in PetscViewerBinaryGetFlowControl_Binary() argument
[all …]
/petsc/src/snes/utils/dm/
H A Ddminterpolatesnes.c915 for (PetscInt fc = 0; fc < Nc; ++fc) { in DMInterpolationEvaluate() local
916 interpolant[p * ctx->dof + coff + fc] = 0.0; in DMInterpolationEvaluate()
917 … 0; f < Nb; ++f) interpolant[p * ctx->dof + coff + fc] += xa[foff + f] * basis[(0 * Nb + f) * Nc +… in DMInterpolationEvaluate()
929 … for (PetscInt fc = 0; fc < Nc; ++fc) interpolant[p * ctx->dof + coff + fc] = xa[foff + fc]; in DMInterpolationEvaluate() local
H A Ddmadapt.c926 for (PetscInt fc = 0; fc < Nc; ++fc) { in DMAdaptorComputeErrorIndicator_Gradient() local
927 const PetscReal wt = quadWeights[q * qNc + qc + fc]; in DMAdaptorComputeErrorIndicator_Gradient()
929 field[fc] += interpolant[fc] * wt * fegeom.detJ[q]; in DMAdaptorComputeErrorIndicator_Gradient()
930 …for (PetscInt d = 0; d < cdim; ++d) gradient[fc * cdim + d] += interpolantGrad[fc * dim + d] * wt … in DMAdaptorComputeErrorIndicator_Gradient()
937 for (PetscInt fc = 0; fc < Nc; ++fc) { in DMAdaptorComputeErrorIndicator_Gradient() local
938 field[fc] /= cg.volume; in DMAdaptorComputeErrorIndicator_Gradient()
939 for (PetscInt d = 0; d < cdim; ++d) gradient[fc * cdim + d] /= cg.volume; in DMAdaptorComputeErrorIndicator_Gradient()
/petsc/src/tao/unconstrained/impls/bmrm/
H A Dbmrm.c24 PetscReal fr, fbest, fv, fc, fv0; in solve() local
79 fc = fv0; in solve()
166 fc = fv; in solve()
169 fc = (fc > fv ? fc : fv); in solve()
172 fr = fc; in solve()
173 fc = fv; in solve()
/petsc/src/vec/is/section/interface/
H A Dsection.c2092 PetscInt fdof = 0, cfdof = 0, fc, numConst = 0, fOff = 0; in PetscSectionCreateSubsection() local
2099 for (fc = 0; fc < cfdof; ++fc) indices[numConst + fc] = oldIndices[fc] + fOff; in PetscSectionCreateSubsection()
2269 PetscInt nf, fi, pStarti, pEndi, fdof, cfdof, fc; in PetscSectionCreateSupersection() local
2278 for (fc = 0; fc < cfdof; ++fc) indices[numConst + fc] = oldIndices[fc]; in PetscSectionCreateSupersection()
2280 for (fc = 0; fc < cfdof; ++fc) indices[numConst + fc] += fOff; in PetscSectionCreateSupersection()
/petsc/src/dm/interface/
H A Ddmi.c209 … for (PetscInt fc = 0; fc < fdof - fcdof; ++fc, ++subOff) subIndices[subOff] = goff + poff + fc; in PetscSectionSelectFields_Private() local
/petsc/src/tao/interface/
H A Dtaosolver.c669 PetscCall(PetscViewerASCIIPrintf(viewer, "Objective value=%g\n", (double)tao->fc)); in TaoView()
1630 PetscCall(PetscViewerASCIIPrintf(viewer, " Function value: %g,", (double)tao->fc)); in TaoMonitorDefault()
1683 PetscCall(PetscViewerASCIIPrintf(viewer, " Function value: %g,", (double)tao->fc)); in TaoMonitorGlobalization()
1737 PetscCall(PetscViewerASCIIPrintf(viewer, " Function value %g,", (double)tao->fc)); in TaoMonitorDefaultShort()
1786 PetscCall(PetscViewerASCIIPrintf(viewer, " Function value: %g,", (double)tao->fc)); in TaoMonitorConstraintNorm()
2014 PetscReal f = tao->fc, steptol = tao->steptol, trradius = tao->step; in TaoDefaultConvergenceTest()
2469 if (f) *f = tao->fc; in TaoGetSolutionStatus()
2528 tao->fc = f; in TaoMonitor()
/petsc/src/tao/leastsquares/impls/brgn/
H A Dbrgn.c234 gn->parent->fc = tao->fc; in GNHookFunction()
249 if (gn->fc_old > tao->fc) { in GNHookFunction()
256 gn->fc_old = tao->fc; in GNHookFunction()
/petsc/config/BuildSystem/config/
H A Dpackage.py1817 fc = self.getCompiler()
1820 output, error, status = self.executeShellCommand(fc+' -v', log = self.log)
1825 fc = os.path.join(os.path.dirname(fc), 'xlf')
1831 args.append('F90="'+fc+'"')
1840 args.append('FC="'+fc+'"')
1841 args.append('F77="'+fc+'"')
/petsc/src/dm/impls/plex/hdf5/
H A Dplexhdf5.c609 PetscInt fdof, fc, f2, poff = 0; in VecView_Plex_Local_HDF5_Internal() local
618 for (fc = 0; fc < fdof; ++fc, ++subOff) suba[subOff] = ga[goff + poff + fc - gstart]; in VecView_Plex_Local_HDF5_Internal()
621 … for (fc = 0; fc < fdof; ++fc, ++newOff) suba[subSize + newOff] = ga[goff + poff + fc - gstart]; in VecView_Plex_Local_HDF5_Internal()
/petsc/src/dm/dt/fe/impls/basic/
H A Dfebasic.c1036 PetscInt fc, f, gc, g; in PetscFEIntegrateBdJacobian_Basic() local
1039 for (fc = 0; fc < T[fieldI]->Nc; ++fc) { in PetscFEIntegrateBdJacobian_Basic()
1041 const PetscInt i = offsetI + f * T[fieldI]->Nc + fc; in PetscFEIntegrateBdJacobian_Basic()
1045 …nt_FMT ",%" PetscInt_FMT ",%" PetscInt_FMT ",%" PetscInt_FMT "]: %g\n", f, fc, g, gc, (double)Pets… in PetscFEIntegrateBdJacobian_Basic()

12