Home
last modified time | relevance | path

Searched refs:PETSC_COMM_WORLD (Results 1 – 25 of 1138) sorted by relevance

12345678910>>...46

/dports/science/PETSc/petsc-3.14.1/src/sys/tests/
H A Dex25.c9 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 Dex16.c15 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 Dex17f.F20 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 Dex100.cu33 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 Dex37.c42 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 Dex41.c25 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 Dex51.c37 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 Dex44.c46 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 DSSEVersion.c92 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 Dex2.c19 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 Dex10.c51 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 Dex11.c49 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 Dex11f90.F9025 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 Dex33.c28 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 Dex23.c46 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 Dex25.c20 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 Dex11.c52 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 Dex31.c30 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 Dex14.c16 …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 Dex1.c26 …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 Dex125.c26 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 Dex177.c19 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 Dex1.c24 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 Dex72.c60 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 Dex27.c65 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 …]

12345678910>>...46