1*3444e80cSBarry Smith static char help[] = "Benchmark dense matrix LU factorization (BLAS/LAPACK)\n\n"; 2*3444e80cSBarry Smith 3*3444e80cSBarry Smith #include <petscbm.h> 4*3444e80cSBarry Smith #include <petscmat.h> 5*3444e80cSBarry Smith 6*3444e80cSBarry Smith int main(int argc, char **argv) 7*3444e80cSBarry Smith { 8*3444e80cSBarry Smith PetscBench bm; 9*3444e80cSBarry Smith 10*3444e80cSBarry Smith PetscFunctionBeginUser; 11*3444e80cSBarry Smith PetscCall(PetscInitialize(&argc, &argv, (char *)0, help)); 12*3444e80cSBarry Smith PetscCall(MatInitializePackage()); 13*3444e80cSBarry Smith PetscCall(PetscBenchCreate(PETSC_COMM_SELF, &bm)); 14*3444e80cSBarry Smith PetscCall(PetscBenchSetType(bm, PETSCBMHPL)); 15*3444e80cSBarry Smith PetscCall(PetscBenchSetFromOptions(bm)); 16*3444e80cSBarry Smith PetscCall(PetscBenchSetUp(bm)); 17*3444e80cSBarry Smith PetscCall(PetscBenchRun(bm)); 18*3444e80cSBarry Smith PetscCall(PetscBenchView(bm, PETSC_VIEWER_STDOUT_SELF)); 19*3444e80cSBarry Smith PetscCall(PetscBenchSetSize(bm, 5000)); 20*3444e80cSBarry Smith PetscCall(PetscBenchRun(bm)); 21*3444e80cSBarry Smith PetscCall(PetscBenchView(bm, PETSC_VIEWER_STDOUT_SELF)); 22*3444e80cSBarry Smith 23*3444e80cSBarry Smith PetscCall(PetscBenchDestroy(&bm)); 24*3444e80cSBarry Smith PetscCall(PetscFinalize()); 25*3444e80cSBarry Smith return 0; 26*3444e80cSBarry Smith } 27*3444e80cSBarry Smith 28*3444e80cSBarry Smith /*TEST 29*3444e80cSBarry Smith 30*3444e80cSBarry Smith test: 31*3444e80cSBarry Smith requires: hpl 32*3444e80cSBarry Smith 33*3444e80cSBarry Smith TEST*/ 34