1 2 static char help[] = "Tests C=A^T*B via MatTranspose() and MatMatMult(). \n\ 3 Contributed by Alexander Grayver, Jan. 2012 \n\n"; 4 /* Example: 5 mpiexec -n <np> ./ex165 -fA A.dat -fB B.dat -view_C 6 */ 7 8 #include <petscmat.h> 9 int main(int argc,char **args) 10 { 11 Mat A,AT,B,C; 12 PetscViewer viewer; 13 PetscBool flg; 14 char file[PETSC_MAX_PATH_LEN]; 15 16 PetscCall(PetscInitialize(&argc,&args,(char*)0,help)); 17 PetscCall(PetscOptionsGetString(NULL,NULL,"-fA",file,sizeof(file),&flg)); 18 PetscCheck(flg,PETSC_COMM_WORLD,PETSC_ERR_USER,"Input fileA not specified"); 19 PetscCall(PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&viewer)); 20 PetscCall(MatCreate(PETSC_COMM_WORLD,&A)); 21 PetscCall(MatSetType(A,MATAIJ)); 22 PetscCall(MatLoad(A,viewer)); 23 PetscCall(PetscViewerDestroy(&viewer)); 24 25 PetscCall(PetscOptionsGetString(NULL,NULL,"-fB",file,sizeof(file),&flg)); 26 PetscCheck(flg,PETSC_COMM_WORLD,PETSC_ERR_USER,"Input fileB not specified"); 27 PetscCall(PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&viewer)); 28 PetscCall(MatCreate(PETSC_COMM_WORLD,&B)); 29 PetscCall(MatSetType(B,MATDENSE)); 30 PetscCall(MatLoad(B,viewer)); 31 PetscCall(PetscViewerDestroy(&viewer)); 32 33 PetscCall(MatTranspose(A,MAT_INITIAL_MATRIX,&AT)); 34 PetscCall(MatMatMult(AT,B,MAT_INITIAL_MATRIX,PETSC_DEFAULT,&C)); 35 36 PetscCall(PetscOptionsHasName(NULL,NULL,"-view_C",&flg)); 37 if (flg) { 38 PetscCall(PetscViewerBinaryOpen(PETSC_COMM_WORLD,"C.dat",FILE_MODE_WRITE,&viewer)); 39 PetscCall(PetscViewerPushFormat(viewer,PETSC_VIEWER_NATIVE)); 40 PetscCall(MatView(C,viewer)); 41 PetscCall(PetscViewerPopFormat(viewer)); 42 PetscCall(PetscViewerDestroy(&viewer)); 43 } 44 PetscCall(MatDestroy(&A)); 45 PetscCall(MatDestroy(&B)); 46 PetscCall(MatDestroy(&AT)); 47 PetscCall(MatDestroy(&C)); 48 PetscCall(PetscFinalize()); 49 return 0; 50 } 51