Changeset 15838 for issm/trunk-jpl/src/c/analyses/DakotaSpawnCore.cpp
- Timestamp:
- 08/19/13 15:15:59 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified issm/trunk-jpl/src/c/analyses/DakotaSpawnCore.cpp ¶
r15104 r15838 49 49 50 50 /*If counter==-1 on cpu0, it means that the dakota runs are done. In which case, bail out and return 0: */ 51 #ifdef _HAVE_MPI_ 52 MPI_Bcast(&counter,1,MPI_INT,0,IssmComm::GetComm()); 53 #endif 51 ISSM_MPI_Bcast(&counter,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 54 52 if(counter==-1)return 0; 55 53 … … 116 114 117 115 /*numvariables: */ 118 MPI_Bcast(&numvariables,1,MPI_INT,0,IssmComm::GetComm());116 ISSM_MPI_Bcast(&numvariables,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 119 117 120 118 /*variables:*/ 121 119 if(my_rank!=0)variables=xNew<double>(numvariables); 122 MPI_Bcast(variables,numvariables,MPI_DOUBLE,0,IssmComm::GetComm());120 ISSM_MPI_Bcast(variables,numvariables,MPI_DOUBLE,0,IssmComm::GetComm()); 123 121 124 122 /*variables_descriptors: */ … … 131 129 string_length=(strlen(string)+1)*sizeof(char); 132 130 } 133 MPI_Bcast(&string_length,1,MPI_INT,0,IssmComm::GetComm());131 ISSM_MPI_Bcast(&string_length,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 134 132 if(my_rank!=0)string=xNew<char>(string_length); 135 MPI_Bcast(string,string_length,MPI_CHAR,0,IssmComm::GetComm());133 ISSM_MPI_Bcast(string,string_length,ISSM_MPI_CHAR,0,IssmComm::GetComm()); 136 134 if(my_rank!=0)variables_descriptors[i]=string; 137 135 } 138 136 139 137 /*numresponses: */ 140 MPI_Bcast(&numresponses,1,MPI_INT,0,IssmComm::GetComm());138 ISSM_MPI_Bcast(&numresponses,1,ISSM_MPI_INT,0,IssmComm::GetComm()); 141 139 142 140 /*Assign output pointers:*/
Note:
See TracChangeset
for help on using the changeset viewer.