| /petsc/src/sys/tests/ |
| H A D | ex25.c | 8 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Real tests:\n")); in main() 15 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "sqrt(%f) = %f\n", (double)a, (double)b)); in main() 17 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "cbrt(%f) = %f\n", (double)a, (double)b)); in main() 20 … PetscCall(PetscPrintf(PETSC_COMM_WORLD, "hypot(%f,%f) = %f\n", (double)a, (double)c, (double)b)); in main() 22 … PetscCall(PetscPrintf(PETSC_COMM_WORLD, "atan2(%f,%f) = %f\n", (double)a, (double)c, (double)b)); in main() 25 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "pow(%f,%f) = %f\n", (double)a, (double)c, (double)b)); in main() 27 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "exp(%f) = %f\n", (double)a, (double)b)); in main() 29 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "log(%f) = %f\n", (double)a, (double)b)); in main() 31 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "log10(%f) = %f\n", (double)a, (double)b)); in main() 33 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "log2(%f) = %f\n", (double)a, (double)b)); in main() [all …]
|
| H A D | ex35.c | 17 PetscCall(PetscPrintf(PETSC_COMM_SELF, "1st test\n")); in main() 18 for (i = 0; i < 5; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main() 19 PetscCall(PetscPrintf(PETSC_COMM_SELF, "---------------\n")); in main() 21 for (i = 0; i < 5; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main() 23 PetscCall(PetscPrintf(PETSC_COMM_SELF, "\n2nd test\n")); in main() 24 for (i = 0; i < 10; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main() 25 PetscCall(PetscPrintf(PETSC_COMM_SELF, "---------------\n")); in main() 27 for (i = 0; i < 10; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g\n", (double)x[i])); in main() 29 PetscCall(PetscPrintf(PETSC_COMM_SELF, "\n3rd test\n")); in main() 30 …for (i = 0; i < 5; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %2" PetscInt_FMT " %g\n", ind… in main() [all …]
|
| H A D | ex21.c | 21 if (!mask[i]) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " %" PetscInt_FMT " ", Level[i])); in main() 23 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\nNumber of levels %" PetscInt_FMT "\n", Nlevels)); in main() 25 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\nLevel %" PetscInt_FMT " ", i)); in main() 26 …for (j = 0; j < Levelcnt[i]; j++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%" PetscInt_FMT " ", Id… in main() 28 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\nColumn of each node")); in main() 30 if (!mask[i]) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " %" PetscInt_FMT " ", Column[i])); in main() 32 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n")); in main()
|
| H A D | ex14.c | 14 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "Scalar a = %g + %gi\n", (double)PetscRealPart(a), (double)… in main() 20 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Real rarray of length %" PetscInt_FMT "\n", n)); in main() 21 for (i = 0; i < n; i++) PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g,\n", (double)rarray[i])); in main() 27 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Scalar rarray of length %" PetscInt_FMT "\n", n)); in main() 30 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g - %gi\n", (double)PetscRealPart(array[i]), (double)Pet… in main() 32 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " %g + %gi\n", (double)PetscRealPart(array[i]), (double)Pet… in main()
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex44.c | 39 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Original X[%" PetscInt_FMT "] vector\n", i)); in main() 55 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Expected Y vector\n")); in main() 57 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "---------------------------------------------------------… in main() 61 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Testing VecConcatenate() for Y = [X[1], X[2], ...]\n")); in main() 66 PetscCall(PetscPrintf(PETSC_COMM_WORLD, " FAIL\n")); in main() 68 PetscCall(PetscPrintf(PETSC_COMM_WORLD, " PASS\n")); in main() 70 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "---------------------------------------------------------… in main() 75 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Testing VecConcatenate() for Y = [X[1], X[2], ...] w/o IS… in main() 80 PetscCall(PetscPrintf(PETSC_COMM_WORLD, " FAIL\n")); in main() 82 PetscCall(PetscPrintf(PETSC_COMM_WORLD, " PASS\n")); in main() [all …]
|
| H A D | ex11.c | 41 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_2 Norm of entire vector: %g\n", (double)norm)); in main() 44 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_1 Norm of entire vector: %g\n", (double)norm)); in main() 47 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_inf Norm of entire vector: %g\n", (double)norm)); in main() 50 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_2 Norm of sub-vector 0: %g\n", (double)norm)); in main() 53 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_1 Norm of sub-vector 0: %g\n", (double)norm)); in main() 56 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_inf Norm of sub-vector 0: %g\n", (double)norm)); in main() 59 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_2 Norm of sub-vector 1: %g\n", (double)norm)); in main() 62 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_1 Norm of sub-vector 1: %g\n", (double)norm)); in main() 65 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "L_inf Norm of sub-vector 1: %g\n", (double)norm)); in main()
|
| H A D | ex11f90.F90 | 53 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_2 Norm of entire vector: '//trim(outputString)//'\n', … 57 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_1 Norm of entire vector: '//trim(outputString)//'\n', … 61 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_inf Norm of entire vector: '//trim(outputString)//'\n'… 65 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_2 Norm of sub-vector 0: '//trim(outputString)//'\n', i… 69 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_1 Norm of sub-vector 0: '//trim(outputString)//'\n', i… 73 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_inf Norm of sub-vector 0: '//trim(outputString)//'\n',… 77 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_2 Norm of sub-vector 1: '//trim(outputString)//'\n', i… 81 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_1 Norm of sub-vector 1: '//trim(outputString)//'\n', i… 85 …PetscCallA(PetscPrintf(PETSC_COMM_WORLD, 'L_inf Norm of sub-vector 1: '//trim(outputString)//'\n',…
|
| H A D | ex1.c | 68 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Vector length %" PetscInt_FMT "\n", n)); in main() 70 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecMax %g, VecInd %" PetscInt_FMT "\n", (double)maxval, m… in main() 73 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecMin %g, VecInd %" PetscInt_FMT "\n", (double)maxval, m… in main() 74 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "All other values should be near zero\n")); in main() 80 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecScale %g\n", (double)v)); in main() 86 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecCopy %g\n", (double)v)); in main() 92 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecAXPY %g\n", (double)v)); in main() 98 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecAYPX %g\n", (double)v)); in main() 104 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecSwap %g\n", (double)v)); in main() 108 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecSwap %g\n", (double)v)); in main() [all …]
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex34.c | 32 PetscCall(PetscPrintf(comm, "Original: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 37 PetscCall(PetscPrintf(comm, "cached: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 47 PetscCall(PetscPrintf(comm, "Altered: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 52 PetscCall(PetscPrintf(comm, "recomputed: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 62 PetscCall(PetscPrintf(comm, "Scale: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 68 PetscCall(PetscPrintf(comm, "recompute: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 78 PetscCall(PetscPrintf(comm, "Normalize: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 84 PetscCall(PetscPrintf(comm, "recompute: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 95 PetscCall(PetscPrintf(comm, "Original: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() 100 PetscCall(PetscPrintf(comm, "copied: norm1=%e,norm2=%e\n", (double)nrm1, (double)nrm2)); in main() [all …]
|
| H A D | ex41.c | 14 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "============== %s ==============\n", PETSC_FUNCTION_NAME)… in test_vec_ops() 41 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "a = [c d] \n")); in test_vec_ops() 47 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "a = [d c] \n")); in test_vec_ops() 55 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "b = [e f] \n")); in test_vec_ops() 61 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "b = [f e] \n")); in test_vec_ops() 68 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "X = [a b] \n")); in test_vec_ops() 75 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "X.X = %g \n", (double)PetscRealPart(val))); in test_vec_ops() 77 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "X = [b a] \n")); in test_vec_ops() 85 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "X.X = %g \n", (double)PetscRealPart(val))); in test_vec_ops() 88 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "X = [g h] \n")); in test_vec_ops() [all …]
|
| H A D | ex46.c | 28 if (ismpiio) PetscCall(PetscPrintf(comm, "*** PetscViewer[write] using MPI-IO ***\n")); in MyVecDump() 30 if (isskip) PetscCall(PetscPrintf(comm, "*** PetscViewer[write] skipping header ***\n")); in MyVecDump() 55 if (isskip) PetscCall(PetscPrintf(comm, "*** PetscViewer[load] skipping header ***\n")); in MyVecLoad() 57 if (ismpiio) PetscCall(PetscPrintf(comm, "*** PetscViewer[load] using MPI-IO ***\n")); in MyVecLoad() 88 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecCompare\n")); in VecCompare() 89 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " min(a) = %+1.2e [loc %" PetscInt_FMT "]\n", (double)m… in VecCompare() 90 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " max(a) = %+1.2e [loc %" PetscInt_FMT "]\n", (double)m… in VecCompare() 92 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " min(b) = %+1.2e [loc %" PetscInt_FMT "]\n", (double)m… in VecCompare() 93 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " max(b) = %+1.2e [loc %" PetscInt_FMT "]\n", (double)m… in VecCompare() 100 PetscCall(PetscPrintf(PETSC_COMM_WORLD, " ERROR: min(a-b) > 1.0e-10\n")); in VecCompare() [all …]
|
| H A D | ex100cu.cu | 73 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "writing vector in binary to vector.dat ...\n")); in main() 77 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "writing vector in hdf5 to vector.dat ...\n")); in main() 82 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "writing vector in adios to vector.dat ...\n")); in main() 93 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Using MPI IO for reading the vector\n")); in main() 97 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "reading vector in binary from vector.dat ...\n")); in main() 102 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "reading vector in hdf5 from vector.dat ...\n")); in main() 107 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "reading vector in adios from vector.dat ...\n")); in main() 114 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Setting vector sizes...\n")); in main() 131 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Setting vector type...\n")); in main() 134 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Before load, vectype is : %s\n", (char *)vectype)); in main() [all …]
|
| H A D | ex48.c | 131 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT, *(PetscInt *)ptr0)); in compare() 133 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "%" PetscInt_FMT " != %" PetscInt_FMT "\n", *(PetscInt *)pt… in compare() 141 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%f", *(PetscReal *)ptr0)); in compare() 143 … PetscCall(PetscPrintf(PETSC_COMM_SELF, "%f != %f\n", *(PetscReal *)ptr0, *(PetscReal *)ptr1)); in compare() 151 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%s", PetscBools[*(PetscBool *)ptr0])); in compare() 153 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "%s != %s\n", PetscBools[*(PetscBool *)ptr0], PetscBools[*(… in compare() 161 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%s", (char *)ptr0)); in compare() 163 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%s != %s\n", (char *)ptr0, (char *)ptr1)); in compare() 293 PetscCall(PetscPrintf(comm, " %-24s = ", attribute)); in CapsuleReadAndCompareAttributes() 294 if (!hasAttr) PetscCall(PetscPrintf(comm, "---")); in CapsuleReadAndCompareAttributes() [all …]
|
| H A D | ex44.c | 44 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "The vector sizes are %" PetscInt_FMT ". The number of ele… in main() 45 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Adjust the parameters such that m>=n\n")); in main() 47 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "The vector sizes are %" PetscInt_FMT ". The number of ele… in main() 48 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "For the Strided Scatter, toFirst=%" PetscInt_FMT " and to… in main() 49 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "This produces an index (toFirst+(n-1)*toStep)>=m\n")); in main() 50 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Adjust the parameterrs accordingly with -m, -n, -toFirst,… in main() 52 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "The vector sizes are %" PetscInt_FMT ". The number of ele… in main() 53 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "For the Strided Scatter, fromFirst=%" PetscInt_FMT " and … in main() 54 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "This produces an index (fromFirst+(n-1)*fromStep)>=m\n")); in main() 55 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Adjust the parameterrs accordingly with -m, -n, -fromFirs… in main() [all …]
|
| H A D | ex37.c | 56 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n\n============== %s ==============\n", PETSC_FUNCTION_N… in test_view() 106 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "(max-b) = %f : index = %" PetscInt_FMT " \n", (double)val… in test_view() 109 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "(min-b) = %f : index = %" PetscInt_FMT " \n", (double)val… in test_view() 114 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "(max-X) = %f : index = %" PetscInt_FMT " \n", (double)val… in test_view() 116 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "(min-X) = %f : index = %" PetscInt_FMT " \n", (double)val… in test_view() 145 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Testing Wnorms %s: E? %d A? %d R? %d\n", norm == NORM_2 ?… in test_view() 148 …if (vn_loc != nn_loc) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " error with total norm loc: %" Pe… in test_view() 149 …if (vna_loc != nna_loc) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " error with absolute norm loc: … in test_view() 150 …if (vnr_loc != nnr_loc) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " error with relative norm loc: … in test_view() 151 …if (!PetscIsCloseAtTol(vna, nna, 0, PETSC_SQRT_MACHINE_EPSILON)) PetscCall(PetscPrintf(PETSC_COMM_… in test_view() [all …]
|
| /petsc/src/benchmarks/streams/ |
| H A D | SSEVersion.c | 88 PetscPrintf(PETSC_COMM_WORLD, HLINE); in main() 90 …PetscPrintf(PETSC_COMM_WORLD, "This system uses %d bytes per DOUBLE PRECISION word.\n", BytesPerWo… in main() 92 PetscPrintf(PETSC_COMM_WORLD, HLINE); in main() 93 PetscPrintf(PETSC_COMM_WORLD, "Array size = %d, Offset = %d\n", N, OFFSET); in main() 94 …PetscPrintf(PETSC_COMM_WORLD, "Total memory required = %.1f MB per process.\n", (3 * N * BytesPerW… in main() 95 PetscPrintf(PETSC_COMM_WORLD, "Each test is run %d times, but only\n", NTIMES); in main() 96 PetscPrintf(PETSC_COMM_WORLD, "the *best* time for each is used.\n"); in main() 129 PetscPrintf(PETSC_COMM_WORLD, HLINE); in main() 131 …if ((quantum = checktick()) >= 1) PetscPrintf(PETSC_COMM_WORLD, "Your clock granularity/precision … in main() 132 …else PetscPrintf(PETSC_COMM_WORLD, "Your clock granularity appears to be less than one microsecond… in main() [all …]
|
| /petsc/src/sys/tutorials/ |
| H A D | ex9f.F90 | 48 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr)) 53 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr)) 58 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr)) 63 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr)) 68 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr)) 73 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr)) 78 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr)) 83 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr)) 88 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, trim(IOBuffer)//"\n", ierr)) 93 PetscCallA(PetscPrintf(PETSC_COMM_WORLD, IOBuffer, ierr))
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex96.c | 55 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Number of zonal variables: %d\n", nZonalVar)); in main() 60 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Number of nodal variables: %d\n", nNodalVar)); in main() 66 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Testing PetscViewerExodusIISet[Nodal/Zonal]VariableNames\… in main() 75 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n\nReopenning the output file in Read-only mode\n")); in main() 76 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Testing PetscViewerExodusIIGet[Nodal/Zonal]VariableNames\… in main() 83 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Nodal variable %d: %s, index in file %d\n", i, varName… in main() 87 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Nodal variable %d: %s, index in file %d\n", i, testNam… in main() 90 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n")); in main() 94 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Zonal variable %d: %s, index in file %d\n", i, varName… in main() 98 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Zonal variable %d: %s, index in file %d\n", i, testNam… in main()
|
| H A D | ex95.c | 55 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Number of zonal variables: %d\n", nZonalVar)); in main() 60 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Number of nodal variables: %d\n", nNodalVar)); in main() 66 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Testing PetscViewerExodusIISet[Nodal/Zonal]VariableName\n… in main() 75 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n\nReopenning the output file in Read-only mode\n")); in main() 76 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Testing PetscViewerExodusIIGet[Nodal/Zonal]VariableName\n… in main() 85 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Nodal variable %d: %s, index in file %d\n", i, varName… in main() 89 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Nodal variable %d: %s, index in file %d\n", i, testNam… in main() 91 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n")); in main() 96 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Zonal variable %d: %s, index in file %d\n", i, varName… in main() 100 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Zonal variable %d: %s, index in file %d\n", i, testNam… in main()
|
| H A D | ex35.c | 12 PetscCall(PetscPrintf(PETSC_COMM_SELF, "Memory Estimates\n")); in EstimateMemory() 25 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " Coordinate mem: %" PetscInt_FMT " %" PetscInt_FMT "\n",… in EstimateMemory() 34 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " Label mem: %" PetscInt_FMT "\n", (PetscInt)(labelM… in EstimateMemory() 44 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " Cone mem: %" PetscInt_FMT " %" PetscInt_FMT " (%"… in EstimateMemory() 54 …PetscCall(PetscPrintf(PETSC_COMM_SELF, " Support mem: %" PetscInt_FMT " %" PetscInt_FMT "\n",… in EstimateMemory() 57 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Estimated memory %" PetscInt_FMT "\n", (PetscInt)*est)); in EstimateMemory() 85 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Measured Memory\n")); in main() 87 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Initial memory %" PetscInt_FMT "\n Extra memor… in main() 90 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " Memory for mesh %" PetscInt_FMT "\n", (PetscInt)(after… in main() 91 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Discrepancy %" PetscInt_FMT "\n", (PetscInt)PetscAbsReal(… in main()
|
| /petsc/src/mat/tests/ |
| H A D | ex2.c | 13 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\nMatAXPY: (C^T)^T = (C^T)^T + alpha * A, C=A, SAME_NONZ… in TransposeAXPY() 15 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\nMatAXPY: (C^H)^H = (C^H)^H + alpha * A, C=A, SAME_NONZ… in TransposeAXPY() 27 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "MatAXPY: C = C + alpha * (A^T)^T, C=A, SAME_NONZERO_PATT… in TransposeAXPY() 29 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "MatAXPY: C = C + alpha * (A^H)^H, C=A, SAME_NONZERO_PATT… in TransposeAXPY() 44 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "MatAXPY: (C^T)^T = (C^T)^T + alpha * (A^T)^T, C=A, SAME_… in TransposeAXPY() 46 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "MatAXPY: (C^H)^H = (C^H)^H + alpha * (A^H)^H, C=A, SAME_… in TransposeAXPY() 63 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "MatAXPY: Now without the transposition operation\n")); in TransposeAXPY() 124 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "original A: Frobenius norm = %g, one norm = %g, infinity … in main() 142 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "B = A^T: Frobenius norm = %g, one norm = %g, infinity nor… in main() 149 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "MatAXPY: B = B + alpha * A\n")); in main() [all …]
|
| /petsc/src/dm/tutorials/ |
| H A D | ex15.c | 34 if (ismpiio) PetscCall(PetscPrintf(comm, "*** PetscViewer[write] using MPI-IO ***\n")); in MyVecDump() 36 if (isskip) PetscCall(PetscPrintf(comm, "*** PetscViewer[write] skipping header ***\n")); in MyVecDump() 61 if (isskip) PetscCall(PetscPrintf(comm, "*** PetscViewer[load] skipping header ***\n")); in MyVecLoad() 63 if (ismpiio) PetscCall(PetscPrintf(comm, "*** PetscViewer[load] using MPI-IO ***\n")); in MyVecLoad() 123 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "ERROR: Difference > 1.0e-10 occurred (delta = (%+1.12e,%+1… in HeaderlessBinaryReadCheck() 128 …PetscCall(PetscPrintf(PETSC_COMM_SELF, "ERROR: Difference > 1.0e-10 occurred (delta = %+1.12e [loc… in HeaderlessBinaryReadCheck() 136 …if (dataverified) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Headerless read of data verified for: %s… in HeaderlessBinaryReadCheck() 154 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "VecCompare\n")); in VecCompare() 155 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " min(a) = %+1.2e [loc %" PetscInt_FMT "]\n", (double)m… in VecCompare() 156 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, " max(a) = %+1.2e [loc %" PetscInt_FMT "]\n", (double)m… in VecCompare() [all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex31.c | 64 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Before partitioning/reordering, A:\n")); in main() 76 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "mis, new processor assignment:\n")); in main() 82 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "nis:\n")); in main() 90 PetscCall(PetscPrintf(PETSC_COMM_SELF, "[ %d ] count:\n", rank)); in main() 91 … for (i = 0; i < size; i++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " %" PetscInt_FMT, count[i])); in main() 92 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n")); in main() 100 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "inverse of nis - maps new local rows to old global rows:\… in main() 106 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "After partitioning/reordering, A:\n")); in main() 131 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Number of iterations = %3" PetscInt_FMT "\n", its)); in main() 132 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Residual norm %g\n", (double)norm)); in main() [all …]
|
| H A D | ex82.c | 44 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%% Number of Ritz pairs %" PetscInt_FMT "\n", Na)); in main() 46 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%% Eigenvalue(s) %g ", (double)tetar[i])); in main() 48 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%+gi", (double)tetai[i])); in main() 50 PetscCall(PetscPrintf(PETSC_COMM_WORLD, " %g ", (double)tetar[i])); in main() 51 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%+gi", (double)-tetai[i])); in main() 54 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "\n")); in main() 55 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%% Eigenvector\n")); in main() 59 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%% Imaginary part of Eigenvector\n")); in main()
|
| /petsc/src/dm/tests/ |
| H A D | ex27.c | 88 PetscCall(PetscPrintf(PETSC_COMM_SELF, "%3-" PetscInt_FMT ": USFFT on vector of ")); in main() 90 PetscCall(PetscPrintf(PETSC_COMM_SELF, "dim[%d] = %d ", i, dim[i])); in main() 93 PetscCall(PetscPrintf(PETSC_COMM_SELF, "; total size %d \n", N)); in main() 118 PetscCall(PetscPrintf(PETSC_COMM_SELF, "|x|_2 = %g\n", norm)); in main() 137 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "y = \n")); in main() 139 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "yy = \n")); in main() 144 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "z = \n")); in main() 146 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "zz = \n")); in main() 155 PetscCall(PetscPrintf(PETSC_COMM_SELF, "|x-z| = %g\n", enorm)); in main() 162 PetscCall(PetscPrintf(PETSC_COMM_SELF, "|xx-zz| = %g\n", enorm)); in main() [all …]
|