/dports/science/PETSc/petsc-3.14.1/src/sys/tests/ |
H A D | ex25.c | 9 ierr = PetscPrintf(PETSC_COMM_WORLD,"Real tests:\n");CHKERRQ(ierr); in main() 16 ierr = PetscPrintf(PETSC_COMM_WORLD,"sqrt(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 18 ierr = PetscPrintf(PETSC_COMM_WORLD,"cbrt(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 28 ierr = PetscPrintf(PETSC_COMM_WORLD,"exp(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 30 ierr = PetscPrintf(PETSC_COMM_WORLD,"log(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 32 ierr = PetscPrintf(PETSC_COMM_WORLD,"log10(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 34 ierr = PetscPrintf(PETSC_COMM_WORLD,"log2(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 37 ierr = PetscPrintf(PETSC_COMM_WORLD,"sin(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 39 ierr = PetscPrintf(PETSC_COMM_WORLD,"cos(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() 41 ierr = PetscPrintf(PETSC_COMM_WORLD,"tan(%f) = %f\n",(double)a,(double)b);CHKERRQ(ierr); in main() [all …]
|
H A D | ex16.c | 15 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank); in main() 17 ierr = PetscMatlabEngineGetOutput(PETSC_MATLAB_ENGINE_(PETSC_COMM_WORLD),&output);CHKERRQ(ierr); in main() 19 …ierr = PetscMatlabEngineEvaluate(PETSC_MATLAB_ENGINE_(PETSC_COMM_WORLD),"MPI_Comm_rank");CHKERRQ(i… in main() 20 …ierr = PetscSynchronizedPrintf(PETSC_COMM_WORLD,"[%d]Processor rank is %s",rank,output);CHKERRQ(ie… in main() 21 ierr = PetscSynchronizedFlush(PETSC_COMM_WORLD,PETSC_STDOUT);CHKERRQ(ierr); in main() 22 ierr = PetscPrintf(PETSC_COMM_WORLD,">>");CHKERRQ(ierr); in main() 23 ierr = PetscSynchronizedFGets(PETSC_COMM_WORLD,stdin,256,user);CHKERRQ(ierr); in main() 26 ierr = PetscMatlabEngineEvaluate(PETSC_MATLAB_ENGINE_(PETSC_COMM_WORLD),user);CHKERRQ(ierr); in main() 28 ierr = PetscSynchronizedFlush(PETSC_COMM_WORLD,PETSC_STDOUT);CHKERRQ(ierr); in main() 29 ierr = PetscPrintf(PETSC_COMM_WORLD,">>");CHKERRQ(ierr); in main() [all …]
|
H A D | ex17f.F | 20 call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr) 22 call PetscFOpen(PETSC_COMM_WORLD,'testfile','w',file,ierr) 24 call PetscFPrintf(PETSC_COMM_WORLD,file,'Hi once \n',ierr) 25 call PetscSynchronizedFPrintf(PETSC_COMM_WORLD,file,'Hi twice \n', & 27 call PetscSynchronizedFlush(PETSC_COMM_WORLD,file,ierr) 30 call PetscSynchronizedFPrintf(PETSC_COMM_WORLD,file,joe,ierr) 31 call PetscSynchronizedFlush(PETSC_COMM_WORLD,file,ierr) 33 call PetscFClose(PETSC_COMM_WORLD,file,ierr) 35 call PetscSynchronizedPrintf(PETSC_COMM_WORLD,'Hi twice \n', & 37 call PetscSynchronizedFlush(PETSC_COMM_WORLD,PETSC_STDOUT,ierr)
|
/dports/science/PETSc/petsc-3.14.1/src/vec/vec/tests/ |
H A D | ex100.cu | 33 ierr = PetscCUDAInitialize(PETSC_COMM_WORLD, PETSC_DEFAULT); CHKERRQ(ierr); in main() 50 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 51 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 57 ierr = VecCreate(PETSC_COMM_WORLD,&u);CHKERRQ(ierr); in main() 78 ierr = PetscPrintf(PETSC_COMM_WORLD,"writing vector in hdf5 to vector.dat ...\n");CHKERRQ(ierr); in main() 79 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_WRITE,&viewer);CHKERRQ(ierr); in main() 99 ierr = PetscPrintf(PETSC_COMM_WORLD,"Using MPI IO for reading the vector\n");CHKERRQ(ierr); in main() 109 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() 122 ierr = VecCreate(PETSC_COMM_WORLD,&u);CHKERRQ(ierr); in main() 125 ierr = PetscPrintf(PETSC_COMM_WORLD,"Setting vector sizes...\n");CHKERRQ(ierr); in main() [all …]
|
H A D | ex37.c | 42 ierr = VecCreate(PETSC_COMM_WORLD, &c);CHKERRQ(ierr); in test_view() 110 ierr = VecCreate(PETSC_COMM_WORLD, &X);CHKERRQ(ierr); 114 ierr = VecCreate(PETSC_COMM_WORLD, &a);CHKERRQ(ierr); 118 ierr = VecCreate(PETSC_COMM_WORLD, &b);CHKERRQ(ierr); 128 ierr = VecCreate(PETSC_COMM_WORLD, &c);CHKERRQ(ierr); 206 gen_test_vector(PETSC_COMM_WORLD, 4, 0, 1, &x1); in test_axpy_dot_max() 207 gen_test_vector(PETSC_COMM_WORLD, 5, 10, 2, &x2); in test_axpy_dot_max() 209 gen_test_vector(PETSC_COMM_WORLD, 4, 4, 3, &y1); in test_axpy_dot_max() 210 gen_test_vector(PETSC_COMM_WORLD, 5, 5, 1, &y2); in test_axpy_dot_max() 229 ierr = PetscPrintf(PETSC_COMM_WORLD, "VecAXPY \n");CHKERRQ(ierr); in test_axpy_dot_max() [all …]
|
H A D | ex41.c | 25 ierr = VecCreate(PETSC_COMM_WORLD, &c);CHKERRQ(ierr); in test_vec_ops() 33 ierr = VecCreate(PETSC_COMM_WORLD, &g);CHKERRQ(ierr); in test_vec_ops() 36 ierr = VecCreate(PETSC_COMM_WORLD, &h);CHKERRQ(ierr); in test_vec_ops() 49 ierr = PetscPrintf(PETSC_COMM_WORLD, "a = [c d] \n");CHKERRQ(ierr); in test_vec_ops() 54 ierr = PetscPrintf(PETSC_COMM_WORLD, "a = [d c] \n");CHKERRQ(ierr); in test_vec_ops() 62 ierr = PetscPrintf(PETSC_COMM_WORLD, "b = [e f] \n");CHKERRQ(ierr); in test_vec_ops() 67 ierr = PetscPrintf(PETSC_COMM_WORLD, "b = [f e] \n");CHKERRQ(ierr); in test_vec_ops() 74 ierr = PetscPrintf(PETSC_COMM_WORLD, "X = [a b] \n");CHKERRQ(ierr); in test_vec_ops() 82 ierr = PetscPrintf(PETSC_COMM_WORLD, "X = [b a] \n");CHKERRQ(ierr); in test_vec_ops() 93 ierr = PetscPrintf(PETSC_COMM_WORLD, "X = [g h] \n");CHKERRQ(ierr); in test_vec_ops() [all …]
|
H A D | ex51.c | 37 ierr = VecCreate(PETSC_COMM_WORLD, &testvec);CHKERRQ(ierr); in main() 43 ierr = VecCreate(PETSC_COMM_WORLD, &writevec);CHKERRQ(ierr); in main() 51 ierr = PetscPrintf(PETSC_COMM_WORLD,"writing vector in hdf5 to vector.dat ...\n");CHKERRQ(ierr); in main() 52 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_WRITE,&viewer);CHKERRQ(ierr); in main() 54 … ierr = PetscPrintf(PETSC_COMM_WORLD,"writing vector in binary to vector.dat ...\n");CHKERRQ(ierr); in main() 55 … ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_WRITE,&viewer);CHKERRQ(ierr); in main() 73 ierr = ISCreateStride(PETSC_COMM_WORLD, issize, isstart, 1, &loadis);CHKERRQ(ierr); in main() 81 … ierr = PetscPrintf(PETSC_COMM_WORLD,"reading vector in hdf5 from vector.dat ...\n");CHKERRQ(ierr); in main() 82 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() 85 … ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() [all …]
|
H A D | ex44.c | 46 ierr = PetscPrintf(PETSC_COMM_WORLD,"Adjust the parameters such that m>=n\n");CHKERRQ(ierr); in main() 49 …ierr = PetscPrintf(PETSC_COMM_WORLD,"For the Strided Scatter, toFirst=%D and toStep=%D.\n",toFirst… in main() 50 …ierr = PetscPrintf(PETSC_COMM_WORLD,"This produces an index (toFirst+(n-1)*toStep)>=m\n");CHKERRQ(… in main() 51 …ierr = PetscPrintf(PETSC_COMM_WORLD,"Adjust the parameterrs accordingly with -m, -n, -toFirst, or … in main() 55 …ierr = PetscPrintf(PETSC_COMM_WORLD,"This produces an index (fromFirst+(n-1)*fromStep)>=m\n");CHKE… in main() 62 ierr = VecCreate(PETSC_COMM_WORLD,&Y);CHKERRQ(ierr); in main() 64 ierr = VecCreate(PETSC_COMM_WORLD,&X);CHKERRQ(ierr); in main() 73 ierr = ISCreate(PETSC_COMM_WORLD,&toISStrided);CHKERRQ(ierr); in main() 74 ierr = ISCreate(PETSC_COMM_WORLD,&fromISStrided);CHKERRQ(ierr); in main() 92 ierr = ISCreateGeneral(PETSC_COMM_WORLD,n1,idx,PETSC_COPY_VALUES,&toISGeneral);CHKERRQ(ierr); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/benchmarks/streams/ |
H A D | SSEVersion.c | 92 PetscPrintf(PETSC_COMM_WORLD,HLINE); in main() 96 PetscPrintf(PETSC_COMM_WORLD,HLINE); in main() 158 MPI_Barrier(PETSC_COMM_WORLD); in main() 161 MPI_Barrier(PETSC_COMM_WORLD); in main() 177 MPI_Barrier(PETSC_COMM_WORLD); in main() 182 MPI_Barrier(PETSC_COMM_WORLD); in main() 199 MPI_Barrier(PETSC_COMM_WORLD); in main() 204 MPI_Barrier(PETSC_COMM_WORLD); in main() 221 MPI_Barrier(PETSC_COMM_WORLD); in main() 226 MPI_Barrier(PETSC_COMM_WORLD); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/tests/ |
H A D | ex2.c | 19 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 20 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 28 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"testfile",FILE_MODE_WRITE,&vx);CHKERRQ(ierr); in main() 32 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"testfile",FILE_MODE_READ,&vl);CHKERRQ(ierr); in main() 33 ierr = ISCreate(PETSC_COMM_WORLD,&il);CHKERRQ(ierr); in main() 45 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"testfile",FILE_MODE_READ,&vl);CHKERRQ(ierr); in main() 47 ierr = ISCreate(PETSC_COMM_WORLD,&il);CHKERRQ(ierr); in main() 57 ierr = ISCreateGeneral(PETSC_COMM_WORLD,n,izero,PETSC_COPY_VALUES,&il);CHKERRQ(ierr); in main() 77 ierr = ISCreateGeneral(PETSC_COMM_WORLD,n,izero,PETSC_COPY_VALUES,&il);CHKERRQ(ierr); in main() 97 ierr = ISCreateStride(PETSC_COMM_WORLD,n,rank,rank+1,&isx[i]);CHKERRQ(ierr); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/vec/vec/tutorials/ |
H A D | ex10.c | 51 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 52 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 60 ierr = VecCreate(PETSC_COMM_WORLD,&u);CHKERRQ(ierr); in main() 80 ierr = PetscPrintf(PETSC_COMM_WORLD,"writing vector in hdf5 to vector.dat ...\n");CHKERRQ(ierr); in main() 81 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_WRITE,&viewer);CHKERRQ(ierr); in main() 85 … ierr = PetscPrintf(PETSC_COMM_WORLD,"writing vector in adios to vector.dat ...\n");CHKERRQ(ierr); in main() 107 ierr = PetscPrintf(PETSC_COMM_WORLD,"Using MPI IO for reading the vector\n");CHKERRQ(ierr); in main() 117 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"vector.dat",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() 130 ierr = VecCreate(PETSC_COMM_WORLD,&u);CHKERRQ(ierr); in main() 134 ierr = PetscPrintf(PETSC_COMM_WORLD,"Setting vector sizes...\n");CHKERRQ(ierr); in main() [all …]
|
H A D | ex11.c | 49 ierr = VecCreate(PETSC_COMM_WORLD,&x);CHKERRQ(ierr); in main() 60 ierr = PetscPrintf(PETSC_COMM_WORLD,"L_2 Norm of entire vector: %g\n",(double)norm);CHKERRQ(ierr); in main() 63 ierr = PetscPrintf(PETSC_COMM_WORLD,"L_1 Norm of entire vector: %g\n",(double)norm);CHKERRQ(ierr); in main() 66 …ierr = PetscPrintf(PETSC_COMM_WORLD,"L_inf Norm of entire vector: %g\n",(double)norm);CHKERRQ(ierr… in main() 69 ierr = PetscPrintf(PETSC_COMM_WORLD,"L_2 Norm of sub-vector 0: %g\n",(double)norm);CHKERRQ(ierr); in main() 72 ierr = PetscPrintf(PETSC_COMM_WORLD,"L_1 Norm of sub-vector 0: %g\n",(double)norm);CHKERRQ(ierr); in main() 75 …ierr = PetscPrintf(PETSC_COMM_WORLD,"L_inf Norm of sub-vector 0: %g\n",(double)norm);CHKERRQ(ierr); in main() 78 ierr = PetscPrintf(PETSC_COMM_WORLD,"L_2 Norm of sub-vector 1: %g\n",(double)norm);CHKERRQ(ierr); in main() 81 ierr = PetscPrintf(PETSC_COMM_WORLD,"L_1 Norm of sub-vector 1: %g\n",(double)norm);CHKERRQ(ierr); in main() 84 …ierr = PetscPrintf(PETSC_COMM_WORLD,"L_inf Norm of sub-vector 1: %g\n",(double)norm);CHKERRQ(ierr); in main()
|
H A D | ex11f90.F90 | 25 call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr) 48 call VecCreate(PETSC_COMM_WORLD,x,ierr);CHKERRA(ierr) 62 …call PetscPrintf(PETSC_COMM_WORLD,"L_2 Norm of entire vector: "//trim(outputString)//"\n",ierr);CH… 66 …call PetscPrintf(PETSC_COMM_WORLD,"L_1 Norm of entire vector: "//trim(outputString)//"\n",ierr);CH… 70 …call PetscPrintf(PETSC_COMM_WORLD,"L_inf Norm of entire vector: "//trim(outputString)//"\n",ierr);… 74 …call PetscPrintf(PETSC_COMM_WORLD,"L_2 Norm of sub-vector 0: "//trim(outputString)//"\n",ierr);CHK… 78 …call PetscPrintf(PETSC_COMM_WORLD,"L_1 Norm of sub-vector 0: "//trim(outputString)//"\n",ierr);CHK… 82 …call PetscPrintf(PETSC_COMM_WORLD,"L_inf Norm of sub-vector 0: "//trim(outputString)//"\n",ierr);C… 86 …call PetscPrintf(PETSC_COMM_WORLD,"L_2 Norm of sub-vector 1: "//trim(outputString)//"\n",ierr);CHK… 90 …call PetscPrintf(PETSC_COMM_WORLD,"L_1 Norm of sub-vector 1: "//trim(outputString)//"\n",ierr);CHK… [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/dm/tests/ |
H A D | ex33.c | 28 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 29 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 58 ierr = DMDACreate1d(PETSC_COMM_WORLD,bx,M,dof,stencil_width,NULL,&da);CHKERRQ(ierr); in main() 65 ierr = PetscRandomCreate(PETSC_COMM_WORLD,&rdm);CHKERRQ(ierr); in main() 72 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"temp",FILE_MODE_WRITE,&viewer);CHKERRQ(ierr); in main() 75 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"temp",FILE_MODE_WRITE,&viewer);CHKERRQ(ierr); in main() 89 ierr = DMDACreate1d(PETSC_COMM_WORLD,bx,M,dof,stencil_width,NULL,&da2);CHKERRQ(ierr); in main() 95 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"temp",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() 98 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,"temp",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() 113 ierr = PetscPrintf(PETSC_COMM_WORLD," Number of processors %d\n",size);CHKERRQ(ierr); in main() [all …]
|
H A D | ex23.c | 46 ierr = DMDACreate1d(PETSC_COMM_WORLD,bx,M,dof,stencil_width,NULL,&da);CHKERRQ(ierr); in main() 52 ierr = PetscRandomCreate(PETSC_COMM_WORLD,&rdm);CHKERRQ(ierr); in main() 58 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"temp",FILE_MODE_WRITE,&viewer);CHKERRQ(ierr); in main() 67 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"temp",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() 77 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,"temp",FILE_MODE_READ,&viewer);CHKERRQ(ierr); in main() 96 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 98 ierr = PetscPrintf(PETSC_COMM_WORLD," Number of processors %d\n",size);CHKERRQ(ierr); in main() 99 ierr = PetscPrintf(PETSC_COMM_WORLD," M,N,P,dof %D %D %D %D\n",M,N,P,dof);CHKERRQ(ierr); in main() 106 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 108 ierr = PetscPrintf(PETSC_COMM_WORLD," Number of processors %d\n",size);CHKERRQ(ierr); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tests/ |
H A D | ex25.c | 20 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 21 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 24 ierr = PetscPrintf(PETSC_COMM_WORLD,"\n Load dataset ...\n");CHKERRQ(ierr); in main() 27 ierr = MatCreate(PETSC_COMM_WORLD,&C);CHKERRQ(ierr); in main() 30 ierr = VecCreate(PETSC_COMM_WORLD,&b);CHKERRQ(ierr); in main() 31 ierr = VecCreate(PETSC_COMM_WORLD,&u);CHKERRQ(ierr); in main() 52 ierr = KSPCreate(PETSC_COMM_WORLD,&ksp);CHKERRQ(ierr); in main() 55 ierr = PetscPrintf(PETSC_COMM_WORLD,"\n CG: \n");CHKERRQ(ierr); in main() 57 ierr = KSPCreate(PETSC_COMM_WORLD,&ksp);CHKERRQ(ierr); in main() 60 ierr = PetscPrintf(PETSC_COMM_WORLD,"\n MINRES: \n");CHKERRQ(ierr); in main() [all …]
|
H A D | ex11.c | 52 ierr = MatCreate(PETSC_COMM_WORLD,A11);CHKERRQ(ierr); in LSCLoadTestOperators() 53 ierr = MatCreate(PETSC_COMM_WORLD,A12);CHKERRQ(ierr); in LSCLoadTestOperators() 54 ierr = MatCreate(PETSC_COMM_WORLD,A21);CHKERRQ(ierr); in LSCLoadTestOperators() 55 ierr = MatCreate(PETSC_COMM_WORLD,A22);CHKERRQ(ierr); in LSCLoadTestOperators() 60 ierr = VecCreate(PETSC_COMM_WORLD,b1);CHKERRQ(ierr); in LSCLoadTestOperators() 61 ierr = VecCreate(PETSC_COMM_WORLD,b2);CHKERRQ(ierr); in LSCLoadTestOperators() 100 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in LoadTestMatrices() 106 ierr = PetscSynchronizedFlush(PETSC_COMM_WORLD,PETSC_STDOUT);CHKERRQ(ierr); in LoadTestMatrices() 108 ierr = ISCreateStride(PETSC_COMM_WORLD,lnu,start_u+start_p,1,&is_u);CHKERRQ(ierr); in LoadTestMatrices() 114 ierr = MatCreateNest(PETSC_COMM_WORLD,2,bis,2,bis,&bA[0][0],&A);CHKERRQ(ierr); in LoadTestMatrices() [all …]
|
H A D | ex31.c | 30 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 31 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 44 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&fd);CHKERRQ(ierr); in main() 45 ierr = MatCreate(PETSC_COMM_WORLD,&A);CHKERRQ(ierr); in main() 52 ierr = VecCreate(PETSC_COMM_WORLD,&b);CHKERRQ(ierr); in main() 76 ierr = MatPartitioningCreate(PETSC_COMM_WORLD, &mpart);CHKERRQ(ierr); in main() 89 ierr = PetscPrintf(PETSC_COMM_WORLD,"nis:\n");CHKERRQ(ierr); in main() 99 ierr = PetscPrintf(PETSC_COMM_WORLD,"\n");CHKERRQ(ierr); in main() 124 ierr = KSPCreate(PETSC_COMM_WORLD,&ksp);CHKERRQ(ierr); in main() 139 ierr = PetscPrintf(PETSC_COMM_WORLD,"Residual norm %g\n",(double)norm);CHKERRQ(ierr); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/stag/tests/ |
H A D | ex14.c | 16 …if (!flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Supply -dim option with value 1, 2, or 3\n… in main() 25 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 28 …if (size != ranksx) SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Must run on %D ranks with -dim … in main() 29 …ierr = DMStagCreate1d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,mx,1,1,DMSTAG_STENCIL_BOX,1,lx,&dm);CHKERR… in main() 32 …if (size != ranksx * ranksy) SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Must run on %D ranks w… in main() 33 …ierr = DMStagCreate2d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,DM_BOUNDARY_NONE,mx,my,ranksx,ranksy,1,1,1… in main() 36 …if (size != ranksx * ranksy * ranksz) SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Must run on %… in main() 40 SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_SUP,"No support for dimension %D",dim); in main() 44 …ierr = DMStagCreate1d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,2,2,3,DMSTAG_STENCIL_BOX,1,NULL,&dm);CHKER… in main() 46 …ierr = DMStagCreate2d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,DM_BOUNDARY_NONE,2,2,PETSC_DECIDE,PETSC_DE… in main() [all …]
|
H A D | ex1.c | 26 …ierr = DMStagCreate1d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,3,1,1,DMSTAG_STENCIL_BOX,1,NULL,&dmstag);C… in main() 29 …ierr = DMStagCreate2d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,DM_BOUNDARY_NONE,3,2,PETSC_DECIDE,PETSC_DE… in main() 35 SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_SUP,"No support for dimension %D",dim); in main() 44 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 47 …if (size != ranksx) SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Must run on %D ranks with -dim … in main() 48 …ierr = DMStagCreate1d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,mx,1,1,DMSTAG_STENCIL_BOX,1,lx,&dmstag);CH… in main() 51 …if (size != ranksx * ranksy) SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Must run on %D ranks w… in main() 52 …ierr = DMStagCreate2d(PETSC_COMM_WORLD,DM_BOUNDARY_NONE,DM_BOUNDARY_NONE,mx,my,ranksx,ranksy,1,1,1… in main() 55 …if (size != ranksx * ranksy * ranksz) SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_ARG_WRONG,"Must run on %… in main() 59 SETERRQ1(PETSC_COMM_WORLD,PETSC_ERR_SUP,"No support for dimension %D",dim); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/mat/tests/ |
H A D | ex125.c | 26 ierr = MPI_Comm_size(PETSC_COMM_WORLD, &size);CHKERRQ(ierr); in main() 34 ierr = MatCreate(PETSC_COMM_WORLD,&A);CHKERRQ(ierr); in main() 49 ierr = PetscPrintf(PETSC_COMM_WORLD,"ex125: nrhs %D\n",nrhs);CHKERRQ(ierr); in main() 50 ierr = MatCreate(PETSC_COMM_WORLD,&C);CHKERRQ(ierr); in main() 64 ierr = PetscRandomCreate(PETSC_COMM_WORLD,&rand);CHKERRQ(ierr); in main() 81 ierr = PetscPrintf(PETSC_COMM_WORLD," SUPERLU LU:\n");CHKERRQ(ierr); in main() 89 ierr = PetscPrintf(PETSC_COMM_WORLD," SUPERLU_DIST LU:\n");CHKERRQ(ierr); in main() 97 ierr = PetscPrintf(PETSC_COMM_WORLD," MUMPS CHOLESKY:\n");CHKERRQ(ierr); in main() 100 ierr = PetscPrintf(PETSC_COMM_WORLD," MUMPS LU:\n");CHKERRQ(ierr); in main() 135 ierr = PetscPrintf(PETSC_COMM_WORLD," CUSPARSE LU:\n");CHKERRQ(ierr); in main() [all …]
|
H A D | ex177.c | 19 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 20 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 24 if (!flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_USER,"Must indicate binary file with the -f option"); in main() 25 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&fd);CHKERRQ(ierr); in main() 26 ierr = MatCreate(PETSC_COMM_WORLD,&A);CHKERRQ(ierr); in main() 55 if (flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"Error in Test 1: MatKAIJGetScaledIdentity()"); in main() 77 if (flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"Error in Test 2: MatKAIJGetScaledIdentity()"); in main() 99 if (flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"Error in Test 3: MatKAIJGetScaledIdentity()"); in main() 129 if (flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"Error in Test 4: MatKAIJGetScaledIdentity()"); in main() 143 … if (!flg) SETERRQ(PETSC_COMM_WORLD,PETSC_ERR_PLIB,"Error in Test 5: MatKAIJGetScaledIdentity()"); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/vec/is/ao/tests/ |
H A D | ex1.c | 24 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 25 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 28 ierr = ISCreateStride(PETSC_COMM_WORLD,n,rank,size,&isapp);CHKERRQ(ierr); in main() 29 ierr = ISCreateStride(PETSC_COMM_WORLD,n,n*rank,1,&ispetsc);CHKERRQ(ierr); /* natural numbering */ in main() 40 ierr = PetscSynchronizedFlush(PETSC_COMM_WORLD,PETSC_STDOUT);CHKERRQ(ierr); in main() 45 ierr = PetscPrintf(PETSC_COMM_WORLD,"\nTest AOCreateMemoryScalable: \n");CHKERRQ(ierr); in main() 64 …ierr = PetscPrintf(PETSC_COMM_WORLD,"\nTest AOCreateMemoryScalable with ispetsc=NULL:\n");CHKERRQ(… in main() 83 ierr = AOCreateMemoryScalable(PETSC_COMM_WORLD,n,app,NULL,&ao);CHKERRQ(ierr); in main() 100 ierr = PetscPrintf(PETSC_COMM_WORLD,"\nTest general API: \n");CHKERRQ(ierr); in main() 101 ierr = AOCreate(PETSC_COMM_WORLD,&ao);CHKERRQ(ierr); in main() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tutorials/ |
H A D | ex72.c | 60 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 111 ierr = MatCreate(PETSC_COMM_WORLD,&A);CHKERRQ(ierr); in main() 120 ierr = VecCreate(PETSC_COMM_WORLD,&nullvecs[i]);CHKERRQ(ierr); in main() 131 ierr = MatNullSpaceCreate(PETSC_COMM_WORLD,PETSC_TRUE,0,NULL,&constant);CHKERRQ(ierr); in main() 137 ierr = VecCreate(PETSC_COMM_WORLD,&b);CHKERRQ(ierr); in main() 175 ierr = PetscPrintf(PETSC_COMM_WORLD,"Warning: A is non-symmetric \n");CHKERRQ(ierr); in main() 193 ierr = VecCreate(PETSC_COMM_WORLD,&tmp);CHKERRQ(ierr); in main() 237 ierr = PetscViewerASCIIOpen(PETSC_COMM_WORLD, "max.data", &viewer);CHKERRQ(ierr); in main() 240 ierr = PetscViewerASCIIOpen(PETSC_COMM_WORLD, "min.data", &viewer);CHKERRQ(ierr); in main() 272 ierr = KSPCreate(PETSC_COMM_WORLD,&ksp);CHKERRQ(ierr); in main() [all …]
|
H A D | ex27.c | 65 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); in main() 66 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); in main() 114 ierr = PetscViewerHDF5Open(PETSC_COMM_WORLD,file,FILE_MODE_READ,&fd);CHKERRQ(ierr); in main() 120 ierr = PetscViewerBinaryOpen(PETSC_COMM_WORLD,file,FILE_MODE_READ,&fd);CHKERRQ(ierr); in main() 128 ierr = MatCreate(PETSC_COMM_WORLD,&A);CHKERRQ(ierr); in main() 139 ierr = MatCreate(PETSC_COMM_WORLD,&A);CHKERRQ(ierr); in main() 152 ierr = VecCreate(PETSC_COMM_WORLD,&b);CHKERRQ(ierr); in main() 167 ierr = VecCreate(PETSC_COMM_WORLD,&x);CHKERRQ(ierr); in main() 207 ierr = KSPCreate(PETSC_COMM_WORLD,&ksp);CHKERRQ(ierr); in main() 267 ierr = PetscPrintf(PETSC_COMM_WORLD,"KSP type: %s\n",ksptype);CHKERRQ(ierr); in main() [all …]
|