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 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