13444e80cSBarry Smith static char help[] = "Benchmark dense matrix LU factorization (BLAS/LAPACK)\n\n";
23444e80cSBarry Smith
33444e80cSBarry Smith #include <petscbm.h>
43444e80cSBarry Smith #include <petscmat.h>
53444e80cSBarry Smith
main(int argc,char ** argv)63444e80cSBarry Smith int main(int argc, char **argv)
73444e80cSBarry Smith {
83444e80cSBarry Smith PetscBench bm;
93444e80cSBarry Smith
103444e80cSBarry Smith PetscFunctionBeginUser;
11*c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &argv, NULL, help));
123444e80cSBarry Smith PetscCall(MatInitializePackage());
133444e80cSBarry Smith PetscCall(PetscBenchCreate(PETSC_COMM_SELF, &bm));
143444e80cSBarry Smith PetscCall(PetscBenchSetType(bm, PETSCBMHPL));
153444e80cSBarry Smith PetscCall(PetscBenchSetFromOptions(bm));
163444e80cSBarry Smith PetscCall(PetscBenchSetUp(bm));
173444e80cSBarry Smith PetscCall(PetscBenchRun(bm));
183444e80cSBarry Smith PetscCall(PetscBenchView(bm, PETSC_VIEWER_STDOUT_SELF));
193444e80cSBarry Smith PetscCall(PetscBenchSetSize(bm, 5000));
203444e80cSBarry Smith PetscCall(PetscBenchRun(bm));
213444e80cSBarry Smith PetscCall(PetscBenchView(bm, PETSC_VIEWER_STDOUT_SELF));
223444e80cSBarry Smith
233444e80cSBarry Smith PetscCall(PetscBenchDestroy(&bm));
243444e80cSBarry Smith PetscCall(PetscFinalize());
253444e80cSBarry Smith return 0;
263444e80cSBarry Smith }
273444e80cSBarry Smith
283444e80cSBarry Smith /*TEST
293444e80cSBarry Smith
303444e80cSBarry Smith test:
313444e80cSBarry Smith requires: hpl
323444e80cSBarry Smith
333444e80cSBarry Smith TEST*/
34