Changeset 13814
- Timestamp:
- 10/23/12 13:55:02 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/Solverx/SolverxPetsc.cpp
r13813 r13814 58 58 59 59 /*Display message*/ 60 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);61 PetscSynchronizedFlush(MPI_COMM_WORLD);62 60 if(VerboseModule()) _pprintLine_(" Solving"); 63 61 #if _PETSC_MAJOR_ < 3 || (_PETSC_MAJOR_ == 3 && _PETSC_MINOR_ < 2) … … 73 71 *puf=NewVec(0,IssmComm::GetComm()); return; 74 72 } 75 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);76 PetscSynchronizedFlush(MPI_COMM_WORLD);77 73 78 74 /*Initial guess */ … … 89 85 } 90 86 else{ 91 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);92 PetscSynchronizedFlush(MPI_COMM_WORLD);93 87 MatGetLocalSize(Kff,&local_m,&local_n);uf=NewVec(local_n,IssmComm::GetComm(),fromlocalsize); 94 88 } … … 110 104 KSPSetOperators(ksp,Kff,Kff,DIFFERENT_NONZERO_PATTERN); 111 105 KSPSetFromOptions(ksp); 112 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);113 PetscSynchronizedFlush(MPI_COMM_WORLD);114 106 115 107 #if _PETSC_MAJOR_==3 … … 123 115 #endif 124 116 } 125 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);126 PetscSynchronizedFlush(MPI_COMM_WORLD);127 117 128 118 /*Stokes: */ … … 156 146 /*Solve: */ 157 147 if(VerboseSolver())KSPView(ksp,PETSC_VIEWER_STDOUT_WORLD); 158 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);159 PetscSynchronizedFlush(MPI_COMM_WORLD);160 148 KSPSolve(ksp,pf,uf); 161 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);162 PetscSynchronizedFlush(MPI_COMM_WORLD);163 149 164 150 /*Check convergence*/ … … 167 153 168 154 /*Free resources:*/ 169 PetscSynchronizedPrintf(MPI_COMM_WORLD,"-------------- file: SolverxPetsc.cpp line: %i\n",__LINE__);170 PetscSynchronizedFlush(MPI_COMM_WORLD);171 155 KSPFree(&ksp); 172 156
Note:
See TracChangeset
for help on using the changeset viewer.