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 PetscErrorCode ierr; 12 Mat A,AT,B,C; 13 PetscViewer viewer; 14 PetscBool flg; 15 char file[PETSC_MAX_PATH_LEN]; 16 17 ierr = PetscInitialize(&argc,&args,(char*)0,help);if (ierr) return ierr; 18 CHKERRQ(PetscOptionsGetString(NULL,NULL,"-fA",file,sizeof(file),&flg)); 19 PetscCheck(flg,PETSC_COMM_WORLD,PETSC_ERR_USER,"Input fileA not specified"); 20 CHKERRQ(PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&viewer)); 21 CHKERRQ(MatCreate(PETSC_COMM_WORLD,&A)); 22 CHKERRQ(MatSetType(A,MATAIJ)); 23 CHKERRQ(MatLoad(A,viewer)); 24 CHKERRQ(PetscViewerDestroy(&viewer)); 25 26 CHKERRQ(PetscOptionsGetString(NULL,NULL,"-fB",file,sizeof(file),&flg)); 27 PetscCheck(flg,PETSC_COMM_WORLD,PETSC_ERR_USER,"Input fileB not specified"); 28 CHKERRQ(PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&viewer)); 29 CHKERRQ(MatCreate(PETSC_COMM_WORLD,&B)); 30 CHKERRQ(MatSetType(B,MATDENSE)); 31 CHKERRQ(MatLoad(B,viewer)); 32 CHKERRQ(PetscViewerDestroy(&viewer)); 33 34 CHKERRQ(MatTranspose(A,MAT_INITIAL_MATRIX,&AT)); 35 CHKERRQ(MatMatMult(AT,B,MAT_INITIAL_MATRIX,PETSC_DEFAULT,&C)); 36 37 CHKERRQ(PetscOptionsHasName(NULL,NULL,"-view_C",&flg)); 38 if (flg) { 39 CHKERRQ(PetscViewerBinaryOpen(PETSC_COMM_WORLD,"C.dat",FILE_MODE_WRITE,&viewer)); 40 CHKERRQ(PetscViewerPushFormat(viewer,PETSC_VIEWER_NATIVE)); 41 CHKERRQ(MatView(C,viewer)); 42 CHKERRQ(PetscViewerPopFormat(viewer)); 43 CHKERRQ(PetscViewerDestroy(&viewer)); 44 } 45 CHKERRQ(MatDestroy(&A)); 46 CHKERRQ(MatDestroy(&B)); 47 CHKERRQ(MatDestroy(&AT)); 48 CHKERRQ(MatDestroy(&C)); 49 ierr = PetscFinalize(); 50 return ierr; 51 } 52