| /petsc/src/ksp/ksp/tutorials/amrex/ |
| H A D | MyEB.H | 16 FlowerIF (amrex::Real a_radius, amrex::Real a_delta, int a_npetals, in FlowerIF()
34 amrex::Real operator() (AMREX_D_DECL(amrex::Real x, amrex::Real y, amrex::Real z)) in operator()
37 amrex::Real posx = x - m_center.x; in operator()
38 amrex::Real posy = y - m_center.y; in operator()
39 amrex::Real r = std::hypot(posx, posy); in operator()
40 amrex::Real theta = std::atan2(posy, posx); in operator()
44 inline amrex::Real operator() (const amrex::RealArray& p) const noexcept in operator()
50 amrex::Real m_r;
51 amrex::Real m_dr;
52 amrex::Real m_npetals;
[all …]
|
| H A D | MyTest.cxx | 77 const Real tol_rel = reltol; in solve()
78 const Real tol_abs = 0.0; in solve()
191 const Real pi = 4.0 * std::atan(1.0); in initData()
195 Array4<Real> const &fab = rhs[ilev].array(mfi); in initData()
197 Real rx = (i + 0.5) * dx[0]; in initData()
198 Real ry = (j + 0.5) * dx[1]; in initData()
209 Array4<Real> const &fab = phi[ilev].array(mfi); in initData()
211 Real rx = (i + 0.5) * dx[0]; in initData()
212 Real ry = (j + 0.5) * dx[1]; in initData()
|
| H A D | MyTest.H | 32 amrex::Vector<amrex::Real> scalars;
40 amrex::Real reltol = 1.e-12;
41 amrex::Real bottom_reltol = 1.e-4;
|
| /petsc/src/binding/petsc4py/demo/legacy/perftest/ |
| H A D | App.f90 | 6 real(kind=C_DOUBLE), intent(in) :: h(3), t
7 real(kind=C_DOUBLE), intent(in) :: x(nx,ny,nz), xdot(nx,ny,nz)
8 real(kind=C_DOUBLE), intent(inout) :: f(nx,ny,nz)
17 real(kind=C_DOUBLE), intent(in) :: h(3), t
18 real(kind=C_DOUBLE), intent(inout) :: x(nx,ny,nz)
23 real(kind=8), intent(in) :: P
24 real(kind=8), intent(out) :: K
33 real(kind=8), intent(in) :: P(-1:1)
34 real(kind=8), intent(out) :: K(-1:1)
35 real(kind=8) :: Ka, Kb
[all …]
|
| H A D | App.pyf | 11 real(kind=8), intent(in) :: h(3), t
12 real(kind=8), intent(in) :: x(nx,ny,nz), xdot(nx,ny,nz)
13 real(kind=8), intent(inout) :: f(nx,ny,nz)
21 real(kind=8), intent(in) :: h(3), t
22 real(kind=8), intent(inout) :: x(nx,ny,nz)
|
| /petsc/share/petsc/matlab/ |
| H A D | generatePetscTestFiles.m | 16 PetscBinaryWrite('spd-real-int32-float64',A,b, 'indices','int32','precision','float64');
17 [At,bt] = PetscBinaryRead('spd-real-int32-float64', 'indices','int32','precision','float64');
20 '%s','Error in PetscBinaryWrite or/and PetscBinaryRead for spd-real-int32-float64');
24 PetscBinaryWrite('spd-real-int64-float64',A, b,'indices','int64','precision','float64');
25 [At,bt] = PetscBinaryRead('spd-real-int64-float64','indices','int64','precision','float64');
28 '%s','Error in PetscBinaryWrite or/and PetscBinaryRead for spd-real-int64-float64');
33 PetscBinaryWrite('spd-real-int32-float32',A,b, 'indices','int32','precision','float32');
34 [At,bt] = PetscBinaryRead('spd-real-int32-float32', 'indices','int32','precision','float32');
37 '%s','Error in PetscBinaryWrite or/and PetscBinaryRead for spd-real-int32-float32');
41 PetscBinaryWrite('spd-real-int64-float32',A,b,'indices','int64','precision','float32');
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex180.c | 34 …args: -mat_type aij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_…
41 …args: -mat_type aij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_…
47 …args: -mat_type baij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc…
54 …args: -mat_type baij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc…
60 …args: -mat_type sbaij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -mallo…
67 …args: -mat_type sbaij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -mallo…
73 … -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -mall…
80 … -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -mall…
86 … -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -mall…
93 … -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -mall…
|
| H A D | ex190.c | 42 …args: -mat_type aij -mat_view -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64
48 …args: -mat_type baij -mat_view -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float…
54 …args: -mat_type sbaij -mat_view -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-floa…
|
| H A D | ex158.c | 25 …SETERRQ(PETSC_COMM_WORLD, PETSC_ERR_SUP, "This example requires real numbers. Your current scalar … in main()
55 PetscCall(PetscObjectSetName((PetscObject)x, "Real Space vector")); in main()
110 PetscCall(PetscObjectSetName((PetscObject)x, "Real space vector")); in main()
125 layout for FFTW. Also, during parallel real transform, this pads extra zeros automatically in main()
126 …at the end of last dimension. This padding is required by FFTW to perform parallel real D.F.T. */ in main()
136 the extra spaces that were artificially padded to perform real parallel transform. */ in main()
|
| /petsc/src/sys/tests/ |
| H A D | ex47-options.yaml | 11 real: *pi
18 $$3: &seq-real [*pi, *eu]
24 real: *seq-real,
36 real:
|
| H A D | ex69f.F90 | 56 …nt *, 'Wall clock time reported by system_clock() ', real(systime_end - systime_start, kind=8)/rea…
72 …nt *, 'Wall clock time reported by system_clock() ', real(systime_end - systime_start, kind=8)/rea…
|
| H A D | ex49.c | 29 PetscCall(PetscDataTypeFromString("real", &dtype, &found)); in main()
30 PetscCheck(found, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Did not find real datatype"); in main()
31 …Check(dtype == PETSC_REAL, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Found wrong datatype for real"); in main()
|
| /petsc/src/sys/classes/random/interface/ |
| H A D | random.c | 33 …When PETSc is compiled for complex numbers this returns a complex number with random real and comp…
34 Use `PetscRandomGetValueReal()` to get a random real number.
36 …To get a complex number with only a random real part, first call `PetscRandomSetInterval()` with a…
38 `PetscRandomSetInterval()` with a equal low and high real part.
63 PetscRandomGetValueReal - Generates a real random number. Call this after first calling
119 …ed for complex numbers this returns an array of complex numbers with random real and complex parts.
120 Use `PetscRandomGetValuesReal()` to get an array of random real numbers.
139 …PetscRandomGetValuesReal - Generates a sequence of real random numbers. Call this after first cal…
217 …for complex numbers either the real part or the imaginary part of high must be greater than its lo…
219 …If the real or imaginary part of low and high are the same then that value is always returned in t…
|
| /petsc/src/binding/petsc4py/demo/legacy/bratu2d/ |
| H A D | bratu2df90.f90 | 9 real(kind=8) :: alpha
10 real(kind=8), intent(in), target :: x(m,n)
11 real(kind=8), intent(inout) :: f(m,n)
12 real(kind=8) :: hx, hy
13 real(kind=8), pointer, &
|
| /petsc/systems/Apple/iOS/examples/Basic/examples.xcodeproj/ |
| H A D | barrysmith.mode1v3 | 255 <real>243</real>
300 <real>243</real>
460 <real>186</real>
497 <real>186</real>
534 <real>0.0</real>
669 <real>0.0</real>
673 <real>0.0</real>
685 <real>0.0</real>
689 <real>0.0</real>
721 <real>120</real>
[all …]
|
| /petsc/include/petsc/finclude/ |
| H A D | petscsysbase.h | 65 #define PetscFortranFloat real(kind=C_FLOAT)
66 #define PetscFortranDouble real(kind=C_DOUBLE)
67 #define PetscFortranLongDouble real(kind=C_FLOAT128)
89 #define PetscIntToReal(a) real(a)
98 ! Macro for templating between real and complex
103 ! F90 uses real(), conjg() when KIND parameter is used.
105 #define PetscRealPart(a) real(a)
|
| /petsc/src/dm/tests/ |
| H A D | ex36.c | 8 PetscReal real; member
16 r = PetscSqrtReal(a.real * a.real + a.imag * a.imag); in CCmplxPow()
17 theta = PetscAtan2Real(a.imag, a.real); in CCmplxPow()
18 b.real = PetscPowReal(r, n) * PetscCosReal(n * theta); in CCmplxPow()
25 b.real = PetscExpReal(a.real) * PetscCosReal(a.imag); in CCmplxExp()
26 b.imag = PetscExpReal(a.real) * PetscSinReal(a.imag); in CCmplxExp()
33 r = PetscSqrtReal(a.real * a.real + a.imag * a.imag); in CCmplxSqrt()
34 theta = PetscAtan2Real(a.imag, a.real); in CCmplxSqrt()
35 b.real = PetscSqrtReal(r) * PetscCosReal(0.5 * theta); in CCmplxSqrt()
42 b.real = a.real + c.real; in CCmplxAdd()
[all …]
|
| /petsc/config/PETSc/options/ |
| H A D | scalarTypes.py | 26 …help.addArgument('PETSc', '-with-scalar-type=<real or complex>', nargs.Arg(None, 'real', 'Specify …
43 '''Choose between real and complex numbers'''
53 elif not self.scalartype == 'real':
54 raise RuntimeError('--with-scalar-type must be real or complex')
89 '''Set the default real number precision for PETSc objects'''
98 if self.libraries.check('quadmath',' ',call = ' real*16 s,w; w = 2.0; s = cos(w)'):
137 raise RuntimeError('__fp16 can only be used with real numbers, not complex')
|
| /petsc/src/binding/petsc4py/demo/legacy/wrap-f2py/ |
| H A D | Bratu2D.pyf | 15 real(kind=8) param
24 real(kind=8) param
33 real(kind=8) param
|
| /petsc/src/binding/petsc4py/demo/legacy/poisson3d/ |
| H A D | del2lib.f90 | 10 real(kind=8) , intent(inout) :: F(0:n+1,0:n+1,0:n+1)
11 real(kind=8) , intent(in) :: x(n,n,n)
12 real(kind=8) , intent(inout) :: y(n,n,n)
|
| /petsc/src/sys/tutorials/ |
| H A D | ex9f.F90 | 70 …PetscCallA(PetscOptionsReal('-real', 'Get an application real', 'Man page', rdefault, rvalue, flg,…
72 write (IOBuffer, '("The real value was set to ",ES12.5,"\n")') rvalue
75 …PetscCallA(PetscOptionsRealArray('-realarray', 'Get an application real array', 'Man page', rarray…
77 write (IOBuffer, '("The real array was set to ",*(ES12.5," "))') rarray
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex45f.F90 | 36 Hx = 1.0/real(mx - 1)
37 Hy = 1.0/real(my - 1)
60 Hx = 1.0/real(mx - 1)
61 Hy = 1.0/real(my - 1)
|
| /petsc/src/sys/tutorials/output/ |
| H A D | ex9f_2.out | 5 The real value was set to 2.34000E+00
6 The real array was set to -3.00000E+00 -4.00000E+00 5.50000E+00
|
| /petsc/src/snes/utils/dm/ |
| H A D | dminterpolatesnes.c | 471 PetscScalar *real; in QuadMap_Private() local
475 PetscCall(VecGetArray(Xreal, &real)); in QuadMap_Private()
480 real[0] = x0 + f_1 * p0 + f_3 * p1 + f_01 * p0 * p1; in QuadMap_Private()
481 real[1] = y0 + g_1 * p0 + g_3 * p1 + g_01 * p0 * p1; in QuadMap_Private()
485 PetscCall(VecRestoreArray(Xreal, &real)); in QuadMap_Private()
534 Vec coordsLocal, r, ref, real; in DMInterpolate_Quad_Private() local
567 PetscCall(VecDuplicate(r, &real)); in DMInterpolate_Quad_Private()
586 PetscCall(VecGetArray(real, &xi)); in DMInterpolate_Quad_Private()
589 PetscCall(VecRestoreArray(real, &xi)); in DMInterpolate_Quad_Private()
590 PetscCall(SNESSolve(snes, real, ref)); in DMInterpolate_Quad_Private()
[all …]
|
| /petsc/share/petsc/datafiles/matrices/ |
| H A D | tiny_system_with_x0_complex.mat | 9 ������������������real������������������������������������ ?������@�4 �4���imag�����������…
11 …��`�������(�������������������������������������������������real��������������������…
|