1: static char help[] = "Tests MatLoad() with blocksize set in in program\n\n";

  3: #include <petscmat.h>

  5: int main(int argc,char **args)
  6: {
  7:   Mat            A;
  8:   PetscViewer    fd;
  9:   char           file[PETSC_MAX_PATH_LEN];
 11:   PetscBool      flg;

 13:   PetscInitialize(&argc,&args,(char*)0,help);if (ierr) return ierr;
 14:   /* Determine files from which we read the matrix */
 15:   PetscOptionsGetString(NULL,NULL,"-f",file,sizeof(file),&flg);
 16:   if (!flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_USER,"Must indicate binary file with the -f");

 18:   /* Load matrices */
 19:   PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&fd);
 20:   MatCreate(PETSC_COMM_WORLD,&A);
 21:   MatSetType(A,MATSBAIJ);
 22:   MatSetFromOptions(A);
 23:   MatSetBlockSize(A,2);
 24:   MatLoad(A,fd);
 25:   PetscViewerDestroy(&fd);
 26:   MatDestroy(&A);
 27:   PetscFinalize();
 28:   return ierr;
 29: }

 31: /*TEST

 33:       test:
 34:          args: -mat_type aij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 35:          output_file: output/ex180_1.out
 36:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 38:       test:
 39:          suffix: 2
 40:          nsize: 2
 41:          args: -mat_type aij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 42:          output_file: output/ex180_1.out
 43:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 45:       test:
 46:          suffix: 3
 47:          args: -mat_type baij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 48:          output_file: output/ex180_1.out
 49:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 51:       test:
 52:          suffix: 4more
 53:          nsize: 2
 54:          args: -mat_type baij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 55:          output_file: output/ex180_1.out
 56:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 58:       test:
 59:          suffix: 5
 60:          args: -mat_type sbaij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 61:          output_file: output/ex180_1.out
 62:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 64:       test:
 65:          suffix: 6
 66:          nsize: 2
 67:          args: -mat_type sbaij -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 68:          output_file: output/ex180_1.out
 69:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 71:       test:
 72:          suffix: 7
 73:          args: -mat_type sbaij -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 74:          output_file: output/ex180_1.out
 75:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 77:       test:
 78:          suffix: 8
 79:          nsize: 2
 80:          args: -mat_type sbaij -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 81:          output_file: output/ex180_1.out
 82:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 84:       test:
 85:          suffix: 9
 86:          args: -mat_type baij -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 87:          output_file: output/ex180_1.out
 88:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 90:       test:
 91:          suffix: 10
 92:          nsize: 2
 93:          args: -mat_type baij -matload_block_size 4 -f ${wPETSC_DIR}/share/petsc/datafiles/matrices/ns-real-int32-float64 -malloc_dump
 94:          output_file: output/ex180_1.out
 95:          requires: !complex double !define(PETSC_USE_64BIT_INDICES)

 97: TEST*/