Changeset 13591
- Timestamp:
- 10/10/12 20:59:44 (12 years ago)
- Location:
- issm/trunk-jpl/src/c
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/Solverx/DofTypesToIndexSet.cpp
r12470 r13591 65 65 /*Create indices sets: */ 66 66 #if _PETSC_MAJOR_ < 3 || (_PETSC_MAJOR_ == 3 && _PETSC_MINOR_ < 2) 67 ISCreateGeneral( PETSC_COMM_WORLD,pressure_num,pressure_indices,&isp);68 ISCreateGeneral( PETSC_COMM_WORLD,velocity_num,velocity_indices,&isv);67 ISCreateGeneral(IssmComm::GetComm(),pressure_num,pressure_indices,&isp); 68 ISCreateGeneral(IssmComm::GetComm(),velocity_num,velocity_indices,&isv); 69 69 #else 70 ISCreateGeneral( PETSC_COMM_WORLD,pressure_num,pressure_indices,PETSC_COPY_VALUES,&isp);71 ISCreateGeneral( PETSC_COMM_WORLD,velocity_num,velocity_indices,PETSC_COPY_VALUES,&isv);70 ISCreateGeneral(IssmComm::GetComm(),pressure_num,pressure_indices,PETSC_COPY_VALUES,&isp); 71 ISCreateGeneral(IssmComm::GetComm(),velocity_num,velocity_indices,PETSC_COPY_VALUES,&isv); 72 72 #endif 73 73 } -
issm/trunk-jpl/src/c/solutions/DakotaSpawnCore.cpp
r13540 r13591 60 60 /*If counter==-1 on cpu0, it means that the dakota runs are done. In which case, bail out and return 0: */ 61 61 #ifdef _HAVE_MPI_ 62 MPI_Bcast(&counter,1,MPI_INT,0, MPI_COMM_WORLD);62 MPI_Bcast(&counter,1,MPI_INT,0,IssmComm::GetComm()); 63 63 #endif 64 64 if(counter==-1)return 0; … … 124 124 125 125 /*numvariables: */ 126 MPI_Bcast(&numvariables,1,MPI_INT,0, MPI_COMM_WORLD);126 MPI_Bcast(&numvariables,1,MPI_INT,0,IssmComm::GetComm()); 127 127 128 128 /*variables:*/ 129 129 if(my_rank!=0)variables=xNew<double>(numvariables); 130 MPI_Bcast(variables,numvariables,MPI_DOUBLE,0, MPI_COMM_WORLD);130 MPI_Bcast(variables,numvariables,MPI_DOUBLE,0,IssmComm::GetComm()); 131 131 132 132 /*variables_descriptors: */ … … 139 139 string_length=(strlen(string)+1)*sizeof(char); 140 140 } 141 MPI_Bcast(&string_length,1,MPI_INT,0, MPI_COMM_WORLD);141 MPI_Bcast(&string_length,1,MPI_INT,0,IssmComm::GetComm()); 142 142 if(my_rank!=0)string=xNew<char>(string_length); 143 MPI_Bcast(string,string_length,MPI_CHAR,0, MPI_COMM_WORLD);143 MPI_Bcast(string,string_length,MPI_CHAR,0,IssmComm::GetComm()); 144 144 if(my_rank!=0)variables_descriptors[i]=string; 145 145 } 146 146 147 147 /*numresponses: */ 148 MPI_Bcast(&numresponses,1,MPI_INT,0, MPI_COMM_WORLD);148 MPI_Bcast(&numresponses,1,MPI_INT,0,IssmComm::GetComm()); 149 149 150 150 /*Assign output pointers:*/
Note:
See TracChangeset
for help on using the changeset viewer.