1 2 static char help[] = "Tests PCView() before PCSetup() with -pc_type lu.\n\n"; 3 4 #include <petscmat.h> 5 #include <petscpc.h> 6 7 int main(int argc,char **args) 8 { 9 Mat A; 10 PC pc; 11 12 CHKERRQ(PetscInitialize(&argc,&args,(char*)0,help)); 13 CHKERRQ(MatCreate(PETSC_COMM_WORLD,&A)); 14 CHKERRQ(MatSetSizes(A,1,1,1,1)); 15 CHKERRQ(MatSetFromOptions(A)); 16 CHKERRQ(MatSetUp(A)); 17 CHKERRQ(MatSetValue(A,0,0,1,INSERT_VALUES)); 18 CHKERRQ(MatAssemblyBegin(A,MAT_FINAL_ASSEMBLY)); 19 CHKERRQ(MatAssemblyEnd(A,MAT_FINAL_ASSEMBLY)); 20 CHKERRQ(MatView(A,PETSC_VIEWER_STDOUT_WORLD)); 21 CHKERRQ(PCCreate(PETSC_COMM_WORLD,&pc)); 22 CHKERRQ(PCSetOperators(pc,A,A)); 23 CHKERRQ(PCSetType(pc,PCLU)); 24 CHKERRQ(PCView(pc,PETSC_VIEWER_STDOUT_WORLD)); 25 CHKERRQ(PCDestroy(&pc)); 26 CHKERRQ(MatDestroy(&A)); 27 CHKERRQ(PetscFinalize()); 28 return 0; 29 } 30 31 /*TEST 32 33 test: 34 35 TEST*/ 36